ivdos Пользователь Сейчас: Offline
Имя: ivan Регистрация: 31.03.2010
| Здравствуйте помогите пожалуйста, скажите что не так в этом коде: 24 DIM LET%(34) 26 FOR I%=0 TO 33 28 READ A% 30 LET%(I%)=A% 32 NEXT I% 34 DATA 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29,30,35,36,37,38,39,40,45,46,47,48,49,50 36 DIM GOD%(4) 38 GOD%(0)=1 40 GOD%(1)=21 42 GOD%(2)=31 44 GOD%(3)=41 46 DIM GODA%(9) 48 GODA%(0)=2 50 GODA%(1)=3 52 GODA%(2)=4 54 GODA%(3)=22 56 GODA%(4)=23 58 GODA%(5)=24 60 GODA%(6)=32 62 GODA%(7)=33 64 GODA%(8)=34 66 W%=EDITFORM("Введите имя","Ok","Cancel"," ",NAME$,200,0) 68 DIM GOT$(5) 70 GOT$(0)="до 15" 72 GOT$(1)="от 15 до 20" 74 GOT$(2)="от 20 до 30" 76 GOT$(3)="от 30 до 45" 78 GOT$(4)="больше 45" 80 GOT%=CHOICEFORM("Сколько вам лет?","ок","отмена"," ",GOT$,0) 82 DIM KUR$(2) 84 KUR$(0)="Да" 86 KUR$(1)="Нет" 88 KUR%=CHOICEFORM("Вы курите?","ок","отмена"," ",KUR$,0) 90 IF KUR%=-1 THEN GOTO 82 92 X%=25+MOD(RND(0),25) 94 IF X%=GOD% THEN G$="Год" 96 IF X%=GODA% THEN G$="Года" 98 IF X%=LET% THEN G$="Лет" 100 CLS 110 DRAWSTRING NAME$+" тебе осталось жить "+STR$(X%)+" "+G$,0,15
Изменено ivdos (31.03 / 13:13) (всего 4 раза) |