Naredba If..Then..Else.. Procedure TForm1.Button1Click ( SEnder: Tobject ); Var x, y, Max : Integer; Begin x := StrToInt ( Edit1.Text ); y := StrToInt ( Edit2.Text.
Download ReportTranscript Naredba If..Then..Else.. Procedure TForm1.Button1Click ( SEnder: Tobject ); Var x, y, Max : Integer; Begin x := StrToInt ( Edit1.Text ); y := StrToInt ( Edit2.Text.
Slide 1
Naredba If..Then..Else..
Slide 2
Slide 3
Procedure TForm1.Button1Click ( SEnder:
Tobject );
Var
x, y, Max : Integer;
Begin
x := StrToInt ( Edit1.Text );
y := StrToInt ( Edit2.Text );
If x > y
Then Max := x
Else Max := y;
Label4.Caption := IntToStr ( Max );
End;
Slide 4
Slide 5
Procedure TForm1.Button1Click( SEnder:
TObject );
Var
a, b, c, Max : Integer;
Begin
a := StrToInt ( Edit1.Text );
b := StrToInt ( Edit2.Text );
c := StrToInt ( Edit3.Text );
Max := a;
If b > Max Then Max := b;
If c > Max Then Max := c;
Label5.Caption := IntToStr ( Max );
End;
Slide 6
1, x 0
y 0, x 0
1, x 0
Slide 7
Procedure TForm1.Button1Click( SEnder:
TObject );
Var x,y:integer;
begin
x:=StrToInt (Edit1.Text);
if x<0 then y:=-1
else
if x=0 then y:=0
else y:=1;
Label3.Caption:=IntToStr(y);
End;
Slide 8
x1 x 2 , x1 x 2
y 3 x1,
x1 x 2
5 x1 x 2 , x1 x 2
Procedure TForm1.Button1Click( SEnder: TObject );
Var x1,x2,y:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
if x1 else if x1=x2 then y:=3*x1
else y:=5*x1-x2;
Label4.Caption:=IntToStr(y);
End;
Naredba If..Then..Else..
Slide 2
Slide 3
Procedure TForm1.Button1Click ( SEnder:
Tobject );
Var
x, y, Max : Integer;
Begin
x := StrToInt ( Edit1.Text );
y := StrToInt ( Edit2.Text );
If x > y
Then Max := x
Else Max := y;
Label4.Caption := IntToStr ( Max );
End;
Slide 4
Slide 5
Procedure TForm1.Button1Click( SEnder:
TObject );
Var
a, b, c, Max : Integer;
Begin
a := StrToInt ( Edit1.Text );
b := StrToInt ( Edit2.Text );
c := StrToInt ( Edit3.Text );
Max := a;
If b > Max Then Max := b;
If c > Max Then Max := c;
Label5.Caption := IntToStr ( Max );
End;
Slide 6
1, x 0
y 0, x 0
1, x 0
Slide 7
Procedure TForm1.Button1Click( SEnder:
TObject );
Var x,y:integer;
begin
x:=StrToInt (Edit1.Text);
if x<0 then y:=-1
else
if x=0 then y:=0
else y:=1;
Label3.Caption:=IntToStr(y);
End;
Slide 8
x1 x 2 , x1 x 2
y 3 x1,
x1 x 2
5 x1 x 2 , x1 x 2
Procedure TForm1.Button1Click( SEnder: TObject );
Var x1,x2,y:integer;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
if x1
else y:=5*x1-x2;
Label4.Caption:=IntToStr(y);
End;