Тема
Итерационные
циклы. Составление и отладка программы
с операторами while и do-while.
Задание
По индивидуальному заданию составить и
отладить программу с операторами while и do-while.
Алгоритм
S = h² + 3 + h² + 5 + h² + 7 +
………
2 4 6
Вычислять
сумму до тех пор, пока дробь меньше 220. Не вычислять когда знаменатель
находится в интервале от 10 до 40.
Контрольный пример
Drob
= 99.50
Itog
= 99.50
Drob
= 50.25
Itog
= 149.75
Drob
= 33.83
Itog
= 183.58
Drob
= 25.63
Itog
= 209.21
Drob
= 20.70
Itog
= 209.21
Drob
= 17.42
Itog
= 209.21
Drob
= 15.07
Itog
= 209.21
Drob
= 13.31
Itog
= 209.21
Drob
= 11.94
Itog
= 209.21
Drob
= 10.85
Itog
= 209.21
Drob
= 9.95
Itog
= 209.21
Drob
= 9.21
Itog
= 209.21
Drob
= 8.58
Itog
= 209.21
Drob
= 8.04
Itog
= 209.21
Drob
= 7.57
Itog
= 209.21
Drob
= 7.16
Itog
= 209.21
Drob
= 6.79
Itog
= 209.21
Drob
= 6.47
Itog
= 209.21
Drob
= 6.18
Itog
= 209.21
Drob
= 5.93
Itog
= 209.21
Drob
= 5.69
Itog
= 214.90
Drob
= 5.48
Itog
= 220.38
Распечатка программы
program
Lab9;
{$APPTYPE
CONSOLE}
uses
SysUtils;
var
s,h:real;
n:integer;
begin
h:=14;
s:=0;
n:=2;
while s<220 do
begin
if not((n>=10) and (n<=40)) then
s:=s+(h*h+(n+1))/n;
writeln('Drob = ', (h*h+(n+1))/n:5:2);
writeln('Itog = ', s:5:2);
n:=n+2;
end;
read(n);
end.
Распечатка исходных данных
H=14;
Распечатка результатов
Drob = 99.50
Itog
= 99.50
Drob
= 50.25
Itog
= 149.75
Drob
= 33.83
Itog
= 183.58
Drob
= 25.63
Itog
= 209.21
Drob
= 20.70
Itog
= 209.21
Drob
= 17.42
Itog
= 209.21
Drob
= 15.07
Itog
= 209.21
Drob
= 13.31
Itog
= 209.21
Drob
= 11.94
Itog
= 209.21
Drob
= 10.85
Itog
= 209.21
Drob
= 9.95
Itog
= 209.21
Drob
= 9.21
Itog
= 209.21
Drob
= 8.58
Itog
= 209.21
Drob
= 8.04
Itog
= 209.21
Drob
= 7.57
Itog
= 209.21
Drob
= 7.16
Itog
= 209.21
Drob
= 6.79
Itog
= 209.21
Drob
= 6.47
Itog
= 209.21
Drob
= 6.18
Itog
= 209.21
Drob
= 5.93
Itog
= 209.21
Drob
= 5.69
Itog
= 214.90
Drob
= 5.48
Itog
= 220.38