Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

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

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

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


 
Наталия ©   (2004-06-08 10:37) [37]

program My_Wrung;
uses Byron;

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


 
pasha_golub ©   (2004-06-08 10:44) [38]

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


 
KSergey ©   (2004-06-08 11:13) [39]

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


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

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



Страницы: 1 2 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.56 MB
Время: 0.041 c
14-1086615009
Соловьев
2004-06-07 17:30
2004.06.27
Задачки :)


3-1086069084
ORMADA
2004-06-01 09:51
2004.06.27
LoockUp поля


1-1086852834
MetalFan
2004-06-10 11:33
2004.06.27
Как перехватить/поймать/перекрыть...


14-1086164825
ИМХО
2004-06-02 12:27
2004.06.27
Пару слов и Стивене Кинге


14-1086388326
Soft
2004-06-05 02:32
2004.06.27
Я сдал кандидатский экзамен по философии на 5.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский