Форум: "Потрепаться";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
ВнизКонкурс "Стих паскальный завершен", ищем победителя... Найти похожие ветки
← →
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]6
← →
Паниковский © (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 ту тен из джаст АрЭсТи ридэлэн энд
Похоже?
← →
Fay © (2004-06-15 00:01) [25]В моём лично хит-параде "лудший" идёт сразу за правдо.
8)
← →
KilkennyCat © (2004-06-15 00:07) [26]
>
> Fay © (15.06.04 00:01) [25]
> В моём лично хит-параде "лудший" идёт сразу за правдо.
> 8)
?
← →
KilkennyCat © (2004-06-15 00:33) [27]мда...
Vlad Oshin - 1
Наталия - 3
MBo - 4
Иксик - 4
Style - 4
Продолжаем голосовать. Или им одну на всех распивать...
← →
NONE (2004-06-15 02:45) [28]Один человек работал оборщиком говна за слонами, а потом сказал - Надоел мне этот шоубизнес.
← →
KilkennyCat © (2004-06-15 02:51) [29]
> NONE (15.06.04 02:45) [28]
зачем же о себе в третьем лице...
← →
MBo © (2004-06-15 07:12) [30]>Fantasist (15.06.04 00:01) [24]
Вар
И ДжиКaЭль
Эм интеджЕр
ЭрЭсТи ворд
Б"гИн
Лэт и из ван
ЭрЭсТи нул
ДжиКаЭль тен
//теперь вторая музыкальная тема (у битлов первая не 2 раза повторяется, а много)
Фор эм фром и ту ДжиКаЭль Ду инк Эрэсти Эм
райт сАм фром ван ту тен из джАст эрэсТИ ридлн Энд
← →
MBo © (2004-06-15 07:32) [31]Эх, народ косится - пора завязывать, пока в дурку не сдали - сидит программист и напевает программу ;))))
← →
Vlad Oshin © (2004-06-15 08:52) [32]
> KilkennyCat © (15.06.04 00:33) [27]
> мда...
>
> Vlad Oshin - 1
> Наталия - 3
> MBo - 4
> Иксик - 4
> Style - 4
>
> Продолжаем голосовать. Или им одну на всех распивать...
MBo
← →
jack128 © (2004-06-15 09:15) [33]<offtop>
> Gero ©
Спасибо за песенку.
э-э-э.. только я ступил, не много. Отправил её тебе обратно :-( Так что если у тебя критично к трафику, лудше удали это письмо, не закачивая.
</offtop>
← →
KilkennyCat © (2004-06-15 22:35) [34]up
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.034 c