(Палиндромы, панторифмы, акростихи) - 2001-05-03
{*****
* Для чтения стишка достаточно иметь
* смутное представление о том, что такое
* - структура программы
* (процедура, тело программы);
* - глобальная переменная;
* - цикл “repeat - until”;
* - условный и безусловный переход;
* - метка;
* - комментарий;
*****}
{C другой стороны, для получения смутного представления
о программировании достаточно разобраться в стишке}
-----
{Turbo Pascal}
{Программа Love}
{Comments are shown just above}
var любит: boolean;
var money: твое наличие в кармане;
procedure ресторан;
begin
_____if (любит) than (домой, на койку);
_____if (безразлична) then (один
_____продолжу дома я попойку);
_____if (неприязни есть момент) –
_____(букетом ей по морде)
end;
procedure both_of_us {Вдвоем};
begin
_____if (очень возбудима,
_____Легка, как птичка, на подъем,
_____Нежна, в любви неутомима)
_____Then {цикл соития}
_____Repeat
_____ (иметь);
_____until
_____(башка не треснет);
_____else
_____(ей на тачку выдать медь,
_____найти объект поинтересней};
_____repeat {с объектом}
_____ресторан;
_____until
_____(есть money in кармане);
_____{Не забывай про цель, баран,
_____Не упусти любовь по пьяни!}
{Забыть о первой!}
_____Go to
_____В начало проги – {знать, не ту
_____Нашел, такой вот мой comment,}
_____Вали она к монаху…}
end;
begin
_____{пишу я стих любовный,)
_____(свечи мерцает блик неровный}
_____if (ты меня не любишь) than
_____begin
_____{тут финиш безусловный
_____and
_____жизнь моя ни в грош, ни в цент,
_____and}
_____go to начало
end
else
_____if (меня ты любишь) than
_____repeat
_____люблю;
_____until
_____(мой милый);
{пока готов к работе end
и первозданной налит силой}
If
_____(я в подмножестве желанных
_____из множества конкретных нас)
than
_____ресторан;
_____{из ресторана –
_____домой ее, and}
both_of_us
{and than – последний мой comment –
любовь пылает.
Финиш.}
end.