Раздел 3. Лабораторные работы по Delphi.

3.1. Лабораторная работа №1. СтандартныекомпонентыLabel, Edit, Button, Image, Shape.

Описание и основные свойства компонентов рассмотрены в разделе 2 «Среда программирования Delphi» в подпункте 2.4. «Компонентный подход. Палитра компонентов.»

Задание 1.

Написать программу, которая пересчитывает скорость ветра из «метров в секунду» в «километров в час» (1м/с = 3,6 км/час). Рекомендуемый вид формы приведён на рисунке 3.1.

Рис. 3.1. Рекомендуемый вид формы

Запишем код программы для кнопки Пересчёт.

Для начала объявим переменные:

ms – метры в секунду,

kmh – километры в час.

Теперь необходимо считать данные из поля Edit1. Для этого используется функция StrToInt() – преобразование строки в целое число:

Пересчитываем:

Теперь осталось вывести результат. Для этого используется функция IntToStr() – преобразование значения целочисленного выражения в строку и функция FloatToStr() – преобразование значения вещественного выражения в строку.

Кнопка закрыть закрывает приложение. Для этого используется функция Close() для формы.

Общий вид программы будет иметь следующий вид:

При запуске на экране появляется форма следующего вида (рис. 3.2):

Рис. 3.2. Тестирование программы

Задание 2.

Написать программу, которая производит суммирование или перемножение введённых с клавиатуры трёх чисел. Рекомендуемый вид формы приведён на рисунке 3.3.

Рис. 3.3. Рекомендуемый вид формы

При нажатии на кнопку Сложить числа складываются и результат отображается в Label5. При нажатии на кнопку Перемножить числа перемножаются и результат отображается также в Label5. При нажатии на любую из этих кнопок поля Edit должны автоматически очищаться. Кнопка Закрыть закрывает приложение.

Запишем код программы для кнопки Сложить.

Для начала объявим переменные:

Теперь считываем данные из полей Edit и складываем:

Теперь осталось только вывести результат и очистить поля Edit:

Аналогичные операции выполняются с кнопкой Перемножить.

Задание 3.

Напишите программу, которая рисует на форме фигуру (круг, квадрат или квадрат со скругленными углами) и закрашивает её. Рекомендуемый вид формы приведён на рисунке 3.8.

Рис. 3.8. Рекомендуемый вид формы

При запуске фигура на форме не отображается.

При нажатии на кнопку Круг на форме рисуется круг с заливкой цвета формы:

При нажатии на кнопку Квадрат на форме рисуется квадрат с заливкой цвета формы. Для рисования квадрата свойству Shape присваивается значение stSquare.

При нажатии на кнопку Квадрат со скругленными углами на форме рисуется квадрат с заливкой цвета формы. Для рисования квадрата со скругленными углами свойству Shape присваивается значение stRoundSquare.

Теперь необходимо закрасить фигуру. Цвет закраски выбирается щелчком по соответствующей кнопке RadioButton. Например, при выборе красного цвета фигура закрашивается в красный цвет:

Кнопка Удалить фигуру удаляет фигуру с формы, а кнопка Close закрывает форму.