zoukankan      html  css  js  c++  java
  • 选择结构语句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.




  • 相关阅读:
    使用自己的key对app进行签名
    pl/sql中文乱码解决办法
    Oracle存储过程中创建表的权限
    pl/sql中获得sql语句执行后影响的行数
    申请Android Map APIKey
    vs快捷键
    ODAC安装配置与使用详解
    .net不安装Oracle11g客户端直接使用ODAC
    android通过USB使用真机调试程序
    pl/sql中实现字符串分割
  • 原文地址:https://www.cnblogs.com/xe2011/p/2532888.html
Copyright © 2011-2022 走看看