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

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

Стих должен представлять собой программу на паскале.
Все строчки программы должны рифмоваться.
программа должна выполнять что-нибудь осмысленное.

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

Programm ...
...
End.

Дерзайте, вино настоящее! мое любимое, кстати...

← →
YurikGl © (2004-06-06 01:05) [1]

> Дерзайте, вино настоящее! мое любимое, кстати...

Вино будешь e-mail-м высылать?

← →
YurikGl © (2004-06-06 01:07) [2]

KilkennyCat © (06.06.04 01:03)

А чем белый стих не устраивает?

Вам дактиль или амфибрахий? Может Гегзаметром написать?

← →
KilkennyCat © (2004-06-06 01:09) [3]

Вино курьеской почтой.
Стих любой, зрители рассудят, какой лучше.

← →
default © (2004-06-06 01:12) [4]

написал чё хошь, а идент-ры переим-ал как надо...эт не интересно

← →
KilkennyCat © (2004-06-06 01:16) [5]

> default © (06.06.04 01:12) [4]

я же сказал - прога должна работать, со смыслом.
и не так-то это и просто... я пробовал.

← →
default © (2004-06-06 01:19) [6]

KilkennyCat © (06.06.04 01:16) [5]
и будет она работать, чё-то идея какая-то нездороваая(

← →
KilkennyCat © (2004-06-06 01:26) [7]

ну, раз считается, что это просто....

дополнительное условие: это должен быть стих про любовь! :)
Или прога про любовь :)

← →
default © (2004-06-06 01:30) [8]

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

← →
KilkennyCat © (2004-06-06 01:31) [9]

> default © (06.06.04 01:30) [8]

ну нет... плагиат не поощряется.

← →
Девушка © (2004-06-06 01:31) [10]

default © (06.06.04 01:30) [8]
Любезный зритель, слушатель, читатель!
К тебе с надеждой обращаю взор.
Не будет пусть суров твой приговор,
О ты, стихов знаток и почитатель!

Ты нежных муз старинный воздыхатель,
Чу! Слышишь, как поет их дивный хор?
Им вторит арфы тихий перебор...
Я знаю, ты поймешь меня, приятель.

Тебе, мой друг, я повторяю снова,
Дан светлый дар - поэтов слышать слово,
Ему внимать всегда, смеясь и плача

С терпением великим мудреца,
И верить от начала до конца
В весь этот несуразный бред собачий!

← →
default © (2004-06-06 01:34) [11]

жалко что в Пас-ле нет оператора "!"

← →
default © (2004-06-06 01:34) [12]

Девушка © (06.06.04 01:31) [10]
благодарю!по памяти писала?

← →
KilkennyCat © (2004-06-06 01:36) [13]

> default © (06.06.04 01:34) [11]

мда... тяжело вам... а символ "!" есть?

← →
Девушка © (2004-06-06 01:37) [14]

Нет, copy/paste... Хотя знаю это наизусть.
Теперь по памяти.

Всю ночь я не давал себе полблажки
И стих писал, чтоб утром восхититься...
Гляди, какая классная бумажка.
Теперь в сортире пригодиться.

← →
default © (2004-06-06 01:42) [15]

KilkennyCat © (06.06.04 01:36) [13]
в иден-ах его нельзя исп-ать, но где-то он по-моему фигур-ет
Девушка © (06.06.04 01:37) [14]
ты он или она?

← →
Девушка © (2004-06-06 02:00) [16]

default © (06.06.04 01:42) [15]

Девушка © (06.06.04 01:37) [14]
ты он или она?

Это - провокация.

Сразу скажу, стихи - не мои.

Еще по памяти.
О мужской логике.
Гудят, мозги кружится голова,
Во мне процесс мыслительный идет.
Но знаю, - логика мужская такова,
Что все на свете к выпивке сведет.

← →
Девушка © (2004-06-06 02:01) [17]

О, может я - дура, но

>Приз - Токай Ассу 3 пут.

3 пут. - это три путылки?

← →
default © (2004-06-06 02:03) [18]

Девушка © (06.06.04 02:01) [17]
ага, которые хранили с 1996 без соблюдения надлежащих условий...и те за конкурс отдают...

← →
Lessa (2004-06-06 09:35) [19]

А несовершеннолетним тоже выпивку дадут? ;)

← →
SergP © (2004-06-06 09:41) [20]

> [15] default © (06.06.04 01:42)
> KilkennyCat © (06.06.04 01:36) [13]
> в иден-ах его нельзя исп-ать, но где-то он по-моему фигур-ет
> Девушка © (06.06.04 01:37) [14]
> ты он или она?

Или оно?

← →
Real © (2004-06-06 09:45) [21]

