14 lines
227 B
ObjectPascal
14 lines
227 B
ObjectPascal
procedure PrintTable(f: RealFunc; a,b: real; n: integer);
|
|
begin
|
|
var h := (b-a)/n;
|
|
var x := a;
|
|
for var i:=0 to n do
|
|
begin
|
|
writeln(x:3:1,f(x):7:2);
|
|
x += h;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
PrintTable(sqr,0,5,10);
|
|
end. |