Пример готовой контрольной работы по предмету: Программирование
Содержание
Программа представляет собой обучающую игру «посчитай фигуры». Пользователь должен ввести название вида изображенных фигур (круг или квадрат) и их количество в предназначенные для этого поля. Время на выполнение каждого задания ограничено (30 секунд).
По истечение этого времени, если пользователь не ввел вариант ответа, выводится сообщение: «Время вышло! Играем заново», — и выдается новое задание. Если ответ был введен, в зависимости от его правильности выводится либо сообщение: «Молодец!», либо сообщение: «Попробуй еще». Пользователь может поменять цвет фигур в любой момент игры. Этот цвет будет использоваться в игре до новой смены пользователем либо до выхода из программы.
Выдержка из текста
1.Заголовок:
procedure TForm 1.Action 1Execute(Sender: TObject);
Описание:
обработчик события OnExecute действия Action 1 компонента ActionList
1. Вызывается при нажатии на Button 2 (Выход) и при выборе пункта N2 (Выход) главного меню (компонент MainMenu 1).
Выводит сообщение: «Приходите еще…», — и выполняет закрытие окна программы.
Листинг:
procedure TForm 1.Action 1Execute(Sender: TObject);
begin
ShowMessage(‘Приходите еще…’);
Close;
end;