«Нахождение НОД»
На кадре данного задания расположены: WebBrowser1- для вывода учебного
материала, Button32 – кнопка для перехода из текущего задания к содержанию, TabSheet6 с
расположенными на нем SpinEdit9 – для ввода количества чисел, для которых нужно найти
НОД, StringGrid4 – для отображения чисел, для которых нужно найти НОД, Button27 – для
генерирования чисел, LabeledEdit8 – для ввода пользователем найденного для данных чисел
НОДа, Button28- для сравнения введенного пользователем и вычисленного программой
НОДа, LabeledEdit10 – для отображения результата сравнения, Button29 – для вывода
правильного НОДа в поле LabeledEdit9,
Button30 –для очищения текущего задания.
Кнопка Button27 обрабатывается процедурой Button27Click(Sender: TObject), которая
генерирует числа, выводит их в StringGrid4. Из этой процедуры вызывается функция
Nodarray(A: array of Integer;lmas:integer): integer, которая возвращает НОД для указанных
чисел.
Для выбора заданий пользователем на форме расположена компонента MainMenu1:
TMainMenu.
Достарыңызбен бөлісу: |