Модули и процедуры

[puporev]

Попробовал, почему-то записывает в текстовый файл не весь текст модуля. Почему, не знаю, просто ни разу такое не делал.

[Алексей Д.]

Ну выложи плиз свой вариант..

Я вот так сделал, но проверить не могу, модуль не компилируется..

program lab5;
uses crt, modul;
var
procedure print(var dest: text; const f_name: string);
var
f: text;
s: string;
begin
print;
end;
var
txt: text;
s: string;
i: integer;
begin
write('Imya faila: '); readln(s);
writeln('Vvedite 1) pechat 2) prosmotr');
readln(i);
case i of
1: print(lst, s);
2:
begin
assigncrt(txt); rewrite(txt);
print(txt, s);
close(txt);
end;
end;
readln;
end.

[puporev]

смотри, разбирайся.

[Алексей Д.]

Ок, я бы разобрался, но у меня не находится не один модуль..даже graph..пишет file not found (GRAPH.TPU).. ты вот какой программой пользуешься? Мож у меня недоделка какая нить..

[puporev]

Я пользуюсь Turbo Pascal 7.0. Скачал когда-то в интернете. Нормально работает. Так ты посмотри в папке BIN, есть эти модули или нет. Или скачай и установи снова программу.

[Алексей Д.]

Что самое удивительное все необходимые модули есть в папке units, но работает из них только printer..остальное не находит..

[puporev]

А ты попробуй нужные модули скопировать а папку BIN.

[Алексей Д.]

Слушай, можешь тогда протестировать мою прогу..ту что я выше написал..модуль modul это вот этот:

unit modul;
interface
procedure visitka;
procedure print(var dest: text; const f_name: string);
implementation
procedure visitka;
begin
writeln('bla bla bla');
end;
procedure print(var dest: text; const f_name: string);
var
f: text;
s: string;
begin
assign(f, f_name); reset(f);
while not eof(f) do begin
readln(f, s);
writeln(dest, s);
end;
end;
end.

[puporev]

Нормально компилируется.

[Алексей Д.]

А ты не знаешь как модуль превратить в файл с расширением .TPU??

Я свой модуль сохранил в таком расширении..а когда программу запускал пишет unit file format error