Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Интересные и занимательные задачи по программированию > Печать сырцов из сырцов

Автор: Mayk 27.11.2005, 00:00

Необходимо составить 2 программы. Одна программа печатает исходник второй, вторая печатает исходник первой.
Язык - пусть любой(задавалось в книге по пасу).
У кого какие идеи на этот счёт?

Автор: Rick 28.11.2005, 22:31

с Делфи все просто,а вот с Паскалем...надо думать

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
a:='';
assignfile(input,'second.pas');
reset(input);
while not(EOF(input)) do begin
read(input,chet);
a:=a+chet;
end;
closefile(input);
memo1.Text:=a;

соответственно

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
a:='';
assignfile(input,'first.pas');
reset(input);
while not(EOF(input)) do begin
read(input,chet);
a:=a+chet;
end;
closefile(input);
memo1.Text:=a;

Автор: maxim1000 29.11.2005, 01:35

достаточно два раза написать программу, которая выводит свой текст, а это где-то тут уже обсуждалось smile