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

[Алексей Д.]

Написать модуль содержащий процедуру Визитка, со всей обо мне информацией( Ф.И.О, номер группы и т.д.) и процедуры, позволяющие просматривать на экране и распечатывать на принтере тексты паскаль программ.

Я вот пока даже подобрать название модулю не могу..вроде не Graph..а других не знаю..

[Stilet]

Ты сначала определись на каком языке делать будешь.
И как делать будешь.

[Алексей Д.]

На языке Паскаль..а как..да вот сам не знаю..

Что то набросал..но во первых не может найти ни один модуль(not found '...'.TPU), во вторых просит написать begin где то..

program lab5;
uses crt, ;
unit modul;
interface
procedure vizitka;
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;

[Stilet]

unit modul;
interface

Убрать.

Добавить в конец:

begin
 Visitka;
 print(<файл который ты используешь>,<его имя>);
end.

[puporev]

Мне кажется, что если товарищ пишет модуль, то убрать надо

program lab5;   
uses crt, ;

А дальше:

unit modul;   
interface  
procedure vizitka;   
procedure print(var dest: text; const f_name: string);   
implementation
procedure vizitka;   
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.

[Stilet]

а-а-а возможно.
В общем автору выбирать.

[Алексей Д.]

Ааа...понял немного..вопрос: а вторая процедура позволяет просматривать на экране и выводить на принтер тексты паскаль программ, если вместо f_name ввести путь, или нужно дополнить этот модуль вот этим:

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.

дабы обратится к этой процедуре print..

[Алексей Д.]

А почему мне на этот модуль:

   1. unit modul;     
   2. interface    
   3. procedure vizitka;     
   4. procedure print(var dest: text; const f_name: string);     
   5. implementation  
   6. procedure vizitka;     
   7. begin    
   8. writeln('bla bla bla');     
   9. end;     
  10. procedure print(var dest: text; const f_name: string);     
  11. var    
  12. f: text;     
  13. s: string;     
  14. begin    
  15. assign(f, f_name); reset(f);     
  16. while not eof(f) do begin    
  17. readln(f, s);     
  18. writeln(dest, s);     
  19. end;     
  20. end.

пишет undefined forward (vizitka)??

[puporev]

Скопировал ваш код, указывает что не хватает end; в конце и ни на что не "матерится", нормально компилируется.

[Алексей Д.]

Странно..еще раз попробовал, заработало) А не знаешь как сделать прогу с использованием этого модуля для просмотра и распечатки текста самого модуля? =)