Программа, выводящая сама себя

[prizrak1390]

to ins
Получается что мы просто напросто выводим то что введено в writeln...тогда можно так:
program selfshow;
....
writeln('program selfshow');
........
и так далее...
но разве это верное решение?! НЕТ

[Ins]

но разве это верное решение?! НЕТ

Это верное решение, потому что оно полностью удовлетворяет условию задачи - выводит текст программы буква в букву. На экране в результате работы этой программы будет выведено:

program s;{$APPTYPE CONSOLE}const A='program s;{$APPTYPE CONSOLE}const A='; B='; begin writeln(A,chr(39),A,chr(39),chr(59) ,chr(32),chr(66),chr(61),chr(39),B, chr(39),B) end.'; begin writeln(A,chr(39),A,chr(39),chr(59) ,chr(32),chr(66),chr(61),chr(39),B, chr(39),B) end.

Что и есть полный текст программы. Его можно напрямую забивать в IDE и компилировать, что и требуется по условию. Если ваш пример с Writeln делает то же самое - то это тоже верное решение.

[prizrak1390]

хм...тогда получается что все так просто???))) неверю :-D...
Ну в принципе конечно же мы получаем результат удовлетворяющий условию. По крайней мере это самый быстрый и легкий вариант...на паскале.

[Ins]

хм...тогда получается что все так просто???

Уверен? Когда видишь готовое решение, то да. А так с листа написать - нужно немного поломать голову.

[prizrak1390]

А что сложного в том, что-бы выводить текст при помощи оператора writeln??
Просто это получается статический вариант кода. Тоесть если изменить прогу например добавив операторов или удалив...придётся дописать еще writeln('writeln......');

[SNUPY]

Когда-то в школе года 2-а назад готовились к олиимпиаде на паскале учитель дал нам такое задание и она как помниться решалось с выводом стркого массива с заданными элементами при объявлении

[SunKnight]

Ins если сам написал прогу, тогда РЕСПЕКТ. Интересная реализация.

To prizrak1390
Любиш посложнее, тогда дизассемблируй тело ЕХЕшника, а код выложиш. Или найди другой способ без writeln('writeln......');
Буду признателен.

[prizrak1390]

to SunKnight
Нет...сложнее не надо да и нет смысла.

[Ins]

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

SunKnight - нет, не сам. Я поставил копирайт вроде бы - автор Гари Левандовски. Моя реализация уже давно утеряна (да и не на паскале она была), но там все куда более громоздко. Однако с тех пор я эту задачу и варианты решения к ней встречаю уж очень часто - наверное это одна из самых набивших оскомину программистских головоломок.

[GAGARIN-NEW]

А Вам уважаемые не кажется если код программы был

"writeln('writeln(1)');"

То результатом бдует
"writeln(1)"

и если заново откомпилировать то результат станет "1"
Вывод : С помощью writeln задачя не решается.