Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Практическая работа № 4
Задание 1. Создайте приложение, обеспечивающее ввод двух целых чисел и выполнения над ними арифметических операций сложения, вычитания, умножения и вещественного деления.
Рис. 1. Вид формы приложения с компонентами
Алгоритм выполнения работы
1. Открыть и сохранит проект под именем Calculator.
2. Заголовок окна Калькулятор.
3. Разместите на форме Form1 компоненты Edit1, Edit2 и Label1, Label2.
4. Задайте для свойства Caption компонентов Label1 и Label2 значения «Операнд», а в Edit1, Edit2 удалить текст. Для этого выберите объект в окне Инспектора объектов, на странице Properties выберите свойство Text и удалите текст.
При нажатой клавише Shift выделите компоненты Edit1, Edit2, Label1, Label2 и, вызвав контекстное меню, командой Позиция (Position) ► Выровнять (Align) ► По горизонтали (Horizontal) ► По центру (Centers) выровняйте их по горизонтали.
5. Для выбора одной из четырех арифметических операций над операндами используйте переключатели, размещенные на панели RadioGroup.
ПРИМЕЧАНИЕ. Компонент RadioGroup позволяет отображать и редактировать поля с ограниченным множеством возможных значений.
Разместите на форме Калькулятор компонент RadioGroup1 из палитры Standard.
Задайте для свойства Caption компонента RadioGroup1 значение «Операция».
Так как количество переключателей в группе и надписи около них определяются свойством Items, выберите в Инспекторе объектов компонент RadioGroup1, а на странице свойств выберите свойство Items (список элементов). В окне Редактор Списка Строк введите список элементов символов арифметических операций: +, - ,*, /, как показано ниже.
Рис. 2. Редактирование списка элементов в панели RadioGroup
Щелкнув мышью на кнопке ОК, завершите формирование списка арифметических операций.
6. В окне Инспектора объектов задайте для свойства RadioGroup.Items Index значение 0, чтобы сделать первую кнопку (сложение) выбранной по умолчанию.
ПРИМЕЧАНИЕ. Определить во время выполнения, какая кнопка выбрана в данный момент, можно по индексу ItemIndex (0 означает первую кнопку, -1 ни одна кнопка не выбрана).
7. Задайте размер символов компонента RadioGroup, установив для свойства RadioGroup: Font.Size значение 11 пунктов.
8. Разместите на форме Calculator кнопку Button1 и задайте для нее надпись «Вычислить».
9. Разместите на форме Calculator компоненты Edit3, Label3 и задайте для свойства Label3.Caption значение «Результат».
10. Удалите текст Edit3 в соответствующих компонентах.
11. Выровняйте компоненты Edit3 и Label3, отцентрировав их по горизонтали.
12. Зафиксируйте положение компонентов на форме, выбрав в меню Delphi команду Правка ► Зафиксировать. Форма будет выглядеть, как показано на рис. 3.
Рис. 3. Вид формы приложения с компонентами
13. Для обработки щелчка на кнопке Button1 с изображением символа «=» событие OnClick.
Для решения задачи вычисления арифметических операций над двумя целыми операндами введите в текст процедуры TForm1.Btn1Click следующее описание:
Как видно из текста процедуры, в операторе case выполняется выбор варианта вычислений, а вывод результата вычислений выполняется оператором, следующим после оператора case, причем для случая b=0 результат не вычисляется и в окне Edit3 не выводится, а выводится сообщение в окне сообщений.
14. Откомпилируйте и запустите приложение на выполнение.
Рис. 4. Вид окна приложения с сообщением об ошибке ввода делителя.
Задание 2. Ввести ФИО сотрудника, его зарплату за день, количество отработанных дней.
Вывести зарплату сотрудника за отработанные дни. Учесть налоги на зарплату в размере 19,5 % от зарплаты.