Табулирование функции на Pascal

Табулирование функции...

function f(x: real): real;
begin
  Result := x*x - 2*x + 3;
end;
 
var 
  a,b: real; // [a,b] - отрезок, на котором табулируется функция f(x)
  N: integer;   // Количество частей, на которые разбивается [a,b]
 
begin
  write('Введите a,b: ');
  readln(a,b);
  write('Введите N: ');
  readln(N);
 
  var h := (b-a)/N;
  var x := a;
  writeln('x     f(x)');
  for var i:=0 to N do
  begin
    writelnFormat('{0,3:f1} {1,6:f2} ',x,f(x));
    x += h;  
  end;
end.



Просмотров: 4787
10.02.2015, 10:26 -

Категория: Статьи » Программирование » Pascal