|
Любовь программиста
Ромуальд Нешуточный
{*********************************************************
* Для чтения стишка достаточно иметь
* смутное представление о том, что такое
* - структура программы
* (процедура, тело программы);
* - глобальная переменная;
* - цикл “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.
|
Количество прочитавших: 73
Романтично!
<Виола> - 2002/11/05
|
...если "романтично" от слова "ромуальд", тагды согласен :))
<Ромуальд Нешуточный> - 2002/11/06
|
Да уж... Есть многое на свете, друг Горацио...
А ведь у меня была "пятерка" по информатике... в конце 80-х ... за единственный семестр ... в музыкальном училише ...
В общем, столь же загадочно, как про цикл Карно и изобару Гиббса.
;)
<Tanya K.> - 2002/11/05
|
Полна чудес могучая природа,
Хоть рот от удивления оскаль:
Стих написал про то, чего я сроду
И близко не касался - про паскаль :))
<Ромуальд Нешуточный> - 2002/11/06
|
|
|