Стихи

From

Evgenij Masherov (2:5020/175.2)

To

Aleksey Kotov

Date

2002-07-10T22:22:17Z

Area

RU.ALGORITHMS

From: "Evgenij Masherov" <EMasherow@nsi.ru>

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)