Условие

Составить программу вычисления N значений функции Y для X, изменяющегося от Х₁ с шагом dX. По формуле

Листинг

program project1;

uses

SysUtils, things, math;

var

N, i: integer;

Y, X, dX, A, X1, Border: extended;

s: string;

begin

A:= RequestNumber('Введите переменную A:');

N:= abs(round(RequestNumber('Введите число шагов N:')));

X:= RequestNumber('Введите стартовую точку X1:');

dX:= RequestNumber('Введите величину шага dX:');

Border:= 2*A;

writeln('Результат:');

for i:=1 to N do

begin

if X < Border then

Y:= -sqrt(A**2 - (x - A)**2)

else

Y:= A * (1-exp(A-x));

s:= Format('Точка %:2d: (x: %.3f, y: %.3f)', [i, X, Y]);

X += dX;

writeln(s);

end;

readln();

end.

Результаты работы программы

Блок-схема

Переменные

Задача 2.5.1.