10- mavzu. Delphi dasturlash muhitida tarmoq operatorlari Savollar

procedure TForm1.Button1Click(Sender: TObject);
var a, b, y: real;
begin
if Edit1.Text='' then Form2.ShowModal;
if Edit2.Text='' then Form2.ShowModal else
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if a>0 then y:=a+b else y:=a-b;
label4.caption:=FloatToStr(y);
end;
end;

4

procedure TForm1.Button2Click(Sender: TObject);
begin
if Panel1.Color= clBackground then Button1.Enabled:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Panel2.Color=clActiveCaption then
begin
Button1.Enabled:=true;
Panel3.Color:=clMoneyGreen;
Panel4.Color:=clRed;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if Panel4.Color=clTeal then
begin
Button1.Enabled:=true;
Panel3.Color:=clBlue;
end
else
begin
MediaPlayer1.Play;
Form1.Color:=clYellow;
end
end;
end.

3. 
   CASE ko‘rsatmasidan foydalanib tarmoqlanuvchi jarayonlarga doir dasturlar tuzish va «Delphi» komponentlari bilan bog‘lash.
   

CASE - Variant tanlash operatori
Ayrim algoritmlarning hisoblash jarayonlari o‘zlarining ko‘p tarmoqliligi bilan
ajralib turadi. Umuman olganda, tarmoqli jarayonlarni hisoblash uchun shartli
operatordan foydalanish yetarlidir. Lekin, tarmoqlar soni ko‘p bo‘lsa shartli operatordan
foylanish algoritmning ko‘rinishini murakkablashtirib yuboradi. Bunday hollarda shartli
operatorning umumlashmasi bo‘lgan variant tanlash operatoridan foydalanish maqsadga
muvofiqdir. Variant tanlash operatorini sintaksis ko‘rinishi quyidagicha: