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

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

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

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

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

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

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

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

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

«For» (от) Оператор цикла «for… to… do» позволяет реализовать циклический алгоритм, когда часть программы может быть выполнена много раз подряд

«To» (до)

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

program kurs22;

uses crt;

var p,x:real;

h,n:integer;

begin

clrscr;

writeln ('Enter n,x');

readln (n,x);

p:=0;

h:=1;

for h:=1 to n do

begin

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

writeln ('p=',p:4:4);

end;

end.

На рисунке 9 отображен результат работы программы при x=5 n=3

Рисунок 9 - результат работы программы при х=5, n=3.

Задание №3

Вычислить таблицу значений функции y=f(x) в диапазоне значений аргумента x ϵ [-a;a] с шагом h. Построить блок-схему алгоритма и написать программу на основе цикла с предусловием, цикла с постусловием и цикла с параметром.

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

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

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

program kurs31;

uses crt;

var a,h,x,y:real;

begin

clrscr;

writeln ('Enter a,h');

readln (a,h);

x:=-a;

while (x<=a+h/2)

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.