- Код: Выделить всё
OPEN "d:\tes.tst" FOR INPUT AS #1
DO
CLS
INPUT #1, true%
IF true% = -9999 THEN GOTO Result
10 : LINE INPUT #1, text$
IF MID$(text$, 1, 1) <> "#" THEN
COLOR 14, 1: PRINT text$: GOTO 10
ELSE
COLOR 15, 1: PRINT "Vash vibor -";
INPUT number%
IF number% = true% THEN count% = count% + 1
END IF
LOOP
CLS
Result:
LOCATE 13, 30
PRINT "Pravilnih otveyov - "; count%
END
Его нужно превратить в блок-схему.
Делаю так
Правильно? Где ошибка?
Заранее спасибо.