Написать код программы с использованием цикла while ** PascalABC. Определить все значения...

Question

Написать код программы с использованием цикла while на PascalABC.
Определить все значения при условии Δx=1,005 (шаг)

Answer 1

Const
  x0 = 1.909;
  x1 = 6.23;
  step = 1.005;
  t=10;
var
  i: real;
begin
  i:=0;
  while i<(x1-x0)/step do<br>  begin
    writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
    i:=i+step;
  end;
  if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)<br>end.