Практическая работа №3 – Введение и вывод данных с помощью элементов управления


Практическая работа №3

Тема: Введение и вывод данных с помощью элементов управления.

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

Задание 1. Ввести три целых числа и нажатием кнопки вывести на экран их произведение.

На форме расположены три компонента Edit, кнопка Button и метка Label. В результате выполнения программы форма выглядит так:

ход работы

1. Создать в своей рабочей папке каталог PRACT03_1.

2. Запустить среда Delphi и создать новый приложение

3. Выполнить File — Save All, указав пунктом назначения созданный Вами каталог PRACT03_1, под именами, которые предлагает среда Delphi.

4. На заготовку формы, которая появилась в окне, нужно разместить три поля Edit, 1 кнопку Button и одну метку Label. Расположить и оформить их так, как показано на рисунке:

5. В данной задачи программируется только обработчик события OnClick кнопки Button1. Выбираем этот метод в инспекторе объектов и вписываем необходимый программный код:

Рассмотрим отдельные строки данного кода.

Сначала в разделе var идет объявления переменных. Согласно условию задачи — это три множители (a, b, c) и их произведение (р).

В выполняемой части процедуры сначала идут три строки, которые считывают входные значения из операторов ввода Edit.Свойство text компонента Edit содержит в текстовом виде информацию о строке, введенный в видеокомпонентов. То есть, если даже в строку введено корректное целое число, видеокомпонентов интерпретирует его как строку. Функция strtoint превращает введенную строку в целое число. Обратите внимание: число должно быть введено без ошибок — если в Edit внести текст или действительное число, то при вызове функции strtoint возникнет ошибка периода выполнения.

Читать  Практическая работа №1 – Работа в среде Delphi | Свойства компонента Label

Следующая строка p = a * b * c; находит значение произведения трех целых чисел а, b, c и присваивает результат переменной р.

Последняя строка превращает полученный результат в строку (функция inttostr превращает целое число в строку) и присваивает результат свойства Caption компонента Label1.

6. Сохраним полученный приложение на диске и запустим его на выполнения.

7. Завершить работу со средой Delphi.

8. С операционной оболочки запустить файл с расширением ехе, который образовался в созданной Вами папке PRACT03_1.Результат работы программы продемонстрировать преподавателю.

Задание 2 (для самостоятельного выполнения). На форме размещено 5 компонентов Edit, кнопка Button и метка Label. Вывести в Label среднее арифметическое введенных пяти целых чисел.

Некоторые замечания по выполнению данной задачи. Нужно создать в своей рабочей папке каталог PRACT03_2. Результат выполнения программы — действительное число (типа real). Функции для преобразования действительного числа в строку и наоборот следующие: floattostr и strtofloat. Для проверки работоспособности Вашей программы можно воспользоваться следующими данными:

9. Навести порядок на рабочем месте.

[Всего голосов: 3    Средний: 5/5]