Конкурс: Стих паскальный. Приз - Токай Ассу 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.

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

← →
Cardinal © (2004-06-06 19:18) [29]

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

← →
RealRascal © (2004-06-06 20:08) [30]

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

← →
KilkennyCat © (2004-06-07 00:31) [31]

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

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

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

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

← →
Vlad Oshin © (2004-06-07 09:28) [32]

:)

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.

← →
KilkennyCat © (2004-06-07 09:39) [33]

> Vlad Oshin © (07.06.04 09:28) [32]

Вери велл! :)

Будем считать, первая стихопрограмма есть!

← →
Vlad Oshin © (2004-06-07 10:49) [34]

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

← →
Vlad Oshin © (2004-06-07 11:32) [35]

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

← →
KilkennyCat © (2004-06-07 23:58) [36]

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

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

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

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

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

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

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.

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

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

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

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

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

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

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

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

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

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 года Найти похожие ветки