Приложения______________________________________239

DO 'цикл выбора сосуда для выливания

Humbert = Number» + 1: XF Number» > 3 THEN Number» = Number» - 3 IF Volume(Number») > 0 THEN Clmn% = 23 * Humbert - 6

LOCATE 13, Clmn%: PRINT CHR$(25) 'маркер для выливания DO: Key$ = XNKEY$: LOOP UNTIL Key$ = "" DO: Key$ = IMKEY$: LOOP UNTIL LEN(Key$) > 0 IF ASC(Key$) = 13 THEN

EXIT DO 'сосуд выбран ELSE

LOCATE 13, Clmn%: PRINT " "

'стирание маркера END IF END IF LOOP Frst% = Number»: Clmnl% = Clmn% - 5

'для показа переливания DO 'цикл выбора сосуда для наливания

Number% = Number» + 1: IF Number» > 3 THEN Number» = Number% - 3 IF Volume(Number%) < Capacity(Number%) AND Number% <> Frst% THEN

Clmn% » 23 * Number% - 6 LOCATE 13, Clmn%: PRINT CHR$(24)

'маркер для наливания DO: Key$ = INKEY$: LOOP UNTIL Key$ = "" DO: Key$ = INKEY$: LOOP UNTIL LEN(Key$) > 0 IF ASC(Key$) = 13 THEN

EXIT DO 'сосуд выбран ELSE

LOCATE 13, Clmn%: PRINT " " 'стирание маркера END IP END IF LOOP Scnd% = Humbert: Clmn2% = Clmn% - 5

'для показа переливания Clmn% = cimni 'вывод изображения трубки IF С1ит% > Clmn2t THEN Clnn% = Clmn2% COLOR 9: LOCATE 13, Clmn% + 5

PRINT CHR$(200) + STRING$(ABS(Clmnl% - Clmn2%) - 1, 205) + CHR$(188) Linel% == 12 - Volume(Frst%) 'стирание старых значений объемов Lina2% = 11 - Volume(Scnd%) LOCATE Linel%, Clmnl% + 12: PRINT " "

IF Volume(Scnd%) > 0 THEN LOCATE Lina2% + 1, Clmn2% + 12: PRINT " " Deltat = Capacity(Scnd%) - Volume(Scnd%)

'расчет переливаемого объема IP Deltat > Volume(Frst%) THEN Deltat = Volume(Frst%) Volume(Scnd%) = Volume(Scnd%) + Delta%

'вычисление объемов Volume(Frst%) = Volume(Frstt) - Delta% COLOR 4, 1 FOR it = 1 TO 2 * Delta%

'показ процесса переливания LOCATE Linel%, Clmnl% IF i% MOD 2 > 0 THEN PRINT Half$ ELSE PRINT Empty$