15 lines
230 B
ObjectPascal
15 lines
230 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD> for. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
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.
|