Пример решения задачи. Задание: Составить схему алгоритма для вычисления значений функции

Задание: Составить схему алгоритма для вычисления значений функции

от значения x ₁ = 1 до значения x _n = 5 с шагом Δ x =0,5.

Решение: Блок-схемы алгоритмов вычислений и тексты программ с использованием операторов цикла while, repeat, for приведены ниже.

 

1) While

Рисунок 3.1

 

 

 

 

 

Да Нет

 

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

 

 

Текст программы:

program p3a;

var x,y,xk,xn,dx:real;

begin

write(‘Введите начальное, конечное и шаг=’);

readln(xn,xk,dx);

x:=xn;

writeln(' Таблица');

writeln('┌─────┬─────┐');

writeln('│ X │ Y │');

while x<=xk do

begin

y:=ln(sqr(x)+2*x+10);

writeln('├─────┼─────┤');

writeln('│',x:5:2,'│',y:5:2,'│');

x:=x+dx;

end;

writeln('└─────┴─────┘');

readln;

end.

2) Repeat

Рисунок 3.2

 

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

 

Текст программы:

program p3a;

var x,y,xk,xn,dx:real;

begin

write(‘Введите начальное, конечное и шаг=’);

readln(xn,xk,dx);

x:=xn;

writeln(' Таблица');

writeln('┌─────┬─────┐');

writeln('│ X │ Y │');

repeat

y:=ln(sqr(x)+2*x+10);

writeln('├─────┼─────┤');

writeln('│',x:5:2,'│',y:5:2,'│');

x:=x+dx;

until x>=xk;

writeln('└─────┴─────┘');

readln;

end.

 

Результат выполнения контрольного примера:

Таблица

┌─────┬─────┐

│ X │ Y │

├─────┼─────┤

│ 1.00 │ 2.56 │

├─────┼─────┤

│ 1.50 │ 2.72 │

├─────┼─────┤

│ 2.00 │ 2.89 │

├─────┼─────┤

│ 2.50 │ 3.06 │

├─────┼─────┤

│ 3.00 │ 3.22 │

├─────┼─────┤

│ 3.50 │ 3.38 │

├─────┼─────┤

│ 4.00 │ 3.53 │

├─────┼─────┤

│ 4.50 │ 3.67 │

├─────┼─────┤

│ 5.00 │ 3.81 │

└─────┴─────┘

3) For

Рисунок 3.3

 

 

	Блок-схема алгоритма вычислений с использованием оператора цикла с параметром FOR

 

 

Текст программы:

 

program p3a;

var x,y,x1,xn,dx:real;

k,n:integer;

begin

write(‘Введите начальное, конечное и шаг=’);

readln(x1,xn,dx);

n:=Round((xn-x1)/dx)+1;

writeln(' Таблица');

writeln('┌────┬─────┐');

writeln('│ X │ Y │');

for k:=1 to n do

begin

x:=x1+(k-1)*dx;

y:=ln(sqr(x)+2*x+10);

writeln('├─────┼─────┤');

writeln('│',x:5:2,'│',y:5:2,'│');

end;

writeln('└─────┴─────┘');

readln;

end.