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

Разработка приложения, реализующего разветвляющийся вычислительный процесс

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

Краткие сведения

Операторы if u case языка Pascal

Для программирования разветвляющихся алгоритмов в языке Pascal используются переменные типа boolean, которые могут принимать только два значения - true и false (да, нет), а также операторы if и case. Оператор if проверяет результат логического выражения или значение переменной типа boolean и организует разветвление вычислений. Оператор case организует разветвления в зависимости от селектора - значения некоторой переменной, например, n целого типа:

case n of

0: u:= x + y;

1: u:= x - y;

2: u:= x * y;

else u:= 0;

end;

В соответствии со значением n вычисляется значение переменной u. При этом, если n=0, то u=х+у, если n=1, то u=x-y, если n=2, то u=x*y и, наконец, u=0 при любых значениях n, отличных от 0, 1 или 2.

Кнопки-переключатели в Delphi

При создании программ в Delphi для организации разветвлений часто используются компоненты в виде кнопок-переключателей. Состояние такой кнопки (включено - выключено) визуально отражается на форме. На форме (см. рисунок 2.1) представлены кнопки-переключатели двух типов (TСheckBox и TRadioGroup).

Компонент TCheckBox организует кнопку независимого переключателя, с помощью которой пользователь может указать свое решение типа да/нет. В программе состояние кнопки связано со значением булевской переменной, которая проверяется с помощью оператора if.

Компонент TRadioGroup организует группу кнопок – зависимых переключателей. При нажатии одной из кнопок группы все остальные кнопки |отключаются. В программу передается номер включенной кнопки (0, 1, 2,..), который анализируется с помощью оператора case.

Пример программы

Задание: ввести три числа x, y, z. Вычислить по усмотрению или u=sin(x), или u=cos(x), или u=tg(x). Найти по желанию максимальное из трех чисел: max(u, y, z) или max(|u|, |у|, |z|).

Создать форму, представленную на рисунке 2.1, и написать соответствующую программу.

Создание формы

Создайте форму такую же, как в первом задании, скорректировав текст надписей и положение окон TЕdit.