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

Информатика. Программирование в Delphi
182
//берем его из свойства Text
else
x:=StrToFloat(ComboBox1.Text);
end;
//вычисление аргумента y
//в зависимости от выбранной строки ( элемента) ComboBox2
case ComboBox2.ItemIndex of
0:y:=0;
1:y:=pi/6;
2:y:=pi/4;
3:y:=pi/3;
4:y:=pi/2;
5:y:=pi;
6:y:=3*pi/2;
7:y:=2*pi
//если ItemIndex=-1, то мы ввели аргумент вручную
//и берем его из свойства Text
else
y:=StrToFloat(ComboBox2.Text);
end;
//если единица измерения аргумента - градусы
//и аргумент введен в поле Text вручную
//и выбрана тригонометрическая функция, то требуется перевод
//аргумента из градусов в радианы
if (RadioButton1.Checked) and (ComboBox1.ItemIndex=-1) and
(ComboBox3.ItemIndex in [0,1,2,3]) then
//перевод аргумента из градусов в радианы
x:=x*gr;
//вычисление значения переменной z
//в зависимости от выбранной функции в компоненте ComboBox3
case ComboBox3.ItemIndex of
0:z:=sin(x);
1:z:=cos(x);
2:z:=sin(x)/cos(x);
3:z:=cos(x)/sin(x);
4:z:=exp(y*ln(x));
5:z:=x+y;
6:z:=x-y;
7:z:=x*y;
8:z:=x/y
else
z:=0;
end;
//вывод полученного результата