選擇結構語句IF

if語句通過對條件表示式的判斷，來決定程式的執行流程。

if《條件表示式》

then語句1;

if《條件表示式》

then語句1else 語句2;

if《條件表示式1

>

then語句1

elseif《條件表示式2

>

then語句2

elseif《條件表示式n>

then語句3

....

..else語句n;

例1：單分支條件語句

判斷乙個數的奇偶性。（乙個數餘2等於0就是偶數）

ifstrtoint(edit1.text)mod2=0then 

showmessage('是偶數')

elseshowmessage(' 不是偶數');

例2：巢狀形式條件語句

解一元二次方程

對於乙個一元二次方程ax2+bx+c=

0其根有以下三種情況：

當a ≠0時，如果b2-

4ac>

0,那麼該方程有2個不相同的實根。

當b2-

4ac>0=

0時，那麼該方程有兩個相同和實根。

當b2-

4ac>

0<

uses

sysutils;

var

a,b,c,x1,x2,theta:real;

begin

writeln('這是乙個求一元二次方程的程式');

writeln('請輸入a,b,c的值');

read(a,b,c);

theta:=b*b-

4*a*c;

if theta>0 then

begin

theta:=sqrt(theta);

x1:=(-b+theta)/(2

*a);

x2:=(-b-theta)/(2

*a);

writeln('方程有2個不同的實根');

writeln('x1= ',x1);

writeln('x2= ',x2);

readln;

end

else if(theta=

0)then

begin

x1:=

-b/(2

*a);

writeln('方程有2個相同的實根');

write('x1=x2',x1);

readln;

end

else

begin

writeln('方程沒有實根');

readln;

end;

readln;

end.