Стр. 181 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
181
key:=#0;
end;
end;
7. Создадим процедуру Button1Click для обработки события OnClick
компонента Button1 – Вычислить. Оформим ее следующим образом.
//процедура выполняется при щелчке по кнопке Вычислить
procedure TForm1.Button1Click (Sender: TObject);
const
//1 градус, выраженный в радианах
gr=pi/180;
var
//аргументы и результат
x,y,z:real;
begin
//если номер выбранной строки (элемента) ComboBox3
//входит в множество [0,1,2,3] то выбрана
//одна из тригонометрических функций с одним аргументом x
if ComboBox3.ItemIndex in [0,1,2,3] then
begin
//проверим поле ввода ComboBox1 на заполнение
if (ComboBox1.Text)='' then
//выход из процедуры
exit;
end
// выбрана функция, работающая с двумя аргументами
else
//если одно из полей ввода ComboBox1 или ComboBox2 не заполнено
if ((ComboBox1.Text)='') or (ComboBox2.Text='') then
//выход из процедуры
exit;
//вычисление аргумента x
//в зависимости от выбранной строки (элемента) ComboBox1
case ComboBox1.ItemIndex of
0:x:=0;
1:x:=pi/6;
2:x:=pi/4;
3:x:=pi/3;
4:x:=pi/2;
5:x:=pi;
6:x:=3*pi/2;
7:x:=2*pi
//если ItemIndex=-1, то мы ввели аргумент вручную и