Lazarus 3. Арифметические вычисления с помощью tEdit

Лабораторная работа № 3. Элемент управления  tEdit — текстовое поле

Разработайте приложение, которое вычисляет сумму трех любых чисел при нажатии на кнопку

Инструментарий:

объект свойство name свойство text
форма frmSumma Вычисление суммы
кнопка (tbutton) btnExit Выход
текстовое поле (tEdit) txtA 0
текстовое поле (tEdit) txtB 0
текстовое поле (tEdit) txtC 0
текстовое поле (tEdit) txtSumma 0
кнопка (tbutton) btnCount Вычислить

Lazarus вычисление суммыВыполнение:

  1. Внимание! Называйте все объекты согласно правилам именования объектов, принятых в Lazarus. В таблице или в скобках будет указан возможный вариант для имени создаваемого объекта.
  2. Создайте новый проект (Вычисление), назовите его форму frmSumma, а свойству Caption задайте значение Вычисление суммы.
  3. Создайте и самостоятельно запрограммируйте кнопку Выход (btnExit) .
  4. Создайте три элемента управления tEdit (txtA, txtB, txtC) для слагаемых. Задайте свойство Text для этих элементов управления, равное 0.
  5. Создайте еще один элемент управления TextBox (txtSumma) (размеры и расположение кнопок см. рис «форма Вычисление_суммы»). Установите его свойство Text равное 0.
  6. Создайте кнопку Вычислить (btnCount), задайте ей соответствующе свойства Caption и Name.
  7. Запрограммируйте событие Click для кнопки Вычислить следующим образом:
procedure TForm1.btnCountClick(Sender: TObject);
 
begin
 
txtSumma.text:= FloatToStrF(StrToFloat(txtA.Text) + StrToFloat(txtB.Text) + StrToFloat(txtC.Text),ffFixed,2,2);
 
end;

Функция StrToFloat () преобразует текстовое значение в дробное число

Функция FloatToStrF() преобразует дробное число типа Float в текстовое значение, параметр ffFixed — константа, вписывается без изменений, третий параметр — ширина поля, отводимого под всё число, четвертый параметр  — количество цифр в дробной части

 

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

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

Контрольное задание. Разработайте приложение, которое вычисляет:

  • площадь треугольника по трем сторонам;
  • площадь прямоугольника по двум сторонам;
  • площадь треугольника по двум сторонам и углу между ними;
  • процент от числа.


Вопросы для самоконтроля.

  1. Какова основная функция элемента управления Edit?
  2. Какая функция Lazarus переводит числовое значение в строковое?

Поделитесь уроком с коллегами и друзьями:

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*


Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить