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

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

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

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

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

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

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

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

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

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

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

program kurs32;

uses crt;

var a,h,x,y:real;

begin

clrscr;

writeln ('Enter a,h');

readln (a,h);

x:=-a;

repeat

y:=(1.5*(x*x*x)+1.3*(x*x)+0.4)/(3.8*(x*x*x)-1.7*(x*x)+4.9);

writeln ('x=',x:4:4,' y=',y:4:4);

x:=x+h;

until (x>a+h/2);

end.

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

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

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

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

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

program kurs33;

uses crt;

var a,h,x,y:real;

i,n:integer;

begin

clrscr;

writeln ('Enter a,h');

readln (a,h);

x:=-a;

n:=round((a+a)/h)+1; {round - округляет вещественное число до ближайшего целого.}

for i:=1to n do

begin

y:=(1.5*(x*x*x)+1.3*(x*x)+0.4)/(3.8*(x*x*x)-1.7*(x*x)+4.9);

writeln ('x=',x:4:4,' y=',y:4:4);

x:=x+h;

end;

end.