Лабораторная работа №2 Разветвляющийся вычислительный процесс в Object Pascal

Лабораторная работа №2

Разветвляющийся вычислительный процесс в Object Pascal

Цель работы: научиться пользоваться простыми компонентами организации переключений TCheckBox и TRadioGroup. Писать и редактировать программу разветвляющегося процесса.

Задание

1.     Ознакомиться с теоретическим материалом.

2.     Проверить свою теоретическую подготовку с помощью контрольных вопросов.

3.     Реализовать проект приведенный в разделе 2. Проверить полученные результаты. При необходимости отредактировать проект (дизайн формы, использованные компоненты и текст программного кода). Сделать выводы.

4.     В соответствии с вариантом составить блок-схему алгоритма и программу для вычисления функций z и y. Ввести программу в ЭВМ, вычислить значение функции и проверить ее для самостоятельно выбранных трех пар значений переменных x и y. Сделать выводы.

Ход работы

                                                 1          

                                                 2

                                                                                    x, y, w, z

                                                             3

                                                               4                                true

                                                                                                5

                                                                                               false                                   

                                                                 6                              true

                                                                                                   7

                                                                                              false

                                                                 8

                                                                                                  true

                                                                                                  9

                                                                                                false

                                                                  10

                                                                11

Рисунок 1 – Блок-схема

Группа исходных данных. Результаты.

В соответствии с заданием, группа  исходных данных выбиралась самостоятельно в произвольном порядке.

Для первой группы данных последовательность выполнения блоков будет такова: 1,2,3,4,5,6,8,10,11.

Для второй группы данных: 1,2,3,4,6,7,8,10,11.

Для третьей группы данных: 1,2,3,4,6,8,9,10,11.

Рисунок 2 – Форма

Для создания формы использовались  3 однострочных поля Libel, 3 поля для ввода исходных данных и вывода результата Edit, 1 кнопка Button для вычисления результатов, находящиеся на панели инструментов Standard. Для визуального представления функции использовалась кнопка Image, находящаяся на панели инструментов Additional.

Для редактирования формы (изменения типа, цвета, подчеркивания и размера шрифта) использовалось поля Caption и Font, находящиеся в окне редактора свойств объектов Object Inspector.

Код программы

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z,w:real;

begin

x:=StrtoFloat(Edit1.Text);

y:=StrtoFloat(Edit2.Text);

w:=Sqrt(x)+sqrt(y);

if w=1 then z:=1;

if w<1 then z:=x+y;

if w>1 then z:= 3*sqr(x);

Edit3.Text:=FloatToStr(z);

end;

end.

Рисунок 3 – Вид окна программы.

Вывод: в ходе данной лабораторной работы приобретены навыки в создании программы разветвляющегося процесса для вычисления значений функции в среде программирования Delphi. Был проведен опыт в использовании оператора условного перехода при помощи ключевых слов if, then. Из теоретического материала, касающегося данной работы были получены сведения о возможности использования кнопок-переключателей, таких как компоненты TCheckBox и TRadioGroup для выполнения анализа с помощью оператора case.