2018-10-23 22:06:07 +03:00
|
|
|
|
// Цикл for. Таблица функции
|
2015-05-14 22:35:07 +03:00
|
|
|
|
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
|
2018-10-23 22:06:07 +03:00
|
|
|
|
WritelnFormat('{0:f2} {1:f4}',x,sqrt(x));
|
2015-05-14 22:35:07 +03:00
|
|
|
|
x += h;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|
