maxnum.pas

关于课件 好多种结构的算法 等等 大家自己看吧

PROGRAM p3_1(input,output); 
  VAR  a,b,c:real;
     Begin 
    Readln(a,b,c);
    IF a > b THEN  
      If  a > c then writeln(a)
                           Else writeln(c)
                                Else
           If b > c then writeln(b)
                   Else writeln(c); 
        Readln
      End .