Конкурс "Стих паскальный завершен", ищем победителя...

← →
KilkennyCat © (2004-06-14 01:03) [0]

Мда, немного оказалось желающих выиграть вино :)
Вот список стихопрограмм, наиболее отвечающих условию конкурса:

(1)

Vlad Oshin ©

:)

program findgirl;
{which ill}
uses
Mysees;

begin
if it in
(MySet)
then writeln ("Privet!")
else
case
it of
0: fuckOff;
1: goto shops;
2: goto Opsss;
end
else readln(more_vine);
if you=fine
then ;
end.
-----------------------------------------------------------------

(2)

Vlad Oshin ©

Log
//10 программистов продукт решили сделать,
//Один спросил: "А деньги где?", - и их осталось 9.
//9 программистов предстали перед боссом,
//Один из них не знал FoxPro, и их осталось 8.
//8 программистов купили IBM,
//Один сказал: "Мак лучше!", - и их осталось 7.
//7 программистов хотели Help прочесть:
//У одного накрылся винт и их осталось 6.
//6 программистов пытались код понять,
//Один из них сошел с ума, и их осталось 5.
//5 программистов купили CD-Rom,
//Один принес китайский диск - остались вчетвером.
//4 программиста работали на Си,
//Один из них хвалил Паскаль и их осталось 3.
//3 программиста в сети играли в DOOM,
//Один чуть-чуть замешкался, и счет стал равен двум.
//2 программиста набрали дружно: "win".
//Один устал загрузки ждать - остался лишь 1.
//1 программист все взял под свой контроль,
//Hо встретился с заказчиком и их осталось 0.
//0 программистов ругал сердитый шеф,
System halted. Press reset to reb_|

procedure Problem(Pr:byte; message:sring; var pr:byte);
begin
dec(Pr);
result:=pr;
end;

begin
Pr:=10;
copy("d:\CoolProgramm\*.*", "c:\MyCoolProgramm\*.*");
Problem(Pr,"Where many?",pr);

Call(@Boss);
Problem(Pr,"What is it FoxPro?",pr);

Call(@Mitino_bazar_PC);
Problem(Pr,"Mitino_bazar_PC must die!",pr);

Problem(Pr,"F1",pr); //SysErrorMessage="unable read HDD. "

Problem(Pr,"be life on Mars? ",pr);

Call(@Mitino_bazar_PC);
Problem(Pr,"98345(*:":!*()!";:%:;",pr);

Call(@Main);
Problem(Pr,"begin",pr);

Call(@net);
Problem(Pr,"Network adapter flooded by beer",pr);

exit;
type win
Problem(Pr,"IBM XT 12Mhz - forever!",pr);

Problem(Pr,"Что значит "так и должно быть?"",pr);

Call(@Boss);
Problem(Pr,"{unsensored}{unsensored}{unsensored}{unsensored}",pr);
-----------------------------------------------------------------

(3)

Наталия ©

program My_Wrung;
uses Byron;

{только бы Байрон меня простил
за слишком вольное}
begin
Farewell("and");
if ForEver() then
Still:=ForEver();
Farewell("");
{я уж совсем невеликий поэт
без Байрона я сочиню только}
end;
-----------------------------------------------------------------

(4)

Иксик ©

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;

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

(5)

MBo ©

работаяющая программа ;)
на мотив 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.
-----------------------------------------------------------------

(6)

Style © (09.06.04 00:57) [50]
Чета в голову больше ничего не лезит :)

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

(*вот*) procedure SetConnect;
//вот здесь ее начало
begin //я внес чтоб "под конец"
//меня ошибками не забрасало
ConnectionPost := //зачем я так его назвал?
(*ведь это ж*) TTcpServer.
//пожалуй я его создам
Create(*ом*)(nil); //воспользовавшись верным.
-----------------------------------------------------------------

Прошу проголосовать, чей стих лучше.

