Сначала сделал с рекурсивной функции, но затруднение было только с суммой элементов, по этому написал через цикл как впрочем и должно быть.
Console.WriteLine("Введите число");
int x = Convert.ToInt32(Console.ReadLine());
int y = x;
int sum = 0;
for (int i = 0; i < 4; i++)
{
y = x % 10;
x = x / 10;
Console.Write(y);
sum = sum + y;
}
Console.Write(" = " + sum);
Console.ReadLine();
1
Написать программу ввода с клавиатуры и вывода на экран значений одномерного массива
16.04.2010, 08:15. Просмотров 159492. ответов 17
Метки нет (Все метки)
№1.
Написать программу ввода с клавиатуры и вывода на экран значений одномерного массива А, состоящего из n вещественных элементов (n=10). Найти сумму элементов этого массива и вывести ее на экран.
№2.
Используя оператор выбора, написать программу которая запрашивает у пользователя номер месяца и выводит на экран соответствующее название времени года. В случае если пользователь укажет недопустимое число, программа должна вывести сообщение “Ошибка вывода данных. Повторите ввод”.
№3.
Дан одномерный массив В из n вещественных элементов (n=10). Написать программу, которая вводит значения элементов этого массива с клавиатуры, выводит элементы массива одной строкой, находит наибольший элемент и выводит результат поиска на экран.
№4.
Задана некоторая строка S$. Дано число k и слово а$. Вставить в строку после k-ого символа слово а$, результат вывести на экран.
№5.
Составить программу, которая 100 элементов одномерного массива d заполняет квадратами первых ста целых чисел и выводит их на экран.
№6.
Ввести с клавиатуры значения n вещественных элементов массива с (n = 10), посчитать количество отрицательных и сумму положительных элементов. Результаты вывести на экран.
№7.
Написать программу, которая, используя генератор случайных величин выводит на экран пример на умножение 2-х случайных однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение “ Правильно!” или “Вы ошиблись” и правильный ответ.
Ниже приведён рекомендуемый вид экрана во время работы программы:
Сколько будет 6*7 ?
Введите ответ и нажмите <Enter>
-> 56
Вы ошиблись. 6*7 = 42.
№8.
Написать программу, которая используя функции mod (остаток от деления) и div (целая часть от деления) находит сумму чисел любого трехзначного числа, число вводится с клавиатуры.
№9
Написать программу подсчета количества чисел кратных 7 на отрезке от 40 до 120. Результат вывести на экран.
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Geograf1;
Uses crt, GraphABC;
var karta,R,A: ineger;
Begin
SetWindowSize (520,480);
karta:=LoadPicture('belarus.gif');
DrawPicture (karta,10,10);
SetBrushColor (clRed);
A:=1700; R:=round (sgrt (A/pi));
circle (250,225,R);
A:=500; R:=round (sgrt (A/pi));
circle (405,345,R);
A:=330; R:=round (sgrt (A/pi));
circle (375,215,R);
A:=340; R:=round (sgrt (A/pi));
circle (360,105,R);
A:=320; R:=round (sgrt (A/pi));
circle (55,235,R);
A:=300; R:=round (sgrt (A/pi));
circle (40,385,R);
End.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Geograf2;
Uses crt, GraphABC;
Const A:= array[1..5] of integer =(690,613,495,493,459);
B:= array[1..5] of string =('Днепр', 'Березина', 'Припять', 'Сож', 'Неман ');
var karta, i : ineger;
begin
SetWindowSize (600,520);
karta:=LoadPicture('belfiz.gif');
DrawPicture (karta,30,120);
SetBrushColor (clBlue);
SetPenWidth(5);
Writeln ('Длина реки на территории Беларуси, тыс.км ');
for i:=1to 5 do begin
Writeln ( B [i], ' ', A[ i ]);
Line(160, 10+20*i, 160+ round(0.5*A[ i ]), 10+20*i);
End;
End.
Задачи:
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program upr_a;
Uses crt, GraphABC;
Const A:= array[1..4] of real =(87.5, 71.5,82.4, 94);
B:= array[1..4] of string =('Беловежская пуща', 'Браславские озера', 'Припятский', 'Нарочанский');
var karta,i,R: integer;
begin
SetWindowSize (520,480);
writeln ('Площадь парков Беларуси:');
karta:=LoadPicture('d:/uprajneniya/karta.gif');
DrawPicture (karta,10,50);
SetBrushColor (clRed);
for i:=1to 4 do
writeln (B[i], ' ' , A[i], 'тыс.га');
R:=round (sgrt (A[1]/pi));
circle (50,400,R);
R:=round (sgrt (A[2]/pi));
circle (250,100,R);
R:=round (sgrt (A[3]/pi));
circle (300,400,R);
R:=round (sgrt (A[4]/pi));
circle (200,200,R);
End.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program upr_b ;
Uses crt, GraphABC;
Const A:= array[1..8] of real =(79.6, 52.8,40.3,37.7,36.1, 26.0, 24.6,22.3);
B:= array[1..8] of real =(24.8, 7.5, 2.9, 11.5, 12.0, 2.3, 8.1, 8.7);
C:= array[1..8] of string =(' Нарочь', 'Освея', 'Черврное', 'Лукомльское', 'Выгонщанское', 'Нещердо', 'Свирь');
var karta,i,S: integer;
begin
SetWindowSize (640,480);
writeln ('Площадь и глубина озер Беларуси:');
karta:=LoadPicture('d:/uprajneniya/karta.gif');
DrawPicture (karta,340,0,250,200);
Writeln ( 'Озеро' :15, 'Площадь':13, 'Глубина':9);
for i:=1to 8 do
writeln (i , C[i]:15, ' ' , A[i]:7:2, ' км.кв', B [ i ]:7:2, 'м');
writeln; writeln;
Объяснение: