Naredba If..Then..Else.. Procedure TForm1.Button1Click ( SEnder: Tobject ); Var x, y, Max : Integer; Begin x := StrToInt ( Edit1.Text ); y := StrToInt ( Edit2.Text.

Download Report

Transcript 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 x1else if x1=x2 then y:=3*x1
else y:=5*x1-x2;
Label4.Caption:=IntToStr(y);
End;