Цикл з передумовою

Загальний вигляд:

WHILE <логічний вираз,V> DO <оператор,S>

  S

1 (V)

0

Приклад: нескінченний цикл

WHILE TRUE WRITE (‘Нескінченний цикл’);

Приклад: обчислити тобто суму квадратів непрних чисел від одного до n.

program sum_of_sqr;

{Програма обчислює суму квадратів непарних чисел}

var s,n,i,step: integer;

begin

write('введіть кінцеве значення, n:');

readln(n);

i:=1;

step:=2;

s:=0;

while i<=n do begin

s:= s+i*i;

i:=i+step;

end;

writeln('сума дорівнює',s)

end.

З наведених прикладів ясно, що <логічний вираз, v> в тілі циклу повинен змінюватись, бо інакше ми отримаємо нескінченний цикл. Крім того, логічний вираз повинен бути коректним, так як ймовірні ситуації, коли кінець циклу стає недосяжним (зациклювання).

Приклад: Обчислити суму ряду 1/2+1/4+1/8+1/16+ … (коректна умова виходу з циклу - обчислення з наданою точністю)

program sum_2;

var s,st:real;

i:integer;

eps:real;

begin

write('введіть точність обчислювання: ');

readln(eps);

i:=2;

st:=1;

s:=0;

while st>=eps do begin

st:=st/i;

s:=s+st

end;

writeln('сума дорівнює',s)

end.

Дата добавления: 2015-08-09