ПРОГРАММИРОВАНИЕ ЦИКЛОВ С УСЛОВИЕМ
Цель работы: Овладеть навыками программирования на языке Паскаль алгоритмов циклической структуры с использованием операторов цикла с предусловием и постусловием.
Краткие сведения из теории
Для программирования циклов ПОКА в Паскале существуют оператор цикла с предусловием WHILE и оператор цикла с постусловием REPEAT.
ПРИМЕР 1: Алгоритм Евклида для подсчета НОД (наибольшего общего делителя) двух натуральных чисел.
П Р О Г Р А М М А
program Evklid;
var a,b,x,y,z: integer;
begin
writeln ('Введите числа');
readln (a,b);
x:=a; y:=b;
while (x< >y) do
if x > y
then x:=x-y
else y:=y-x;
z:=x;
writeln ('НОД=',z)
end.
ПРИМЕР 2: Вычислить сумму членов ряда с точностью до члена ряда, меньшего Е.