Куин

Материал из свободной русской энциклопедии «Традиция»
Перейти к навигации Перейти к поиску

Куинпрограмма, которая возвращает (печатает на экран) свой собственный исходный код.

Примеры[править | править код]

Глагол[править | править код]

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