!SOS! Помогите,пожалуйста. Срочно надо!

[email protected] в категроии Информатика, вопрос открыт 10.11.2017 в 08:18

Составить для QBASIC программу-тест, задающую вопросы и по результатам выставляющую оценку.
Возможные ответы:
1)число
2)буква или текст
3)выбор числа из трех предложенных
4)выбор буквы из трех предложенных
Критерии оценивания:
5 из 5- молодец,оценка 5
4 из 5- хорошо,оценка 4
3 из 5-удовлетворительно,оценка 3
меньше 2- попробуй еще
P-числовой ответ
P$- текстовый ответ
S1-кол-во правильных ответов
S2- кол-во ошибок
I- номер текущего вопроса
Примерный образец:
CLS
I=1: S1=0: S2=0
LOCATE 14,10: ? «Вопрос»; I
…
…
LOCATE «…:INPUT» 2*3= «;P
LOCATE …,…
IF P=6 THEN ? «Верно»; S1=S1+1
ELSE BEEP:? «HED»: S2=S2+1
SLEEP 1
CLS
I=I+1
ALT INS
Shift Ins
INPUT «маш_на»; P$
IF P$= «и» OR P$= «И»
(не) верно- 1
1…
2…
3…
IF P<1 OR P>3