|
|
|
|
|
Вы находитесь: Главная :: Гостевая |
|
|
Всего страниц: 1
Страница: 1 |
Всего записей: 1 |
|
17.02.03
15:03:15
|
От: Yuldash
Тема: Моя жизнь
COLOR 13 PRINT "МОЁ МЕНЮ" COLOR 5 PRINT "Нажмите 1 чтовы очистить экран" COLOR 25 PRINT "Нажмите 2 чтобы вывести на экран пожелания" COLOR 7 PRINT "Нижмите 3 чтобы вывести на экран заставку придуманный автором этого меню" COLOR 6 INPUT "Что вы выбираете??"; choice IF choice = 1 THEN GOTO clrscr IF choice = 2 THEN GOTO hello IF choice = 3 THEN GOTO shift clrscr: CLS END COLOR 12 PRINT "Готово." hello: PRINT "Желаю всем сдать ЭКЗАМЕН на отлично!!!" PRINT "Спасибо за внимание..." END COLOR 30 shift: PRINT SCREEN 9 WINDOW (0, 0)-(630, 490) CONST pi = 3.14, st = pi / 160 1 FOR r = 5 TO 320 STEP 5: FOR d = pi * 2 TO 0 STEP -st d1 = 2 * pi - d d2 = (2 * pi - d) * 5.3 d3 = (d * 2.3 - pi) * 5.3 x1 = COS(d1) * r 320 y1 = SIN(d1) * COS(d2) * SIN(d3) * r / 2.1 240 x2 = 320 - COS(d1) * r y2 = 240 - SIN(d1) * COS(d2) * SIN(d3) * r / 2.1 x3 = 240 - SIN(d1) * COS(d2) * SIN(d3) * r / 2.1 80 y3 = 320 - COS(d1) * r - 80 x4 = SIN(d1) * COS(d2) * SIN(d3) * r / 2.1 240 80 y4 = COS(d1) * r - 80 320 PSET (x1, y1), 15 PSET (x2, y2), 12 PSET (x3, y3), 13 PSET (x4, y4), 14 i$ = INKEY$ IF i$ = CHR$(27) THEN END NEXT NEXT SLEEP 1 COLOR 8 PRINT "Спасибо за внимание!!!???" COLOR 10
E-mail: yuldash1@mail.ru
|
|
|
|
|
