Файлы. Паскаль.

[Гамбит]

Доброго времени суток всем. Мне нужно написать 2 проги, наработок пока нету, потому что только сел писат проги =) как только будут- выложу. Проги ерундовые, но вы потом всётаки проверьте =)

1.Написать прогу, которая читает из типизированного файла, содержащего целые числа х(почемуто с индексом i),
Вычисляет по ним вещественые y=ctg(x(опять же с индексом i)) и записывает их в другой типизированный файл.

2.Напишите программу, которая будет вводить целые числа с клавиатуры и выводить их в файл до тех пор, пока не будет введён 0.


Ну каг-то так. И сразу вопрос, в 1 задаче лучше использовать массив?

[Namolem]

нет
считал-посчитал-записал

[Гамбит]

type ff=file of byte;
uses crt;
Procedure input(x:byte);
var f1,f2:ff; y:byte;
begin
read(f1);
y:=ctg(x)ж
write(f2,y);
end;
Var f1,f2:ff; x:byte;
begin
Assign(f1,'f:\qwe.txt');
reset(f1);
assign(f2,'f:\asd.txt');
rewrite(f2);
While not eof(f1) do;
input(x);
close(f1);
close(f2);
end.

Так?

[Aries]

Не могу понять, как записывать в файл.
Смотрел в интернете, написано, что write(f, список переменных) записывает в файл.

Вот кусок кода:
assign(f,'text.txt');
rewrite(f);
write(f,a); {а - объявленная переменная и с присвоенным значением}

Если не компилировать, то пишет, что система не нашла указанный путь. При запуске готового ехе-файла остаётся пустой text.txt.

Это правильно? Если нет, то добавте, чего не хватает или перепишите, если вообще не правильно.

[Alt]

еще добавь в конце строчку
close(f);

[Гамбит]

А мне ктонить скажет??? я правильно написал?

[Alt]

Сообщение от Гамбит

А мне ктонить скажет??? я правильно написал?

Ты вообще с синтаксисом языка не дружишь )

[Гамбит]

как ты догадался?

кароче помогите, не надо издеваться =(

[Alt]

Сообщение от Гамбит

кароче помогите, не надо издеваться =(

Я не издевался, а ответил на вопрос. =/

[Гамбит]

Сообщение от Alt

Ты вообще с синтаксисом языка не дружишь )

Ну тогда я не понял ответ...