Цитата:
Сообщение от Fruto
огромное спасибо!)
а как теперь сделать так, чтобы программа сохраняла результаты (табличку) в отдельный файл?
|
Проще простого, легче лёгкого и элементарнее элементарного:
Код:
Const
Eps=0.0001;
Var
i,j:Integer;
S,x,z,A:Real;
f:text;
Begin
Assign(f,'zzzz.txt');
Rewrite(f);
for j:=0 to 4 do
begin
x:=Pi/4*j;
z:=x*5;
i:=1;
A:=z;
S:=A;
Repeat
Inc(i,2);
A:=-A*z*z/(i*(i-1));
S:=S+A;
Until Abs(A)<Eps;
Writeln('x= ',x:7:5,' Sum= ',S:12:9,' Accurate value= ',Sin(z):12:9);
Writeln(f,'x= ',x:7:5,' Sum= ',S:12:9,' Accurate value= ',Sin(z):12:9);
end;
Close(f);
Readln
End.