Куин
Куин — программа, которая возвращает (печатает на экран) свой собственный исходный код.
ПримерыПравить
ГлаголПравить
ОТДЕЛ Самовывод+;ИСПОЛЬЗУЕТ ОС ИЗ "...\Отделы\Обмен\",Знак ИЗ "...\Отделы\Иное \";ПЕР ц:РЯД 322 ИЗ ЗНАК;ЗАДАЧА з(ч:ЗНАК);ПЕР н:ЦЕЛ;УКАЗ н:=Знак.ВДос(ч);ОС.Пи сатьФ(ОС.ссылкаНаВывод,н,1)КОН з;ЗАДАЧА в(н,к:ЦЕЛ);ПЕР с:ЦЕЛ;УКАЗ ОТ с:=н ДО к ВЫП з(ц[с])КОН КОН в;УКАЗ ц:='ОТДЕЛ Самовывод+;ИСПОЛЬЗУЕТ ОС ИЗ "...\Отделы\О бмен\",Знак ИЗ "...\Отделы\Иное\";ПЕР ц:РЯД 322 ИЗ ЗНАК;ЗАДАЧА з(ч:ЗНАК);ПЕР н :ЦЕЛ;УКАЗ н:=Знак.ВДос(ч);ОС.ПисатьФ(ОС.ссылкаНаВывод,н,1)КОН з;ЗАДАЧА в(н,к:Ц ЕЛ);ПЕР с:ЦЕЛ;УКАЗ ОТ с:=н ДО к ВЫП з(ц[с])КОН КОН в;УКАЗ ц:=;в(0,263);з(27X); в(0,320);з(27X);в(264,320)КОН Самовывод.';в(0,263);з(27X);в(0,320);з(27X);в(26 4,320)КОН Самовывод.