Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Флейм
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.05.2013, 07:12
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию Как на паскале мы стихи писали :)

Первомай всё же, можно немного и раслабиться, а посему, такая тема.

Цитата:
Есть ящик пива, есть копчёный лещ,
попер паскаль в стихах, такая вещь...


Давно-давно видел хабрахабровский конкурс стихоплётов на паскале и там было примерно такое:

Код:
If then begin, begin to do 
In case interface in do 
In do, in do... begin to do 
If else case then interface!

...

Код:
to return not break

// 4 раза

do while break return
do while break return
do while break return
for if switch case default

...

Там даже чтецы выступали со своими виршами, выглядело как то так:

Цитата:
Ай интежер - Си чар.

Рипит фо Ай зеро ту тен,
ду бегин,
Иф Си плас ейт лесс 'ю' ту энд
Ай плас твелв ин.

[Зеро... Твенти файф] Вен райт эл эн "эй";
Рипит антил кипресст;
Энд Райт эл эн си - риид кей
Антил си лардж вен 'Эсс'!

...

Это ламерское:

Цитата:
Рипит фо Ай равно нулю, ту тен ду трай бегин.
Иф си плюс восемь меньше Ю, и Ай плюс двадцать три.
Ноль — двадцать пять, зен райтелн эй,
Рипит антил кейпрессед.
Энд, райтелн, Си равно ридкей,
Антил Си больше Эс зи энд.

...

Вот и мой вариант:

const or var?
{эфм: быть или не быть?}

Код:
If then begin, for var begin
And case mod while div to do
Try except true, in do begin
repeat until to unit interface
If else const then while case!

...

После бутылки чего покрепче даже пестня попёрла (на мотив битловской ЖПЛ, в смысле Yellow submarine)


Код:
In then down while is down
string as var begin to set
And shr mod if of xor file
In inline and of interrupt
To of label in to then sum
with do not for div of then
And if end record do uses
In asm array procedure;

// припев

if do while
is, do while break
is do while break
is do while break

...

Может, кто продолжит?


З.Ы. Кстати, вот список возможных слов для рифмы:

Код:
uses
absolute, label, and, library, array, mod, asm, nil, begin, not, case, 
or, const, of, constructor, object, div, packed, goto, procedure, do,
program, downto, record, destructor, repeat, else, set, end, shl, exports,
shr, external, string, file, then, for, to, forward, type, function, unit, if, until,
implementation, in, var, inline, while, interrupt, with, interface, xor, inherited;

Эпитафия:

Цитата:
А потом пришли сишники... и прослезились - подобрать рифму для фигурной скобки сложновато...
Ответить с цитированием
  #2  
Старый 02.05.2013, 13:09
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Фигня всё это - оно даже не скомпилируется. Как-то на IT Happens было куда лучше:
Код:
if (newGame) resources.free();
s = FILENAME + 3;
setLocation(); load(s);
loadDialog.process();

try { setGamerColor(RED); }
catch(Exception e) { reset(); }
while (notReady) { objects.make();
if (resourceNotFound) break; }

byte result; // сменить на int!
music();
System.out.print("");
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #3  
Старый 02.05.2013, 13:14
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Это же "скобяная" поделка!

Эпитафия действует!
Ответить с цитированием
  #4  
Старый 02.05.2013, 13:22
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Когда вы так говорите, создаётся впечатление, что вы - типичный школьник в интернете, ненавидящий знаки препинания (ибо "мы не на уроке")
// Без обид
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #5  
Старый 02.05.2013, 13:36
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Та лан те, Феникс,



//без этих самых
Ответить с цитированием
  #6  
Старый 02.05.2013, 15:16
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Как-то на IT Happens было куда лучше:
Читал в полной уверенности, что C++. Только на последней строке догнал, что это Java.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #7  
Старый 02.05.2013, 16:11
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

На перл какой-то стих (или чето наподобии того) есть, который даже работает.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #8  
Старый 02.05.2013, 16:40
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

http://www.99-bottles-of-beer.net/la...-perl-737.html
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #9  
Старый 02.05.2013, 18:58
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
На перл какой-то стих (или чето наподобии того) есть, который даже работает.

Не этот? Вики говорит, что какие-то версии Перла его успехно интерпретировали:
Код:
BEFOREHEAD: close door, each window & exit; wait until time.
 open spellbook, study, read (scan, select, tell us);
 write it, print the hex whole each watches,
 reverse its length, write again;
 kill spiders, pop them, chop, split, kill them.
 unlink arms, shift, wait & listen (listening, wait),
 sort the flock (then, warn the "goats" & kill the "sheep");
 kill them, dump qualms, shift moralities,
 values aside, each one;
 die sheep! die to reverse the system
 you accept (reject, respect);
 next step,
 kill next sacrifice, each sacrifice,
 wait, redo ritual until "all the spirits are pleased";
 do it ("as they say").
 do it(*everyone***must***participate***in***forbidden**s*e*x*).
 return last victim; package body;
 exit crypt (time, times & "half a time") & close it,
 select (quickly) & warn your next victim;
 AFTERWORDS: tell nobody,
 wait, wait until time;
 wait until next year, next decade;
 sleep, sleep, die yourself,
 die at last

Цитата:
Оно было написано изначально для Perl 3, и по словам самого Ларри [Уолла], он испытал моральное удовлетворение, когда стихотворение не прошло синтаксический анализатор в Perl 5.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:50.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter