№ 1. Моя первая программа.

Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы появляется окно.

Рис. 9.

2. Для выхода из программы необходимо щелкнуть мышью на кнопке "Закрыть". Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: метку Label и кнопку Button.

3. Выполнить следующие действия:

Таблица 1.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption (надпись)	Установка имени формы "Проект1"
Label1 (Вкладка Standard)	Properties	Caption	Ввод текста надписи "Моя первая программа"
		AutoSize (Автоподбор)	Ввод значения свойства: True
		Font — Color	Выбрать цвет: clPurple
Button1 (Вкладка Standard)	Properties	Caption	Установка имени кнопки "Закрыть"
	Events	OnClick	Close;

4. Сохраните проект, запустите и протестируйте его.

№2. Создание консольного приложения.

Цель работы - создать консольную программу. 1. Дать команду главного меню File > New > Other (Файл > Новый > Другое), и в диалоговом окне на закладке New выбрать значок Console Application (Консольное приложение).

Рис. 10.

2. После нажатия на кнопку ОК экран примет следующий вид:

Рис. 11.

3. Текст был сгенерирован Delphi автоматически. Он представляет собой шаблон создаваемого приложения. Ничего изменять в этом тексте в принципе не надо - он соответствует готовой программе. Но внесем некоторые изменения.

Рис. 12.

Рис. 13.

5. Выбрать команду Run. Получить результат. Нажать Enter для выхода в окно кода.

Рис. 14.

№ 3. Приветствие

Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы по щелчку мышью на кнопке "Приветствие" появляется сообщение "Первые успехи".

Рис. 15.

2. Для выхода из программы необходимо щелкнуть мышью на кнопке "Закрыть".

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: метку Label и две кнопки Button.

3. Выполнить следующие действия:

Таблица 2.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы "Проект2"
Label1	Properties	Caption	Ввод текста надписи "Первые успехи"
Button1	Properties	Caption	Установка имени кнопки "Приветствие"
	Events	OnClick	Label1.Caption:='Первые успехи'
Button2	Properties	Caption	Установка имени кнопки "Закрыть"
	Events	OnClick	Close;

4. Сохраните проект, запустите и протестируйте его. Задание для самостоятельного выполнения

1. Сделать шрифт выводимой реплики "Первые успехи!" отличным от стандартного по виду, цвету и размеру.

Подсказка. В Object Inspector дважды щелкнуть справа от названия свойства Font.

2. Заменить вид кнопки "Выход" на более привлекательный.

Подсказка. Для замены кнопки удалить существующую, а другую BitBtn найти в палитре компонентов на вкладке Additional. Затем изменить ее вид с помощью свойства Kind.

3. Сделать так, чтобы после нажатия кнопки "Приветствие" на экране появлялось сообщение "Первые и не последние!".

Подсказка. Изменить значение свойства Caption метки Labell при реакции кнопки Buttonl на событие OnClick.

Листинг программы

unit Unitl; interface uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

TForral = class(TForm) Labell: TLabel; Buttonl: TButton; BitBtnl: TBitBtn;

procedure ButtonlClick(Sender: TObject);

private

{Private declarations }

public

{Public declarations } end;

var

Forml: TFonnl;

implementation

{$R *.DFM)

procedure TForml.ButtonlClick(Sender: TObject); begin

Label1.Caption:='Первые и не последние!'; end;

end.

№ 4. Случайный выбор.

Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы появляется надпись "Брось кубик".

Рис. 16.

2. По щелчку мышью на кнопке "Бросок кубика" появляется сообщение, выдающее числа-очки в диапазоне 0 - 6.

Рис. 17.

3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: метку Label и кнопку Button.

3. Выполнить следующие действия:

Таблица 3.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Forml	Properties	Caption	Установка имени формы "Бросок кубика"
Label1	Properties	Caption	Ввод текста надписи "Брось кубик"
Button!	Properties	Caption	Установка имени кнопки "Бросок кубика"
	Events	OnClick	ЬаЬе11.Сариоп:= ШТо8и"(п);

4. Сохраните проект, запустите и протестируйте его. Фрагмент программы

procedure TForml.ButtonlClick(Sender: TObject); var n: Integer;

begin

n := random (6) + 1 ;

Label1.Caption := IntToStr (n) ; end; end.

5. Создать функцию, отображающую числовые значения граней. Function Kubic (Sides:Integer): Integer;

Begin

If Sides >= 1 then begin

Result := random (Sides) +1 ; end else begin

Result :=0; end;

End;

№ 5. Изменение заголовка формы

Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы ввести текст в текстовом поле.

Рис. 18.

2. По щелчку мышью на кнопке "Сменить заголовок окна" изменяется заголовок окна.

Рис. 19.

3. Ввести новый текст в текстовом поле.

4. Изменить название заголовка окна по нажатию клавиши Enter.

5. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы