• Авторизация


Я люблю программерство 24-12-2007 22:08 к комментариям - к полной версии - понравилось!


Настроение сейчас - Страх за душу берет. Завтра судный день. Но будем следовать названию дневника.

[505x365]

"Блуждают тени" для программеров

Переписал "Блуждают тени" КиШа на нормальный программерский язык.

program Блуждают тени;
Begin
Ночь.create();
ночь.таинственная := true;
object.Свеча.set.затушенная;
Object.Я.age := Я.age+1;
Тишина.create();
Visibility.set := 0,5;
тени.звери := true;
Set.object.тени.блуждают;
sleep(1000);
Я.move (10;100);
If протереть окно and всмотреться then
Set visibility := 1.0;
Repeat(1);
Стук.filename:='D:\Music\Стук.mp3';
Стук.open;
sleep(1000);
Стук.play;
End.

Вот оригинальный текст:

Какой таинственной казалась мне та ночь,
Я затушил свечу и стал ждать,
Чего не знаю,
В тишине,
Вдруг представилось мне :

Блуждают тени возле дома разных сказочных зверей
Исчезнут и возникнут снова,
Стучатся еле слышно в мою дверь, мою дверь...

Я подошёл к окну, всмотрелся в темноту,
Стекло протёр и улыбнулся -
И в самом деле,
Всё что я представлял - увидал:

Блуждают тени возле дома разных сказочных зверей
Исчезнут и возникнут снова,
Стучатся еле слышно в мою дверь, мою дверь...

Ну как получилось?

вверх^ к полной версии понравилось! в evernote
Комментарии (3):
Зелё 24-12-2007-23:52 удалить
а разве это не Маяковский?
Insolitor 26-12-2007-17:16 удалить
Ну ты крут! Респект!


Комментарии (3): вверх^

Вы сейчас не можете прокомментировать это сообщение.

Дневник Я люблю программерство | Noob__Saibot - There is no ressuruction for cowards, who die in shame and fear. | Лента друзей Noob__Saibot / Полная версия Добавить в друзья Страницы: раньше»