Тестирование знания таблицы умножения и деления (CASIO fx-9750G, fx-9860G)
Программа написана мной для автоматизированного контроля знания таблицы умножения и деления у моего сына.
В начале программа спрашивает до какого числа проверяем (можно только на 2, можно 2 и 3, можно от 2 до 4, ..., можно от 2 до 9 и более)
После этого программа задает 20 примеров по очереди 1 на умножение и 1 на деление в выбранном диапазоне и подсчитывает правильные и ошибочные ответы. Число ниже - номер примера (от 1 до 20) В случае ошибки пример повторяется, пока не будет решён правильно. По получении 20 правильных решений программа выводит на экран сколько правильных и сколько неправильных решений.
Ребёнок был доволен что папа для него написал программу и тренировка помогла повысить его уровень знаний по математике!
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:354
File Name:TEST9750
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A
0\->B
"MAX MULTIPLYER"?\->D
D-1\->D
\For 1\->I \To 10
\Int (\Ran#*10)+1\->X
\Int (\Ran#*D)+2\->Y
X*Y\->Z
\Do
\ClrText
\Locate 1,4,Y
\Locate 3,4,"*"
\Locate 5,4,X
\Locate 7,4,"="
\Locate 1,6,2I-1
?\->C
\If C=Z
\Then "GOOD"\DispA+1\->A
\Else "BAD"\DispB+1\->B
\IfEnd
\LpWhile C\<>Z
\Int (\Ran#*10)+1\->X
\Int (\Ran#*D)+2\->Y
X*Y\->Z
\Do
\ClrText
\Locate 1,4,Z
\Locate 4,4,"/"
\Locate 6,4,Y
\Locate 8,4,"="
\Locate 1,6,2I
?\->C
\If C=X
\Then "GOOD"\DispA+1\->A
\Else "BAD"\DispB+1\->B
\IfEnd
\LpWhile C\<>X
\Next
\Locate 1,5,"GOOD="
\Locate 6,5,A
\Locate 1,6,"BAD ="
\Locate 6,6,B
\Stop
%End