Тема

Итерационные циклы. Составление и отладка программы с операторами 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