§ Программная реализация
Шёл по лесу один человек, он шел долго, съел 3 железных хлеба, 3 медных хлеба и 3 булочки из столовки. Пока ел булочки, зубы сломал. И вот долго ли коротко ли, но пришел человек в одну деревню, а там ему говорят:
Это чумачечая весна! Словно чумачечий!
И понял он, это его остановочка!
Всё такое чумачечее!
10 BORDER 0 : PAPER 0 : INK 7 : CLS
20 FOR Y =0 TO 20 STEP 2
30 FOR X =0 TO 30 STEP 2
40 BRIGHT 0
50 GO TO 60 + 20 *INT (RND *4 )
60 INK 4 : PRINT AT Y ,X ;";," ;
70 PRINT AT Y +1 ,X ;",:" ;: GO TO 140
80 INK 4 : PRINT AT Y ,X ;",." ;
90 PRINT AT Y +1 ,X ;".," ;: GO TO 140
100 INK 1 : BRIGHT 1 : PRINT AT Y ,X ;"~^" ;
110 PRINT AT Y +1 ,X ;"v~" ;: GO TO 140
120 INK 4 : BRIGHT 1 : PRINT AT Y ,X ;"%%" ;
130 INK 6 : BRIGHT 0 : PRINT AT Y +1 ,X ;"||" ;
140 NEXT X
150 NEXT Y
160 INK 7
170 LET X =14 : LET Y =9
180 PRINT AT Y ,X +1 ;"O"
190 PRINT AT Y +1 ,X ;"(#\"
200 PRINT AT Y +2 ,X ;"/ \"
210 STOP
© 2011-2026 Все права защищены (11 янв, 10:10)