Спасибо всем кто не поленился сюда зайти!
Народ!!! В который раз прошу о помощи! Валюсь на сесии!
Нужно написать прогу на Turbo Pascal чтоб она выводила на екран сама себя, без сохранения исходника на диск.
Спасибо!
Полная версия: Программа, которая выводит на экран саму себя
Классная задача, решал с большим удовольствием. Решение на Дельфи, но единственным отличием будет модуль который прописан в Uses.
program Project1;
Uses SysUtils; var s:array[1..10] of string;i:integer;
begin
s[1]:='program Project1;';
s[2]:='Uses SysUtils; var s:array[1..10] of string;i:integer;';
s[3]:='begin';
s[4]:='for i:=1 to 3 do writeln(s[i]);';
s[5]:='For i:=1 to 7 do writeln(format(''s[%d]:=''''%s'''''',[i,s[i]]));';
s[6]:='for i:=4 to 7 do writeln(s[i]);';
s[7]:='end.';
for i:=1 to 3 do writeln(s[i]);
For i:=1 to 7 do writeln(format('s[%d]:=''%s''',[i,s[i]]));
for i:=4 to 7 do writeln(s[i]);
end.
Код
program Project1;
Uses SysUtils; var s:array[1..10] of string;i:integer;
begin
s[1]:='program Project1;';
s[2]:='Uses SysUtils; var s:array[1..10] of string;i:integer;';
s[3]:='begin';
s[4]:='for i:=1 to 3 do writeln(s[i]);';
s[5]:='For i:=1 to 7 do writeln(format(''s[%d]:=''''%s'''''',[i,s[i]]));';
s[6]:='for i:=4 to 7 do writeln(s[i]);';
s[7]:='end.';
for i:=1 to 3 do writeln(s[i]);
For i:=1 to 7 do writeln(format('s[%d]:=''%s''',[i,s[i]]));
for i:=4 to 7 do writeln(s[i]);
end.
Ну я ваще обалдел :o
Никогда бы не догадался использовать масив :)
Никогда бы не догадался использовать масив :)
Цитата
Ну я ваще обалдел :o
Никогда бы не догадался использовать масив
Никогда бы не догадался использовать масив
А по другому никак!
можно через рекурсию
"Назвался груздем - полезай в кузов" !!!
Код, если не затруднит, в студию !
Код, если не затруднит, в студию !
Цитата
"Назвался груздем - полезай в кузов" !!!
вообще все более жестоко.
назвался клизмой........ :D
археологоия на форуме не приветсвуется да еще без смысла если.
зыкрыто!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.