writeln("Я помню чудное мгновенье");
writeln("Передо мной явилась ты");
writeln("Как мимолетное виденье");
writeln("Как гений чистой красоты.");

На Пасале? Рифмуется? Про любовь?

:-)))))))

← →
KilkennyCat © (2004-06-06 10:25) [22]

> Real © (06.06.04 09:45) [21]

Ну, похоже... только вот нет Programm takaya-to; Begin и End.:)

> Девушка © (06.06.04 02:01) [17]
> О, может я - дура, но
>
> >Приз - Токай Ассу 3 пут.
>
> 3 пут. - это три путылки?

Нет, это означает три путтонь - то есть, при изготовлении этого вина было добавлено три корзины (на бочку) изюма, который образовался прямона лозе.

> default © (06.06.04 02:03) [18]
> ага, которые хранили с 1996 без соблюдения надлежащих условий...и
> те за конкурс отдают...

Ну чтож, если судить обо всем по-Вашему образу, то судя о Вас, можно сказать, что кроме пива "клинское" Вы ничего не пили. Поэтому и мозги...

> Lessa (06.06.04 09:35) [19]
> А несовершеннолетним тоже выпивку дадут? ;)

Гм... Да. Не вижу ничего плохого, если несовершеннолетний будет приучаться к действительно хорошим вещам. Пиво же Вы все равно при желании достаете, да коктейли всякие (отрава!). Инструкция по благородному употреблению для несовершеннолетних будет прилагаться. Первая строчка будет такая: "Использовать только в присутствии взрослых" :)

← →
Marser © (2004-06-06 10:39) [23]

Если со вспомогательным модулем, то в принципе возможно, только я не поэт :-(

← →
ИМХО © (2004-06-06 10:46) [24]

program Sushnyak;

begin
WriteLn("Пейте пиво");
WriteLn("завода Главпиво!");
end.

← →
KilkennyCat © (2004-06-06 10:53) [25]

Программ Любимой_я_творил;
Вар // здесь я ромашку объявил...
лепестки, их // она будет отрывайт,
// поэтому пусть будут
байт;
Бегин // отсюда типа запустил
//используя
Рандомизе;
//программа скажет ей и мне
//все про любовь к ней или ко мне...
Фор их равно один //вот первый лепесток
то лепестки // большая, блин ромашка,
до бегин //летит он явно на восток
// пора мне загадать Наташку.
// а коль не выйдет ничего с Наташкой
// то погадаю я на Ольгу
Иф рандом в скобочках один
равно один зен // любит, значит!!

Все, запарился. Это для примера. Дерзайте.

← →
KilkennyCat © (2004-06-06 10:55) [26]

> Marser © (06.06.04 10:39) [23]

Хорошо, допускается использование модуля. Но модуль тоже в рифму. :)

← →
Real © (2004-06-06 12:35) [27]

> ИМХО © (06.06.04 10:46) [24]
> program Sushnyak;
>
> begin
> WriteLn("Пейте пиво");
> WriteLn("завода Главпиво!");
> end.

Что за плагиат??? Ведь ясно, что program name, begin, end я имел ввиду!!! Требую компенсации :-))))

← →
Sanek_metaller © (2004-06-06 17:39) [28]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
for x:=0 to 4 do begin
case x of
0:showmessage("Я помню чудное мгновенье");
1:showmessage("Передо мной явилась ты");
2:showmessage("Как мимолетное виденье");
3:showmessage("Как гений чистой красоты.");
4:showmessage("ASP(А.С. Пушкин:)");
end;
end;
end;

end.

Если бы автор ветки назвал бы ее:"Супер-Конкурс,Приз Ящик Пива!",то у нее бы конца не было:)

Попробуйте на каком-нибудь другом языке кроме
паскаля написать : ).

это не моя идея
40 30 50,
70 0 20...
6 4 45,
917!

> Sanek_metaller © (06.06.04 17:39) [28]

В условии весь листинг в рифму.
И Делфи - необязательно.
Я не люблю пиво.

Мда... вариантов маловато. то ли задача сложная, то ли приз слабоватый...

Есть у меня еще пара бутылочек Токая 84 года, Харшевелю, 6 путтонь... но их я на что-нить более сложное выставлю :)

:)

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.

был бы вчера тут - можть что-то написал получше
как раз слова аглицкие учу - так интереснее было бы словарь читать
может к вечеру или завтра еще добавлю

____________________
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);

мда...
опять сишники паскалиста выгнали :)

Ну, кто еще дерзнет выиграть бутыль неплохого вина?

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

KilkennyCat © (07.06.04 23:58) [36]
Я хочу этого вина, но стихи написать в такой обертке врядли смогу. Может я его у вас куплю, уж очень вы его нахваливали. ;-)

Да купить-то можно и в другом месте, а вот выиграть... ;)

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

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