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

[SunKnight]

Прога должна быть записана в одну строку, например в файл Hello.pas.

По условию нельзя использовать файлы.

[prizrak1390]

Я кодю на Delphi уже почти 5 лет и по моему нельзя при помощи Delphi вывести исходный код программы на экран...скорее всего придётся использовать не один десяток операторов Assembler'а..например как Вы объясните программе что нужно вывести на экран все переменные в разделе var или Type?? И потом вывести любую переменную на экран?...это будет интересно*можно попробовать использовать указатели...*)) А вот при помощи ассемблера можно попробовать....но не факт что получится.
Хотя используя метод типа write('write....'); Вы конечно же выполнили поставленную задачу.

[merax]

Сообщение от SunKnight

По условию нельзя использовать файлы.

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

to Призрак1390.

В принципе можно выводить декодированную область памяти.

to SunKnight. Компиль из среды разработки... Это будет илюзия что без файла

[prizrak1390]

В принципе можно выводить декодированную область памяти.
___
И что будет на выходе? мне кажется точно не исходный код. Скорее всего Вы получите код на ассемблере. Но этот процесс немного похож на дизассемблирование уже

[SunKnight]

merax, все правильно вы говорили, это я затупил слегка (тяжелый день выдался).

В принципе можно выводить декодированную область памяти.

Я так смотрю чем больше у программера опыта, тем сложней он строит решение задачи. В условии сказано "без особых знаний".

[Stilet]

Так так ... Дебугеррок новый пишем... Если что поделитесь интересно быдет посмотреть на конкурента Олли.

[Ins]

Боянище. Вот здесь есть варианты решения:
http://www.delphikingdom.com/asp/ans...IDAnswer=35202

[merax]

Чувак... Напиши короче. А потом ори боянище. Не по форумам лазай, а сделай. Откуда вас только таких "умных" берут блин

[prizrak1390]

to ins
Побывал на том форуме...там речь о функции а у нас о целой программе...
а во вторых там аналог того что тут уже было написанно....*write('write...')*
Вообщем там только флуд...

[Ins]

Да, я утверждаю, что это боян. По следующим причинам:
1. Я эту задачу впервые увидел не помню сколько лет назад, правда решать предлагалось на Си
2. По форумам я лажу лишь по тем, по которым я лажу. Что касается Королевства - то я являюсь его постоянным посетителем около трех лет, этот вопрос я там видел еще тогда, когда он был задан.
Сейчас просто вспомнил и привел ссылку. Доказательство - ссылка на мой профиль на этом сайте:
http://www.delphikingdom.com/asp/users.asp?ID=7070
3. Привести решение этой задачи - я разве не привел? Такое подойдет?

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.

Автор - Gary Lewandowski
P.S. Воздержись-ка от наездов, уважаемый, ладно? Или же покажи где в моих словах ты увидел личные наезды и оскорбления?