«Найти недостающее число или арифметическую операцию»
Первый этап данного задания аналогичен первому этапу задания «Вычисление
выражения».
Второй этап представляет собой TabSheet4, с расположенными на нем компонентами:
Кнопка Button14 обрабатывается процедурой Button14Click(Sender: TObject), которая
формирует арифметическое выражение, выбирает из него случайно число либо знак,
заменяет выбранное значение в выражении знаком «?» и полученное выражение выводит в
Label21. Затем вызывает функцию Calculate(sMyExpression, T.fract), возвращаемое ею
значение выводит в Label20.
Label21 – для вывода выражения с загаданным числом или знаком арифметической
операции, LabeledEdit2 – для ввода варианта загаданного числа или знака пользователем.
Данное поле обрабатывается процедурой Edit7KeyPress(Sender: TObject; var Key: Char),
которая проверяет вводимые значения, защищая от ввода недопустимых. Если загадано
число, то ввод знака невозможен, если загадан знак, то невозможен ввод числа.
Кнопка Button13 обрабатывается процедурой Button13Click(Sender: TObject), в этой
процедуре происходит формирование строки-подсказки. Если загаданное число – дробное,
то оно округляется и в строку-подсказку заносится информация об округлении, далее
проверка свойств загаданного числа происходит с округленным значением.
Для
выявления
свойств
загаданного
числа,
вызывается
функция
PrimeNumber(Number: integer):boolean, которая возвращает true, если число простое, false - в
противном случае. Результат выполнения функции записывается в строку-подсказку. Затем
проверяется, не является ли данное число числом ряда Фибоначчи – результат заносится в
строку-подсказку. После этого вычисляются все делители данного числа, результат также
заносится в строку-подсказку. После выявления свойств числа – строка-подсказка
выводится в statictext1.
Кнопка Button15 предназначена для вывода исходного выражения(без знака «?»), она
обрабатывается процедурой Button15Click(Sender: TObject), в которой вызывается функция
Calculate(sMyExpression, T.fract), результат выполнения функции выводится в LabeledEdit4.
В данном поле пользователь может увидеть загаданное число или знак.
Достарыңызбен бөлісу: |