«Найти недостающее число или арифметическую операцию»

Первый  этап  данного  задания  аналогичен  первому  этапу  задания  «Вычисление 

Второй этап представляет собой 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. 

В данном поле пользователь может увидеть загаданное число или знак.