Практическая работа № 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. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: метку Label, кнопку Button, текстовое поле Edit.
3. Выполнить следующие действия:
Таблица 4.
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Forml |
Properties |
Caption |
Установка имени формы "ПроектЗ" |
Labell (Вкладка Standard) |
Properties |
Caption |
Ввод текста надписи "Введите новый заголовок:" |
Editl (Вкладка Standard) |
Properties |
Text |
Очистить значение свойства Text |
Buttonl (Вкладка Standard) |
Properties |
Caption |
Установка имени кнопки "Сменить заголовок окна" |
Default |
Выбрать в раскрывающемся списке значение True |
||
Events |
OnClick |
Form1.Caption := Edit1.Text; |
4. Сохраните проект, запустите и протестируйте его.
Задание для самостоятельного выполнения
Создать программу, выполняющую следующие действия:
1. После запуска программы отображаются: две строки для ввода текущих курсов для евро и доллара; строка для ввода денежной суммы в рублях; две строки для вывода эквивалента в евро, долларах.
Рис. 20.
2. Ввести текущий курс для евро и доллара.
3. Ввести денежную сумму в рублях.
4. По щелчку мышью на кнопке "Подсчитать эквивалент" выводится денежная сумма в евро и долларах.
5. Ввести новый текущий курс для евро и доллара.
6. Ввести новую денежную сумму в рублях.
7. По щелчку мышью на кнопке "Подсчитать эквивалент" выводится новая денежная сумма в евро и долларах.
8. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.