Результаты работы программы на основе цикла с постусловием

Программа на основе цикла с постусловием

Блок-схема алгоритма программы на основе цикла с постусловием

Результаты работы программы на основе цикла с предусловием

На рисунке 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.