Конкурс: Стих паскальный. Приз - Токай Ассу 3 пут. 1996 года

← →
химик © (2004-06-08 11:18) [40]

а долго еще конкурс? если хоть до завтра-то я сяду попробую :)

← →
Иксик © (2004-06-08 11:54) [41]

Program Vino;
uses Davno;
Type ego: Class(niy);

var i: TZakusku;
begin repeat Doma.Chistku;
until Vid = Prekrasniy;

while Golova<>krugom
begin With Podrugoy
do Dna.PitButilku;

end; Svoyu.Pyanku;
Razden(Huliganku);
Lyubi.Svoyu(milku);

While noch<>Utro
do chitay(Kama-Sutru);
if uje=Den;

Vspomni(zaboti);
Idi.na(Rabotu);
end;

:))) Что на меня нашло???

← →
Cosinus (2004-06-08 13:14) [42]

Не мое, взято с h**p://club.relex.ru/folklor/program_poetry.htm

{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
__________(no 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.

Александр Киселев

← →
MBo © (2004-06-08 13:18) [43]

работаяющая программа ;)
на мотив The Beatles - Norwegian Wood

dcc32 -cc song.dpr

var e,jkl, m:Integer; //integEr rst:Word; begin e:=1; //let e is one rst:=0; //rst null jkl:=10; //jkl ten for m:=e to jkl do Inc(rst,m); //for m from e to ... Write("Sum from 1 to 10 is just :",rst);Readln;end.

← →
KilkennyCat © (2004-06-08 22:55) [44]

Круто. Прочитал все.
Конкурс, полагаю, продлится неделю.
В воскресенье устрою голосование по лучшей стихпрограмме.

Начинаю делать фанерный ящичек для бутылки. Где б стружки достать? Кончилась вся...

← →
default © (2004-06-08 23:11) [45]

"программа должна выполнять что-нибудь осмысленное."
свиду или на самом деле? а то по-моему всё представленное
осмысленное только свиду

← →
KilkennyCat © (2004-06-08 23:19) [46]

> default © (08.06.04 23:11) [45]

Ну, упрощенно-осмысленное. что-нить сосчитать, вывести... Вот у MBo - просто идеально, за исключением самого верхнего Programm :)

← →
KilkennyCat © (2004-06-08 23:27) [47]

> pasha_golub © (08.06.04 10:44) [38]

Потом я еще выставлю... еще лучше вино. Но задача будет сложнее, и не стихи...

← →
SergP © (2004-06-08 23:48) [48]

Хм... Ну и в чем прикол этого конкурса?
Ведь в принципе любую прогу можно превратить в стихи рифмуя и выравнивая размер коментариями...

Чета в голову больше ничего не лезит :)

program SegodnyaNapisal; {Без окон, просто апликейшен} (*Я в*) uses SysUtils, //вписал; //добавил Windows, Sockets, {и} IDException; //не долго думая, с чего начать (*В*) const//анты, я добавил dat"ы {вот} Port {в который буду я писать} (*пока не знаю что, но он*) = "80";//-ый Host{ом} = {назначил} "localhost"; {и в} var //хватило моих нервов (*внести объект*) ConnectionPost: {от класса} TTcpServer; (*вот*) procedure SetConnect; //вот здесь ее начало begin //я внес чтоб "под конец" //меня ошибками не забрасало ConnectionPost := //зачем я так его назвал? (*ведь это ж*) TTcpServer. //пожалуй я его создам Create(*ом*)(nil); //воспользовавшись верным.

>за исключением самого верхнего Programm :)
А Program и не нужно писать - как есть, компилируется ;)

Осталось суббота и воскресенье. В понедельник, благо выходной, предлагаю подвести итоги. Вино упаковано!

Конкурс: Стих паскальный. Приз - Токай Ассу 3 пут. 1996 года Найти похожие ветки