{* Функция Y=F(x) *}

Unit RGZ_1;
Interface
Implementation
Begin
 writeln('Составить программу для получения таблицы из N значений функции Y=F(x) в равноудалённых точках интервала [a, b] Исходные значения: N=5; A=-2; B=0 ');
End.

Program rgz_1;

Uses rgz_1.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  X : REAL;
  I : REAL;
  Y : REAL;
  A : REAL;
  B : REAL;
  F : BYTE;
  N : BYTE;
  Begin
  WRITELN('ПРОГРАММА А.РУДЕНКО');
  WRITELN('Введите значения:');
  WRITE('A=');
  READLN(A);
  WRITE('B=');
  READLN(B);
  WRITE('N=');
  READLN(N);
  I := (A - B) / N;
  X := B;
For F := 0 To N Do {* Увеличиваем F от 0 до N с шагом 1 *}
  Begin
Y := X + COS(1 - X);
WRITELN('Значение функции в точке ', F + 1, ' (X=',(INT(X * 100) / 100) : 3 : 2, ')', '-> ', Y);
X := INT(X * 100) / 100 + I;
End.....