ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Evgenij Masherov                     2:5020/175.2   10 Jul 2002  22:22:17
 To : Aleksey Kotov
 Subject : Стихи
 -------------------------------------------------------------------------------- 
 

 Wed Jul 10 2002 01:53, Aleksey Kotov wrote to All:
 
  AK> Долгие лета, All :
 
  AK> Алгоритмы пишущие стихи... Может ли кто нибудь рассказать об этом?
 
 #include <stdlib.h>
 #include <conio.h>
 main()
 {
  char *c1[4]={" Ростова","о Пскова"," Тамбова"," Коврова"},
     *c2[4]={"слушал полдня","в школу принес",
         "видел в пруду","съел на обед"},
     *c3[4]={"рыболова","две подковы","водяного","хвост коровы"},
     *c4[4]={"постеснялся","начал ржать и","побоялся","стал уныло"},
     *c5[4]={"смеяться","лягаться","купаться","болтаться"},
     *c6[4]={"потом не поверил ни слову",
               "вреда не нанес никакого",
               "совсем и не думал плохого",
               "остался живым и здоровым"};
 int i,j,k;
 char ch;
 randomize();
 for(;;)
 {
 clrscr();
 cprintf("Молодой человек из%s\n\r",c1[random(4)]);
 cprintf("Как-то %s %s,\n\r",c2[random(4)],c3[random(4)]);
 cprintf("А минут через двадцать  %s %s,\n\r",c4[random(4)],c5[random(4)]);
 cprintf("Хоть %s!\n\r",c6[random(4)]);
 ch=getch();
 if(ch==' ')break;
 }
 }
 
 Евгений Машеров АКА СанитарЖеня
 
 --- ifmail v.2.15dev5
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Стихи   Aleksey Kotov   10 Jul 2002 01:53:16   Стихи   Alexey N Konoplyov   10 Jul 2002 14:18:34   Стихи   Evgenij Masherov   10 Jul 2002 22:22:17   Стихи   Aleksey Kotov   11 Jul 2002 03:54:02   Re: Стихи   Dmitriy Gerasimenko   12 Jul 2002 08:32:22   Re: Стихи   Valentin Davydov   12 Jul 2002 23:56:20   Re: Стихи   Dmitriy Gerasimenko   15 Jul 2002 08:14:36   Стихи   Evgenij Masherov   12 Jul 2002 09:23:28   Стихи   Dmitriy Nesmachny   13 Jul 2002 07:29:33   Стихи   Alexander Chelmodeev   12 Jul 2002 09:06:04   Стихи   Aleksey Kotov   11 Jul 2002 03:56:42   Стихи   Evgenij Masherov   12 Jul 2002 09:24:06   Re: Стихи   Denis Ignatov   10 Jul 2002 22:45:39   Стихи   Max Alekseyev   11 Jul 2002 16:39:40