Question

Написать код программы с использованием цикла while на PascalABC.
Определить все значения $alpha = sqrt{1+ x^{2} }+t$ при условии $1,909 leq x leq 6,23$ $alpha x=1,005$  $t=10$ Δ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
  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)
end.