15 lines
230 B
ObjectPascal
15 lines
230 B
ObjectPascal
// Öèêë for. Òàáëèöà ôóíêöèè
|
|
var
|
|
a: real := 0;
|
|
b: real := 4;
|
|
n: integer := 16;
|
|
|
|
begin
|
|
var h := (b-a)/n;
|
|
var x := a;
|
|
for var i:=0 to n do
|
|
begin
|
|
writelnFormat('{0:f2} {1:f4}',x,sqrt(x));
|
|
x += h;
|
|
end;
|
|
end. |