- Код: Выделить всё
program teylor_tab_1;
var a, b, h, _eps : double;
x, sl, sc, el : double;
i : integer;
f1, f2, f3 : text;
begin
a := 0;
b := 4;
h := 0.3;
_eps := 1E-6;
assign(f1, 'tt1.out');rewrite(f1);
assign(f2, 'tt2.out');rewrite(f2);
assign(f3, 'tt3.out');rewrite(f3);
x := a;
while (x <= b) do
begin
sl := x;
el := x * (-1) * sqr(x) / (3 * 6);
sc := sl + el;
i := 1;
while (abs(sl - sc) > _eps) do
begin
sl := sc;
inc(i);
el := el * (-1) * sqr(x) * (2 * i - 1) / ((2 * i + 1) * (2 * i + 1));
sc := sl + el;
end;
writeln(f1, x:0:5,' ',sl:0:7);
writeln(f2, x,' ',sl:0:7);
writeln(f3, x:0:4,' ',sl);
x := x + h;
end;
close(input);
end.
fpc2.0.0
первый файл создаётся нормально ,а второй и третий пишутся не полностью. если при записи третьего файла поставить
writeln(f3, x:0:3,' ',sl); пишется на 1 строку больше. Проверьте у себя пожалуйста ,и отпишите о результатах.