Question

вычислить значение для функции В=А+С^2, если в=2, а значение С изменяется на отрезке от 1 до 10, с шагом 0,5                                      ( составить программный код в паскале)

Answer 1

var
  b, a ,c : Real;
begin
  c := 1;
  b := 2;

 

  while c <= 10 do
  begin
    a := 2 - sqr(c);
    //Writeln(b:2:2, '=', a:2:2, '+', sqr(c):2:2);
    Writeln('При C = ', c:2:2, ' A = ', a:2:2, ' B = ', b:2:2);
    c := c + 0.5;
  end;

 

  Readln;
end.