Найдите значения функции y=x2+1,для x=0.2,0.4,0.6...,20

Задайте форматированный вывод для X всего 5 знаков, из них после запятой-один. Для Y всего восемь знаков, из них после запятой-два.

code: #pascal
function F(x: double): double;
begin
  F := x*x+1;
end;
 
const STEP = 0.2;
const _START = 0.2;
const _END = 20;
var x: double;
begin
  x := _START;
  while abs(x - _END - STEP ) > 0.0001 do begin
    writeln( 'x: ',x:5:1 ,'    y: ',F(x) :8:2 );
    x := x + STEP;
  end;  
 
end.

автор: WhiteMind

Поделиться:

Похожие статьи: