«Простые числа»
Кадр данного задания представляет собой TabSheet2, с расположенным на нем
StringGrid2 – для отображения стоклеточного квадрата.
WebBrowser1- для вывода учебного материала, Button32 – кнопка для перехода из
текущего задания к содержанию.
Первоначально на StringGrid2 выделяются цветом простые числа до 100. Кнопка
Button7 меняет кадр с фрагментом учебного материала. Когда все фрагменты учебного
материала заканчиваются, StringGrid2 очищается и пользователю предлагается выделить
простые числа.
Для выделения используется процедура StringGrid3DrawCell(Sender: TObject; ACol,
ARow: Integer;Rect: TRect; State: TGridDrawState), которая закрашивает синим цветом
выбранные числа.
Процедура StringGrid3SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect:
Boolean) выделяет выбранные числа, при повторном выборе числа - снимает выделение.
Процедура PrimNumDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State:
TGridDrawState) закрашивает красным цветом простые числа.
Функция PrimeNumber(Number: integer):boolean; - возвращает true, если число
простое, false – в противном случае.
|