← →
KilkennyCat © (2004-06-14 01:04) [1]

я свой голос отдаю MBo (5)

← →
Sergey Masloff (2004-06-14 01:07) [2]

MBo(5)

← →
Паниковский © (2004-06-14 06:00) [3]

(3)

Наталия ©

мое IMHO

← →
Evgeny V © (2004-06-14 06:50) [4]

(2)

Vlad Oshin ©
за
Log

и

(3)
Наталия:-))))

← →
Bless © (2004-06-14 09:24) [5]

Style(6), imxo

← →
Gero © (2004-06-14 09:52) [6]

MBo(5)

← →
Паниковский © (2004-06-14 10:06) [7]

Ну тады вообще мой стих в коментарии можно что угодно засунть MBo хоть учебник по литературе спешиал для тех кто пропустил школу.

programm StihVnature;
(*
DOS, чёрной пеленой
экран заполнил
чистый DOS
Мышь стала вдруг
квадратной,
потеряла форму
мышь
Я разбил окно-
девяносто пятое
окно и вышел
в DOS,
И тогда узнал, что
такое счастье-
счастье в DOS`e-
вот оно

Слёзы на очках,
странные очки, а
может, слёзы на
лице
DOS очистил всё,
что было у меня на
диске С:
Я нажал delete, и
весёлый Norton
удалял мне всё
подряд,
Сорок мегабайт, а
может больше,
может даже
пятьдесят

И представил я,
город наводнился
вдруг весёлыми
людьми
Вышли все под DOS,
а проклятый
ВИНДОВЗ удаляли,
чёрт возьми
Позабыв про WORD,
Corel Draw,
Excel, Дельфю и
прочий геморрой
Люди ставят DOS,
словно в рай
заходят в DOS,
в обычный чистый
DOS...

*)
begin
ReadLn();
end;

← →
Gero © (2004-06-14 10:13) [8]

> begin
> ReadLn();
> end;

Скорее так:
begin ReadLn (c); end;

У меня эта песня есть в mp3. Прикольная, хоть и старая.

← →
MBo © (2004-06-14 10:19) [9]

>Паниковский
>мой стих в коментарии можно что угодно засунть MBo
Не уловил ;)))
У меня комментарии не нужны - они лишь показывают правила чтения

← →
di © (2004-06-14 10:31) [10]

← →
Паниковский © (2004-06-14 13:20) [11]

up
/*не все высказались*/

← →
Огромное Кулясище (2004-06-14 13:50) [12]

Наталия

← →
able © (2004-06-14 13:53) [13]

Иксик :)

← →
химик © (2004-06-14 13:55) [14]

Style

← →
Mim1 © (2004-06-14 14:52) [15]

Иксик

← →
nikkie © (2004-06-14 15:45) [16]

понравился Style - жаль не хватило сил дописать.
MBo - не знаю мотива (представьте себе), поэтому въехать не могу.

голосую за Иксика.

← →
MBo © (2004-06-14 16:20) [17]

> не знаю мотива
скорее всего, знаешь

I once had a girl, or should I say, she once had me...

http://www.geocities.com/Yosemite/2729/norwegianwood.mid

← →
Agent13 © (2004-06-14 18:52) [18]

Я за MBo.

← →
DrPass © (2004-06-14 21:43) [19]

А этого вообще дисквалифицировать за плагиат:

> Vlad Oshin ©
>
> Log
> //10 программистов продукт решили сделать,
> //Один спросил: "А деньги где?", - и их осталось 9.
> //9 программистов предстали перед боссом,
> //Один из них не знал FoxPro, и их осталось 8.
> //8 программистов купили IBM,
> //Один сказал: "Мак лучше!", - и их осталось 7.
> //7 программистов хотели Help прочесть:
> //У одного накрылся винт и их осталось 6.
> //6 программистов пытались код понять,
> //Один из них сошел с ума, и их осталось 5.
> //5 программистов купили CD-Rom,
> //Один принес китайский диск - остались вчетвером.
> //4 программиста работали на Си,
> //Один из них хвалил Паскаль и их осталось 3.
> //3 программиста в сети играли в DOOM,
> //Один чуть-чуть замешкался, и счет стал равен двум.
> //2 программиста набрали дружно: "win".
> //Один устал загрузки ждать - остался лишь 1.
> //1 программист все взял под свой контроль,
> //Hо встретился с заказчиком и их осталось 0.
> //0 программистов ругал сердитый шеф,
> System halted. Press reset to reb_|

← →
KilkennyCat © (2004-06-14 23:12) [20]

> DrPass © (14.06.04 21:43) [19]

Ниже текста приведен листинг программы.

← →
jack128 © (2004-06-14 23:33) [21]

> > //0 программистов ругал сердитый шеф,
> > System halted. Press reset to reb_|

я знаю концовку

0 программистов ругал сердитый шеф,
уволил одного из них и стало их $FF

← →
KilkennyCat © (2004-06-14 23:37) [22]

Понедельник заканчивается.
И голосование.
Кто не проголосовал - не выполнил свой гражданский долг! :)

← →
jack128 © (2004-06-14 23:50) [23]

> Кто не проголосовал - не выполнил свой гражданский долг!
> :)

Style(c) - лудший..

> У меня эта песня есть в mp3. Прикольная, хоть и старая.
а ссылку не кинешь откуда скачал? А то я только на тексты натыкаюсь.. Или сам на мыло закинешь,а? jack128(гав)mail.ru

← →
Fantasist (2004-06-15 00:01) [24]

(4) Иксик

MBo ©
> У меня комментарии не нужны - они лишь показывают правила
> чтения

Все равно не понятно, как читать переменные. (rst - РэСэТэ? АрЭсТи? РСТ?)

Вар
Е ДжейКэйЭль
Эм интеджЕр
АрЭсТи ворд

Бегин
Лэт е из one
АрЭсТи нул
ДжейКэйЭль тен

Фор эм фром е ту ДжейКэйЭль Ду инк АрЭсТи эм
Врайт сам фром one ту тен из джаст АрЭсТи ридэлэн энд

Похоже?

В моём лично хит-параде "лудший" идёт сразу за правдо.
8)

мда...

Vlad Oshin - 1
Наталия - 3
MBo - 4
Иксик - 4
Style - 4

Продолжаем голосовать. Или им одну на всех распивать...

← →
NONE (2004-06-15 02:45) [28]

Один человек работал оборщиком говна за слонами, а потом сказал - Надоел мне этот шоубизнес.

> NONE (15.06.04 02:45) [28]

зачем же о себе в третьем лице...

>Fantasist (15.06.04 00:01) [24]
Вар
И ДжиКaЭль
Эм интеджЕр
ЭрЭсТи ворд

Б"гИн
Лэт и из ван
ЭрЭсТи нул
ДжиКаЭль тен
//теперь вторая музыкальная тема (у битлов первая не 2 раза повторяется, а много)
Фор эм фром и ту ДжиКаЭль Ду инк Эрэсти Эм
райт сАм фром ван ту тен из джАст эрэсТИ ридлн Энд

Эх, народ косится - пора завязывать, пока в дурку не сдали - сидит программист и напевает программу ;))))

> KilkennyCat © (15.06.04 00:33) [27]
> мда...
>
> Vlad Oshin - 1
> Наталия - 3
> MBo - 4
> Иксик - 4
> Style - 4
>
> Продолжаем голосовать. Или им одну на всех распивать...

MBo

<offtop>

> Gero ©

Спасибо за песенку.
э-э-э.. только я ступил, не много. Отправил её тебе обратно :-( Так что если у тебя критично к трафику, лудше удали это письмо, не закачивая.
</offtop>

Конкурс "Стих паскальный завершен", ищем победителя... Найти похожие ветки