Question

построить таблицу значений для функции y=x^2, на отрезке[4;10], с шагом 0,1

Answer 1

var
   x: real;

begin
   writeln('x', #9, 'y');
   x := 4;
   while(x <= 10) do
   begin
      writeln(x:3:1, #9, x * x:4:2);
      x := x + 0.1;
   end
end.