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

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

Программирование циклов для вычисления сумм и произведений рядов.

Задание №2

Вычислить выражение на Паскале. Построить блок-схему алгоритма и написать программу на основе цикла с предусловием, цикла с постусловием и цикла с параметром.

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

Рисунок 4 – БСА для решения задания №2 на основе цикла с предусловием

На основе блок-схемы (см. рисунок 4) составляется программа с использованием операторов [3]:

«While» (пока)- Оператор условия цикла. Проверяется значение выражения условие (выражение логического типа), если оно равно «True» (условие выполняется), то выполняются инструкции, находящиеся между «begin» и «end» (инструкции цикла). Затем снова проверяется значение выражения условие, и так продолжается до тех пор, пока значение выражения условие не станет равным «False». Таким образом, после слова «while» записывается условие выполнения инструкций цикла.

Данный оператор аналогичен оператору «repeat», но проверка условия выполнения тела цикла производится в самом начале оператора.

Употребляется с оператором «Do».

Далее следует текст программы:

program kurs21;

uses crt;

var p,x,n:real;

h:integer;

begin

clrscr;

writeln (‘Enter n,x’);

readln (n,x);

p:=0;

h:=1;

while (h<=n)

do begin

p:=p+(h*x)/(h-x);

writeln (‘p=’,p:4:4);

h:=h+1

end;

end.