Программирование на языке Pascal
Автор: Александр Шмыркин • Январь 18, 2019 • Контрольная работа • 3,520 Слов (15 Страниц) • 407 Просмотры
КОНТРОЛЬНАЯ РАБОТА
На тему: «Программирование на языке Pascal »
По дисциплине: «Программирование и программное обеспечение
информационных технологий»
2017
Одномерные массивы.
Задача №1.
Условие: Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.
Описание: Размер массива и данные массива вводится с клавиатуры с помощью оператора readln. Затем по условию p:=p+a[i] происходит сложение всех элементов.
Program posled;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
write('Введите количество цифр '); readln(n);
p:=0;
for i:=1 to n do
begin
write ('Введите число '); readln (a[i]);
p:=p+a[i];
end;
writeln('Сумма элементов равна: ',p);
End.
Результат:
Введите количество цифр 5
Введите число 4
Введите число 4
Введите число 7
Введите число 3
Введите число 9
сумма элементов равна: 27
Задача №2.
Условие: Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.
Описание: Количество элементов вводится с клавиатуры с помощью оператора readln. Данные массива выбираются рандомно условием a[i]:=Random (56)-28. Затем происходит отбор чисел кратных трем оператор mod. И условием p:=p*a[i] происходит перемножение чисел кратных трем.
Program proisveden;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write ('Количество элементов: '); Readln (n);
p:=1;
For i:=1 to n do
begin
a[i]:=Random(56)-28; writeln(‘число ’, a[i]);
if a[i] mod 3=0 then p:=p*a[i];
writeln(‘Произведение ’, p);
end;
writeln;
writeln('произведение элементов равно: ',p);
End.
Результат:
Количество элементов 3
чиссло 24
Произведение 24
число -7
Произведение 24
число -9
Произведение -216
произведение элементов равно: -216
Задача №3.
Условие: Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.
Описание: Количество элементов массива вводится с клавиатуры с помощью оператора readln. С помощью функции mod происходит проверка номера элемента и отбираются нечетные. Затем условием p:=p+a[i] происходит сложение элементов с нечетными номерами. Условием k:=k+1 происходит сложением количество нечетных номеров элементов. И условием sred:=p/k вычисляется среднее арифметическое элементов с нечетными номерами.
Program three;
Var a: array[1..100] of integer;
i, k, p, n: integer;
sred: real;
Begin
Write ('Количество элементов массива: '); Readln (n);
p:=0;
For i:=1 to n do
begin
write ('введите число'); readln (a[i]);
if i mod 2<>0 then
begin
p:=p+a[i]; k:=k+1;
end;
end;
sred:=p/k;
writeln('среднеарифмитическое введеных элементов c нечетными номерами равно: ',sred);
End.
Задача №4.
Условие: Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. Размер произвольный.
...