do
do while
do while break
do
do while
do while break
do
do while
do while break
do
do while
do while break
do while break return
do while break return
do while break return
for if switch case default
const do try false extern sizeof
throw int static enum double
char
char
Гы, я когда студентом был тоже стихи на pascal'е писал. Сейчас уже, наверное, не воспроизведу полностью, прошло больше десяти лет, но тогда они даже компилялись и как-то работали. Что-то типа такого (цифры и разные знаки читать в русской транскрипции):
i: integer; c : char;
repeat for i := 0 to 10 do begin
if c + 8 < 'u'and i + 20 in
[0 .. 25] then writeln "a";
repeat until keypressed;
end; writeln; c := readkey
until c > 's'
Курица — это инструмент, с помощью которого одно яйцо производит другие.
Здравствуйте, frogkiller, Вы писали:
F>Гы, я когда студентом был тоже стихи на pascal'е писал.
Известное стихотворение, изначально написанное на Perl 3 (в Perl 5 уже не проходит синтаксический анализ), называется "Black Perl":
BEFOREHEAD: close door, each window & exit; wait until time.
open spellbook, study, read (scan, select, tell us);
write it, print the hex whole each watches,
reverse its length, write again;
kill spiders, pop them, chop, split, kill them.
unlink arms, shift, wait & listen (listening, wait),
sort the flock (then, warn the "goats" & kill the "sheep");
kill them, dump qualms, shift moralities,
values aside, each one;
die sheep! die to reverse the system
you accept (reject, respect);
next step,
kill next sacrifice, each sacrifice,
wait, redo ritual until"all the spirits are pleased";
do it ("as they say").
do it(*everyone***must***participate***in***forbidden**s*e*x*).
return last victim; package body;
exit crypt (time, times & "half a time") & close it,
select (quickly) & warn your next victim;
AFTERWORDS: tell nobody,
wait, wait until time;
wait until next year, next decade;
sleep, sleep, die yourself,
die at last
Здравствуйте, andrey.desman, Вы писали:
AD>Не дошло
А так:
Ай интежер - Си чар.
Рипит фор ай зеро ту
тен ду бегин,
Иф си плас ейт лесс 'ю' энд
ай плас твелв ин.
[Зеро... Твенти файф] Вен райт эл эн "эй";
Рипит антил кипресст;
Энд Райт эл эн си - риид кей
Антил си лардж вен 'Эсс'!
E>do
E>do while
E>do while break
E>do
E>do while
E>do while break
E>do
E>do while
E>do while break
E>do
E>do while
E>do while break
E>do while break return
E>do while break return
E>do while break return
E>for if switch case default
E>const do try false extern sizeof
E>throw int static enum double
E>char
E>char
E>
Реально, года три назад ехал в электричке на работу, обдумывал код, какой уже не помню, перед самым выходом уснул, в голове крутилась песня А-хи "Minor Earth Major Sky", сон состоял из экрана VC++, и вот когда в голове пошёл припев: "And I try, and I try, and I try..." На экране вырисовалось это:
try
try
try
{
...
...и на "but it never comes out right", скобка закрылась с catch-ем, с чем внутри я уже не помню....
F>i: integer; c : char;
F>repeat for i := 0 to 10 do begin
F>if c + 8 < 'u'and i + 20 in
F>[0 .. 25] then writeln "a";
F>repeat until keypressed;
F>end; writeln; c := readkey
F>until c > 's'
F>
Здравствуйте, midcyber, Вы писали:
M>Здравствуйте, andrey.desman, Вы писали:
AD>>Не дошло
M>А так:
M>
M>Ай интежер - Си чар.
M>Рипит фор ай зеро ту
M> тен ду бегин,
M>Иф си плас ейт лесс 'ю' энд
M> ай плас твелв ин.
M>[Зеро... Твенти файф] Вен райт эл эн "эй";
M>Рипит антил кипресст;
M>Энд Райт эл эн си - риид кей
M>Антил си лардж вен 'Эсс'!
M>
Рипит фо И равно нулю, ту десять ду бегин.
Иф си плюс восемь меньше Ю, и И плюс двадцать ин.
Ноль — двадцать пять, зен райтелн эй,
Рипит антил кейпрессд.
Енд, райтелн, Си равно ридкей,
Антил Си больше Эс.
Здравствуйте, Сергей Выдров, Вы писали:
СВ>Рипит фо И равно нулю, ту десять ду бегин. СВ>Иф си плюс восемь меньше Ю, и И плюс двадцать ин. СВ>Ноль — двадцать пять, зен райтелн эй, СВ>Рипит антил кейпрессд. СВ>Енд, райтелн, Си равно ридкей, СВ>Антил Си больше Эс.
Здравствуйте, Сергей Выдров, Вы писали:
СВ>Рипит фо И равно нулю, ту десять ду бегин. СВ>Иф си плюс восемь меньше Ю, и И плюс двадцать ин. СВ>Ноль — двадцать пять, зен райтелн эй, СВ>Рипит антил кейпрессд. СВ>Енд, райтелн, Си равно ридкей, СВ>Антил Си больше Эс.
Ага
Курица — это инструмент, с помощью которого одно яйцо производит другие.
