选择结构语句IF

选择结构语句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<0时，那么该方程没有实根。






program Project1;

{$APPTYPE CONSOLE}

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.

通过 Wiz 发布