Результаты работы программы на основе цикла с постусловием
Программа на основе цикла с постусловием
Блок-схема алгоритма программы на основе цикла с постусловием
Результаты работы программы на основе цикла с предусловием
На рисунке 5 отображен результат работы программы при x=5 n=3
Рисунок 5 – результат работы программы при х=5, n=3.
Блок-схема алгоритма программы на основе цикла с постусловием показана на рисунке 6:
Рисунок 6 – БСА для решения задания №2 на основе цикла с постусловием
На основе блок-схемы (см. рисунок 6) напишем программу с использованием операторов [4]:
«Repeat» (Повтор) - Оператор цикла с постусловием. Чаще всего используются, когда заранее не известно кол-во итераций (кругов) и цикл должен работать до тех пор пока не выполняется условие.
«Until» (До) – Этот оператор означает что цикл будет выполнятся до тех пор, пока выражение стоящее под ним не станет истинно.
Далее следует текст программы:
program kurs22;
uses crt;
var p,x,n:real;
h:integer;
begin
clrscr;
writeln ('Enter n,x');
readln (n,x);
p:=0;
h:=1;
repeat
p:=p+(h*x)/(h-x);
h:=h+1;
writeln ('p=',p:4:4);
until h>n;
end.
На рисунке 7 отображен результат работы программы при x=5 n=3
Рисунок 7 – результат работы программы при х=5, n=3.