Разработать форму для ввода исходных данных и вывода результатов, используя компоненты страницы Standard. Ввести номер месяца в году. Вывести на экран сообщение о времени года.
Решение
Примерный вид формы представлен на рис. 5.1.
Рис. 5.1. Результат выполнения программы
unit Unit1;
//КР2 Задание3 выполнено учащимся № группы ФИО
// № варианта
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Type
TForm1 = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
