Решения (задачи 105-130)
Задача 105
(Вычисление суммы ряда 1+1/2+1/3+… }
var
n: integer; { кол-во суммируемых членов ряда }
i:integer; { номер элемента ряда }
elem:real; { значение элемента ряда }
summ:real; { сумма элементов ряда }
begin
writeln('Вычисление частичной суммы ряда 1+1/2+1/3+…');
writeln('Введите кол-во суммируемых членов ряда');
write(' › ');
readln(n);
suinm: = O;
for i: = 1 to n do
begin
elem: = l/i;
summ: =suimH-elem; end;
write('Сумма первых *,n); writeln(' членов ряда равна ', suram: 6: 4); readln;
end.
Задача 106
{ Таблица степеней двойки } vax
n: integer; { показатель степени } x: integer; { значение 2 в степени n } begin
writeln('Таблица степеней двойки'); х: = 1;
for n: = 0 to 10 do begin
writeln(n:2,x:6); x: = x*2; end;
readln; end.
Задача 108
{ Таблица функции } const
LB=-2; { нижняя граница диапазона изменения аргумента }
НВ=2; { верхняя граница диапазона изменения аргумента }
DX=0.5; { приращение аргумента } var
х,у: real; { аргумент и значение функции }
n: integer; { кол-во точек }
i: integer; { счетчик циклов }96 in
n: = Round((HB – LB)/DX)+1;
x: = LB;
writelnC-------------------');
writeln(' x I y');
writeln('-------------------');
for i: = 1 to n do begin
y: = – 2.4*x*x+5*x-3; writeln(x:8:2,' I ',y:8:2); x: = x+DX; end;
writelnC-------------------');
readln; end.
Задача 111
{ Вычисляет среднее арифметическое последовательности
дробных чисел, вводимой с клавиатуры } const
L=5; { длина последовательности } var
a: real; { число }
n: integer; { кол-во введенных чисел } sum: real; { сумма введенных чисел }
sred: real; { среднее арифметическое введенных чисел } begin
writeln('Обработка последовательности дробных чисел');
writeln('После ввода каждого числа нажимайте Enter'); sum: = 0;
for n: = l to L do begin
write(' › '); readln(a); sum: = sum+a; sred: = sum/n;
writeln ('Введено чисел:',n:3, ' Сумма: ', sum:6:2, ' Сред.арифметическое:',sred:6:2); end;
writeln('Для завершения работы программы нажмите Enter');
readln; end.