ПАСКАЛЬ: ЦИКЛ "ПОКИ" ТА ЙОГО ВИКОРИСТАННЯ
Оператору з перед-умовою відповідає блок-схема, зображена на рис.4.1.
Повернемося до задачі. Послідовність операторів для обчислення an при a=2, n=3 задає процес
p:=1; k:=3;
обчислення умови k>0: true ;
p:=1*2; k:=3-1; {p=2; k=2}
обчислення умови k>0: true;
p:=2*2; k:=2-1; {p=4; k=1}
обчислення умови k>0: true;
p:=4*2; k:=1-1; {p=8; k=0}
обчислення умови k>0: false,
а при a=5, n=0 – процес
p:=1; k:=0;
обчислення умови k>0: false.
У вигляді коментарів тут указано стани пам'яті наприкінці циклів.
Запишемо, нарешті, функцію pow:
function pow(a, n:integer):integer;
var p, k: integer;
begin
p:=1; k:=n;
while k>0 do
begin p:=p*a; k:=k-1 end;
pow:=p
end;
Приклад 4.2. Розглянемо задачу: за цілим A>0 обчислити мінімальне n таке, що n! A.