选择结构语句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.