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

Информатика. Программирование в Delphi
184
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate (Sender: TObject);
begin
Form1.BorderStyle:=bsDialog;
ComboBox1.Items.Add('0');
ComboBox1.Items.Add('Pi/6');
ComboBox1.Items.Add('Pi/4');
ComboBox1.Items.Add('Pi/3');
ComboBox1.Items.Add('Pi/2');
ComboBox1.Items.Add('Pi');
ComboBox1.Items.Add('3*Pi/2');
ComboBox1.Items.Add('2*Pi');
ComboBox2.Items.Add('0');
ComboBox2.Items.Add('Pi/6');
ComboBox2.Items.Add('Pi/4');
ComboBox2.Items.Add('Pi/3');
ComboBox2.Items.Add('Pi/2');
ComboBox2.Items.Add('Pi');
ComboBox2.Items.Add('3*Pi/2');
ComboBox2.Items.Add('2*Pi');
ComboBox3.Items.Add('sin(x)');
ComboBox3.Items.Add('cos(x)');
ComboBox3.Items.Add('tg(x)');
ComboBox3.Items.Add('ctg(x)');
ComboBox3.Items.Add('x^y');
ComboBox3.Items.Add('x+y');
ComboBox3.Items.Add('x-y');
ComboBox3.Items.Add('x*y');
ComboBox3.Items.Add('x/y');
ComboBox3.Style:=csDropDownList;
ComboBox3.ItemIndex:=0;
end;
procedure TForm1.ComboBox1KeyPress (Sender: TObject; var Key: Char);
begin
case key of