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

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

Программирование итерационных циклов

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

На рисунке 15 показан результат работы программы при a=3, h=0.4:

Рисунок 15 - результат работы программы при a=3 h=0.4

Задание №4

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

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

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

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

program kurs4;

uses crt;

var x,eps,E1,E2:real;

k:integer;

begin

clrscr;

writeln ('Enter x,eps');

readln (x,eps);

k:=1;

E1:=(sin(2*k-1)*x)/((3*k+5)*(3*k+5));

repeat

E2:=E1;

k:=k+1;

E1:=(sin(2*k-1)*x)/((3*k+5)*(3*k+5));

writeln ('E1:=',E1:5:5,'k:=',k);

until (abs(E1-E2)<eps); {«abs» используется для обозначения модуля}

writeln ('E1:=',E1:5:5);

end.