Программирование циклов для вычисления табличных функций

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

; а=6; h=0.6.

Решение на основе цикла с предусловием. Блок-схема алгоритма показана на рисунке 6.1.

Рисунок 6.1 – Блок-схема алгоритма решения задачи № 4 на основе цикла
с предусловием

Текст программы на основе цикла с предусловием:

uses crt;

var a,h,x,y:real;

begin

clrscr;

writeln ('Vvedite a, h');

readln (a, h);

x:=-a;

while (x<=a) do

begin

y:=(0.7*x*x*x+1.4*x*x+0.1)/(3.8*x*x*x-1.7*x*x+4.9);

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

x:=x+h;

end;

end.

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

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

Решение на основе цикла с постусловием. Блок-схема алгоритма показана на рисунке 6.3.

Рисунок 6.3 – Блок-схема алгоритма решения задачи № 4 на основе цикла
с постусловием

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

uses crt;

var a,h,x,y:real;

begin

clrscr;

writeln ('Vvedite a, h');

readln (a, h);

x:=-a;

repeat

y:=(0.7*x*x*x+1.4*x*x+0.1)/(3.8*x*x*x-1.7*x*x+4.9);

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

x:=x+h;

until (x>a);

end.