Question

Вычислить значение функции Y=X^2-5x+8, где X принадлежит интервалу (-5;5). В написать это в программе ПАСКАЛЕ!!!!!

Answer 1

uses Crt;
var
  x,y:real;
begin
  ClrScr;
  x:=-5;
  while x<5 do
  begin
     y:=sqr(x)-5*x+8;
     Writeln(x:3:1,y:7:2);
     x:=x+0.1
  end;
  ReadKey
end.