Лабораторная работа № 11 Программирование ветвлений в Borland Delphi

Цель: применить поля редактирования и переключатели, кнопки для выполнения вы­числений и выхода из программы и другие средства среды программирования Borland Delphi.

Задачи:

1. Создать форму по заданию и выполнить остальные действия.

2. Убедиться в работоспособности разработанной программы.

Перечень оборудования и программного обеспечения: ПК, находящийся в локальной сети, операционная система Windows, среда программирования Borland Delphi.

Литература: 3, 7, 12, 13, 24, 27, 29, 30, 37, 39.

Краткое изложение основных теоретических и методических аспектов:

Поле редактирования (Edit) используют для ввода строки символов с клавиатуры. Для преобразования полученной строки (свойство Text) в число и наоборот применяют стандартные функции Val и Str, или функции среды StrToFloat и FloatToStr. Переключатель (RadioButton) используют для выбора действия среди нескольких альтернатив.

Для вставки в форму поля редактирования нужно щелкнуть на пиктограмме Edit на закладке Standard палитры ком­понентов, а потом - в нужном месте на форме. Чтобы вставить в форму переклю­чатель нужно щелкнуть на пиктограмме RadioButton на закладке Standard палитры компонентов главного окна, а после - в точке вставки на форме. Для активности переключателя задается значе­ние свойства Checked (контроль выбора) - True.

Запрограммировать радиокнопку можно так. Активизировать поле Edit и щелкнуть дважды на переключателе RadioButton. При этом получится заготовка процедуры, в ее теле опишите действия, которые должны быть выполнены в результате щелчка на переключателе RadioButton:

procedure TForm1.RadioButton1Click (Sender: Tobject);

begin

Label1.Caption := '=>'; {Меняем символ}

Edit1.SetFocus {Активизируем поле Edit1}

end;

Для программирования кнопки «Выход» удобно воспользоваться процедурой закрытия окна программы Close:

procedure TForm1.Button2Click (Sender: TObject);

begin

Close {Закрываем окно программы}

end;

Запрограммировать кнопку «Вычислить» можно так. Данное в поле редактирования - это значение свойства Text типа string. Для его преобразования в числовой дейст­вительный тип (real) воспользуйтесь процедурой Val, а наоборот - про­цедурой Str. Опишите соответствующие основные и до­полнительные переменные в разделе var. Например, для вычисления валют:

procedure Tform1.Button1CHck(Sender: TObject);

var kurs1, kurs2, summa : real;

cod : integer; ed : string[9];

begin

Val (Edit1.Text, kurs1, cod); {Значения курса покупки}

Val (Edit2.Text, kurs2, cod); {Значения курса продажи}

Val (Edit3.Text, summa, cod); {Числовое значение суммы в USD}

if RadioButton2.Checked = True

then summa:=summa * kurs2

else summa:= summa * kurs1;

Str(summa:9:2, ed);

Edit4.Text := ed;

{Полученное число суммы в преобразуется в текстовый формат и результат присваиваем свойст­ву Text поля вывода Edit4}

end;

Самостоятельно изучить вопросы:

1. Чем отличаются понятия «язык», «среда» и «система программирования»?

2. Что обязательно включает в себя современный языка программирования?

3. Что входит в состав системы программирования?

Контрольные вопросы:

1. Какие из технологий программирования относятся к нисходящему, а какие к восходящему программированию?

2. Какие языки или среды программирования объединяют несколько идеологий программирования?

Задания: Создать форму с названием «Обмен валюты» для моделирования соответствующих операций обменного пункта.

Порядок выполнения:

1. Загрузить среду программирования Delphi.

2. Отказаться от возможности изменять размеры окна про­граммы. Выполнить программу и убедится, что отсутствуют кнопки для минимизации, максимизации окна и систем­ного меню. Завершить работу программы.

3. Вставить в форму два объекта типа RadioButton (переклю­чатель). Задать начальное значение второго переключателя как активное.

4. Вставить в форму четыре поля редактирования Edit, четыре текстовых поля Label и две кнопки Button.Сохранить созданную форму в своей пап­ке.

5. Поменять название формы с Form1 на Обмен валюты и изменить подписи на RadioButton, Label и Button, поочередно выбирая объекты и меняя значения свойства Caption. Задать одинаковые размеры для всех расположенных элементов и выровнять их на форме. Сохранить работу.

6. Задать значения курсов купли-продажи валюты, указать сколько валюты покупается или продается: значение свойства Text объекта Edit1 - 5.25, Edit2 - 5.45 и Edit3 - 20. Очистить Edit4 и заблокировать возможность ввода данных, поскольку в него будет выводиться результат. Выполнить программу и убедится, что нельзя ввести или редактировать данные в Edit4.

7. Запрограммировать RadioButton, чтобы направление стрелки указывало операцию: купля или продажа. Запустить программу и убедится, что переключатели вы­полняют свои функции. Запрограммировать кнопки «Выход» и «Вычислить». Сохранить работу, выполнить программу с разными денеж­ными суммами и операциями. Закрыть окно программы «Обмен валюты».

8. Обеспечить появление подсказки «Введите сумму в долла­рах» после перемещении указателя мыши к Edit3. Поменять вид стрелки с => на , а <= на  с помощью шрифта Wingdings. Сохранить работу, запустить программу и убедится, что подсказка появляется и стрелка меняется.

9. Создайть ехе-файл программы. Закрыть среду Delphi, запустить созданную программу и выполните вычисления для разных входных данных. Запустите ехе-файл с именем проекта из своей папки.

10. Вставить в созданную форму кнопку для очистки полей денежных сумм. Выполнить программу и убеди­тся в правильности ее работы.

11. Обеспечить появление подсказок «Введите курс купли» и «Введите курс продажи» после перемещения указателя мыши к полям Edit1 и Edit2.

12. В процедуре для кнопки «Вычислить» предусмот­реть 1% сбора в пенсионный фонд от операции продажи.

13. Модифицировать программу, введя дополнитель­ную возможность: после щелчка мышью на стрелке изменить тип операции (купля, продажа).

14. Удалить лишние объекты из формы и из­менить код кнопки «Вычислить», чтобы ее можно было переводить мили в километры и наоборот в зави­симости от положения переключателя (1 миля = 1,609344 км). В форму вставить группу переключателей для выбора типа мили из двух возможных: морской или обычной (1 морская ми­ля = 1,852 км).

15. Оформить отчет с программным кодом и формами с результатами работы.

16. Сделать вывод по полученным результатам работы.