Цикл "Доки". Команди While, Repeat..

1)      Цикл "Доки". Команди While, Repeat.

While

            умова do

begin

Тіло циклу

end;

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

Приклад. Вивести таблицю чисел від 20 до 30, їхні квадрати та куби за допомогою команди while можна так:

і := 20;

while  і <= 30 do

begin

writeln(і:4, i*i:6, i*i*i:8);

і:=і+1;

      end;

Команда циклу з післяумовою (repeat) має вигляд

        repeat <команди> until <логічний вираз>;

Дія команди. Команди виконуються в циклі, доки значення логічного виразу не стане істинним. Істинний логічний вираз задає умову виходу з циклу.

2) Демонстраційний приклад.

 

Завдання

Протабулювати функцію y=x² на відрізку [a,b] кроком h.

var x,y,a,b,h:real;

begin

readln(a,b,H);

x:=a;

while x<=B do

            begin

Y:=x*x;

writeln(x,’ ‘,y);

end;

end.

1)      Розв’язування задач.

  Скласти програму знаходження суми коренів квадратних цілих чисел від  0 до 50.

- Скласти програму знаходження суми всіх парних чисел від N до 50.