Назначение переменных

Xn – начальное значение интервала для переменной Х.

Xk – конечное значение интервала.

H – шаг изменения переменной Х.

Y – искомое значение функции при текущем значении аргумента.

K – количество итераций (шагов) выполнения циклического процесса для вычисления таблицы значений функции.

Z – переменная, значение которой определяется в программе.

Х – переменная цикла, содержит текущее значение для вычисления функции.

1. Способ (применение цикла с предусловием)

Блок-схема алгоритма:

Листинг программы:

Program exp1;

Uses Сrt;

Const pi= 3.14;

Var Xn, Xk, X, Y, H, Z: real;

Begin

Clrscr;

Writeln(‘Введите Xn, Xk, h’);

Readln(xn, xk, h);

x:=xn;

z:=pi;

While x<=xk do begin

If x<pi/7 then y:=sin(z)-cos(x)

else begin

If x=pi/7 then y:=sqrt(cos(x)+z)

else y:=sin(x)+cos(z)

end;

Writeln(‘X=’, x:7:2, ’ Y=’, y:7:2);

x:=x+h;

end;

Readkey;

End.

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

Блок-схема алгоритма:

Листинг программы:

Program exp2;

Uses crt;

Const pi= 3.14;

Var Xn, Xk, X, Y, H, Z: real;

Begin

Clrscr;

Writeln(‘Введите Xn, Xk, h’);

Readln(xn, xk, h);

x:=xn; z:=pi;

Repeat

If x<pi/7 then y:=sin(z)-cos(X)

else begin

If x=pi/7 then y:=sqrt(cos(x)+z)

else y:=sin(x)+cos(z)

end;

Writeln(‘X=’,x:7:2,’ Y=’,y:7:2);

x:=x+h;

Until x>xk;

Readln

End.

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

Введите Xn, Xk, h

4.5

0.2

X = 4.50 Y = -1.00

Х = 4.70 Y = -2.08

Х = 4.90 Y = 1.46

3. Способ (применение цикла со счетчиком)

Блок-схема алгоритма:

Листинг программы:

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

Введите Xn, Xk, h

4.5

0.2

X = 4.50 Y = -1.00

Х = 4.70 Y = -2.08

Х = 4.90 Y = 1.46