Решения (задачи 105-130)
Задача 112
{ Вычисляет среднее арифметическое и определяет
минимальное и максимальное число последовательности
дробных чисел, вводимых с клавиатуры } var
a: real; { очередное число }
n: integer; { количество чисел }
sum: real; (сумма введенных чисел }
sred: real; { среднее арифметическое }
min: real; (минимальное число последовательности }
max: real; { максимальное число последовательности }
i: integer; { счетчик циклов }
begin
writeln('Обработка последовательности дробных чисел.');
write ('Введите количество чисел последовательности › '); readln(n);
writeln('Вводите последовательность.'); writeln('После ввода каждого числа нажимайте Enter');
write(' › ');
readln(a); { вводим первое число последовательности } { предположим, что:}
min: = a; { первое число является минимальным }
mах: = а; { первое число является максимальным } sum: = a;
{ введем остальные числа } for i: = l to n-1 do begin
write(' › ');
readln(a);
sum: = sum+a;
if a < min then min: = a;
if a > max then max: = a; end; sred: = sum/n;
teln('Количество чисел:*,п); writeln('Среднее арифметическое:',sred:6:2);
writeln('Минимальное число:',min:6:2); writeln('Максимальное число:',шах:б:2);
writeln('Для завершения работы программы нажмите Enter');
readln; end.
Задача 114
(Генерирует три последовательности случайных чисел
и вычисляет среднее арифметическое каждой последовательности } const
N=3; { кол-во последовательностей } L=10; { длина последовательности) var
r: integer; (случайное число }
sum: integer; { сумма чисел последовательности }
sred: real; (среднее арифметическое } i,j: integer; { счетчики циклов } begin
writeln('Случайные числа');
Randomize; { инициализация генератора случ. чисел } for i: = l to N do begin
{ генерируем последовательность } sum: = 0; { не забыть обнулить! } for j: = 1 to L do begin
r: = Random(10)+1; write(r:3); sum: = sum+r; end;
sred: = sum/L;
writeln(' Сред.арифм.: ',sred:6:2); end;
writeln('Для завершения работы программы нажмите Enter');
readln; and.
Задача 116
(Таблица функции у"|х| } const
LB=-4; { нижняя граница диапазона изменения аргумента }
НВ=4; (верхняя граница диапазона изменения аргумента }
DX=0.5; { приращение аргумента } var
х,у: real; { аргумент и значение функции }
n: integer; (кол-во точек } 1: integer; { счетчик циклов } begin
writeln('Таблица значений функции у=IхI '); n: = Round((НВ – LB)/DX)+1; x: = LB;
for i: = l to n do begin
y: = Abs(x);
writeln(x:6:2,y:6:2); x: = x+DX; end;
readln; end.
Задача 119
{ Выводит таблицу умножения на 7 } var
m: integer; { число, для которого надо вывести таблицу умножения (множимое) }
n: integer; { множитель }
р: integer; { произведение } begin
m: = 7;
for n: = l to 10 do
begin
p: = ra*n;
writeln(m,'x',n,' =', p);
end;
readln; { чтобы результат не исчезал с экрана }
end.