Visual Basic .NET <-> Object Pascal | Feltételes utasítás

if then end if, if then else end if

Leírás

if condition then
statements1
end if

if condition then
statements1
else
statements2
end if

Bemenet

• condition - Logikai érték Feltétel lehet akármilyen kifejezés
• statements1 - Utasítások
• statements2 - Utasítások

Példaprogramok

if i > 10 then
i =10
            i = i - 1
   i=i+1
end if
if i < 10 then
 i = 10
 else
 i=1
end if

if then, if then else

Leírás

if condition then statement1;

if condition then statement1 else statement2;

Bemenet

• condition - Logikai érték Feltétel lehet akármilyen kifejezés
• statement1 - Utasítások
• statement2 - Utasítások

Példaprogramok

if i > 10 then
begin
i :=10;            i := i - 1;   inc(i);
end;
if i < 10 then i := 10 else i:=1;