Originally Posted by Archie
(Post 526269)
ВЫВОД ПРОГРАММ...23-JAN-92 15:52
RUL145
RUL145
RULETKA D ¬%CURSORD W !,IES,"ПРИГЛАШАЮ ВАС ЗА СТОЛ С РУЛЕТКОЙ !"
W !,!,"НУЖНЫ ЛИ ВАМ ИНСТРУКЦИИ 1-ДА,0-НЕТ " R O
I O=0 G START
W !,!," ПОЛЕ НОМЕРОВ ! ТИПЫ СТАВОК"
W !," ! ЧИСЛО ОТ 1 ДО 36 ОЗНАЧАЕТ ПРЯМУЮ СТАВКУ"
W !," ",YINV,"1",NINV," 2 ",YINV,"3",NINV
W " ! НА СООТВЕТСТВУЮЩИЙ НОМЕР.ОПЛАЧИВАЮТСЯ 35:1"
...
START F I=1:1:38 S X(I)=0
S P=1000,D=100000
D W IES R !,"СКОЛЬКО СТАВОК ? ",Y
I Y<1 G D
I Y>Y\1 G D
F i=1:1:50 S A(I)=0
S C=1
|
