ттттт. Практическая работа Работа с интерфейсом среды программирования Delphi. Создание простого проекта. Запуск программ на выполнение

• Название: Практическая работа Работа с интерфейсом среды программирования Delphi. Создание простого проекта. Запуск программ на выполнение
• Анкор: ттттт
• Дата: 30.01.2022
• Размер: 2.63 Mb.
• Имя файла: 0018f8f0-cdfb5c43.doc
• Тип: Практическая работа; #346059
• страница: 4 из 16

Практическая работа № 4. «Составление программ на Delphi с использованием разветвляющего алгоритма»

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

1. После запуска программы в окне изображается два движка.

2. Необходимо выбрать два числовых значения и найти их произведение.

3. Если выбирается одно число, то находится его квадрат.



Рис. 1.

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

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

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

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

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

Таблица 1.

Выделенный объект		Вкладка окна Object Inspector			Имя свойства/ имя события	Действие
Forml		Properties			Caption	Установка имени формы "Таблица умножения"
TrackBarl (Вкладка Win32)		Properties			Min (Минимум)	Присвоить значение 2
					Max (Максимум)	Присвоить значение 99
					Position (Положение)	Присвоить значение 2
					LineSize (Малое изменение)	Присвоить значение 1
					PageSize (Постраничное изменение)	Присвоить значение 7
					Frequency (Частота засечек)	Присвоить значение 7
		Events	OnChange			Label1.Caption := IntToStr(TrackBar1.Position); Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar2.Position :=TrackBar1.Position;
TrackBar2 (Вкладка Win32)	Properties			Min (Минимум)			Присвоить значение 2
				Max (Максимум)			Присвоить значение 99
				Position (Положение)			Присвоить значение 2
				LineSize (Малое изменение)			Присвоить значение 1
				PageSize (Постраничное изменение)			Присвоить значение 7
				Frequency (Частота засечек)			Присвоить значение 7
	Events			OnChange			Label2.Caption := IntToStr(TrackBar2.Position); Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar1.Position := TrackBar2.Position;
GroupBoxl (Вкладка Standard)	Properties			Caption			Ввести подпись "Произведение"
Labell (Вкладка Standard)	Properties			AutoSize (Автоподбор)			Установить значение False
				Caption			Присвоить значение 2
				Alignment (Выравнивание)			Установить значение taRightJustify (Выравнивание по правому краю)
Label2 (Вкладка Standard)	Properties			AutoSize			Установить значение False
				Caption			Присвоить значение 2
				Alignment			Установить значение taRightJustify (Выравнивание по правому краю)
Label3 (Вкладка Standard)	Properties			AutoSize			Установить значение False
				Caption			Присвоить значение 4
				Alignment			Установить значение taRightJustify (Выравнивание по правому краю)
CheckBoxl (Вкладка Standard)	Properties			Caption			Ввести подпись "Квадрат"
				Alignment			Установить значение taLefttJustify (Выравнивание по левому краю)
	Events			OnClick			TrackBar2.Position := TrackBar1.Position;

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

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

procedure TForm1.TrackBar1Change (Sender: TObject); begin

Label1.Caption := IntToStr(TrackBar1.Position);

Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position);

if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position;

end;

procedure TForm1.TrackBar2Change (Sender: TObject); begin

Label2.Caption := IntToStr(TrackBar2.Position); Label3.Caption := IntToStr(TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked then TrackBar2.Position := TrackBar1.Position; end;

procedure TForm1.CheckBox1Click (Sender: TObject); begin

TrackBar2.Position := TrackBar1.Position; end;

Задание для самостоятельного выполнения

1. Изменить программу так, чтобы находить произведения не только двузначных, но и трехзначных чисел от 2 до 199.

2. Изменить программу так, чтобы находить сумму двух чисел.

Домашнее задание.

Выполнить отчет по проделанной работе.

Отчет должен включать следующие разделы:

1. 
   Задание.
   
2. 
   Блок-схема.
   
3. 
   Листинг программы.
   
4. 
   Интерфейс программы.
   
5. 
   Тесты.