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

Категория: Delphi/Pascal
2016-04-11 19:16:34

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

code: #pascal
function F(x: double): double;
begin
  F := x*x - 1;
end;
 
var 
  x: double;
begin
  x := 0.1;
  while x < 20.0001 do begin
    writeln( 'x: ' , x :5:1 , ' y: ' , F(x) :8:2 );
    x := x + 0.1;  
  end;
 
end.

автор: WhiteMind

Поделиться:

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

теги: функция