Табулирование функции на 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.
10.02.2015, 10:26 -
Категория: Статьи » Программирование » Pascal