10- mavzu. Delphi dasturlash muhitida tarmoq operatorlari Savollar

Misol.
IF F<>0 THEN B:=X/A;
Agar A≠0 bo‘lsa, u holda V:=X/A; operatori bajariladi. Agar A=0 bo‘lsa, u holda bu
operator tashlab qoldiriladi va boshqaruv keyingi operatorga uzatiladi.
IF operatori quyidagi ko‘rinishga ham ega bo‘lishi mumkin:


IF A THEN ST1 ELSE ST2;
Bu yerda, A - mantiqiy ifodasi, ST1, ST2 operatorlar. Agar A - rost bo‘lsa, ST1 operatori -
bajariladi, agar A – yolg‘on bo‘lsa ST2 operatori bajariladi va ikkala holda ham boshqaruv
keyingi operatorga uzatiladi.
Eslatma 1: ELSE dan oldin nuqta vergul (;) quyish mumkin emas.
Misol:
IF A<>0 THEN B: =1/A ELSE B:=0;
Agar A≠0 bo‘lsa, u holda V - o‘zgaruvchi 1/A ni o‘zlashtiradi, agar A=0 bo‘lsa, 0 qiymatini
o‘zlashtiradi.
Eslatma 2: Quyidagi operatorning:


IF A1 THEN IF A2 THEN ST1 ELSE ST2;
sintaksis bir xil emasligi quyidagicha yoziladi(tushuniladi):


IF A1 THEN


BEGIN


IF A2 THEN ST1 ELSE ST2


END;

Misol:

IF A<>0 THEN IF B<>0
THEN C:=A/B ELSE C:=0;
K:=-1;
Agar A≠0 bo‘lsa, u holda V≠0 uchun S=A/V, V=0 uchun S=0 bo‘ladi va undan keyin K:=-1;
operatori bajariladi. Agar A=0 bo‘lsa, u holda boshqaruv to‘g‘ridan to‘g‘ri K:=-1;
operatoriga uzatiladi.
Quyida IF operatoriga misollarni “Delphi” muhitida ko‘ramiz.

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, MPlayer;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
Panel1: TPanel;

3

Panel2: TPanel;

Panel3: TPanel;
Panel4: TPanel;
Button3: TButton;
Button4: TButton;
MediaPlayer1: TMediaPlayer;

procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}