Катуха

Помогите!!! Очень нужно дописать программу в текстовый файл. Вот условие:
"Даны вещественные числа А, В и целое число N. создать текстовый файл, содержащий таблицу значений функции
f(x)=[sin(x)] на промежутке [A, B] с шагом (B - A) / N. Таблица состоит из двух столбцов: с аргументами x (10 позиций, из них 3 под дробную часть) и со значениями f(x) (15 позиций, из них 8 под дробную часть). Столбцы выравниваются по правому краю и разделяются 10 пробелами."

Сама программа есть,осталось только в текстовый файл переделать.

f,x,A,B:real;
N:integer;
Begin
read (A,B,N)
h:=(B-A)/N;
x:=A;
while x
begin
f:=sin (x);
writeln (x:10:3, (10 пробелов), f:15:8);
x:=x+h;
end;
end.

Vladimir_S

Да уж, есть...

VAR
f,x,A,B,h:real;
N:integer;
fl:TEXT;
Begin
read(A,B,N);
h:=(B-A)/N;
Assign(fl,'C:/res.dat');
ReWrite(fl);
x:=A;
while x<=B do
begin
f:=sin (x);
writeln(fl,x:10:3, (10 пробелов), f:15:8);
x:=x+h;
end;
Close(fl);
end.

Катуха

Спасибо большое,очень выручили)