Цикл поки

While умова do begin

Тіло циклу

end;

Вказівка виконується таким чином: перевіряється виконання умови, записаної після слова WHILE (поки), і якщо ця умова виконується то виконується серія операторів (тіло циклу), після чого знову повертається до перевірки виконання вказаної умови (зустрівши слово END). Вказані дії виконуються доти, поки умова, яка перевіряється дає істино. Якщо умова не виконується (результат виконання умови є хибно), то тіло циклу пропускається і виконання вказівки повторення закінчується.

Завдання 5. Знайти суми елементів збіжного ряду з точністю Е=0.01 (тобто рахувати суму поки елементи ряду більші за Е)

Тут використовуємо цикл поки, тому що наперед не відомо кількість елементів ряду які необхідно просумувати.

Отже, використовуємо цикл для сумування, добутку, підрахунку елементів ряду.

var n,f:integer;

s,a:real;

begin

S:=0;

F:=1;

N:=1; a:=1;

While a>0.01 do

begin

F:=F*n;

S:=S+n/F;

N:=n+1;

end;

writeln(S);

end.

Можна використовувати цикл для виведення таблиць.