Лабораторный практикум
жүктеу/скачать 2,64 Mb.
|
Delphi задачи
- Бұл бет үшін навигация:
- Edit3.text:=FloatToStrF(c,ffGeneral,7,4);
- Закрыть
| var
a, b : integer; {2 операнда - целые числа} с : real; {частное - вещественное число} В тело процедуры обработки события введите текст: a:=StrToInt(Edit1.text); {преобразование текстовой строки в целое число} b:=StrToInt(Edit2.text); с:=а/b; {выполнение операции вещественного деления и присваивание результата переменной с} Edit3.text:=FloatToStrF(c,ffGeneral,7,4); {преобразование вещественного числа в текстовую строку} ПРИМЕЧАНИЕ Поскольку свойства text объектов Editl, Edit2 имеют строковые значения, для их преобразования в целые числа используется стандартная функция Object Pascal — StrToInt. Так как свойству Edit3.text нужно присвоить значение вещественного частного, то для преобразования вещественного числа в текстовую строку используется функция FloatToStrF. 12. Для получения справочной информации о синтаксисе функции FloatToStrF укажите курсором название функции и нажмите F1. В окне справки описано назначение параметров этой функции. 13. Откомпилируйте и запустите программу на выполнение при помощи команды Выполнить ► Выполнить или щелчка мышью на кнопке Выполнить в панели инструментов или нажатием клавиши F9. После этого на экране компьютера появится окно созданной вами формы с компонентами Edit1, Edit2, в которые можно вводить значения, как показано на рис. 23. Рис. 23. Окно приложения, выполняющего операцию вещественного деления При щелчке на кнопке Button1 «=» обработчик этого события будет выполнять операцию вещественного деления двух чисел и выводить частное в окне Edit3. 14. Завершите работу приложения любым из стандартных способов, например, щелчком мышью на кнопке Закрыть в правом верхнем углу окна. Дополнительное задание 1. жүктеу/скачать 2,64 Mb. Достарыңызбен бөлісу:
|