带控制结构的 pascal 程序示例

1，if() then-else-;

cat p1_3_1.pas
 

program p1_3_1;
    var a:integer;
    begin
        writeln('a =');
        readln(a);
        if(a mod 2 = 0) then
            writeln('even')
        else    writeln('odd');
    end.

$ cat p1_3_2.pas

program p1_3_2;
    var a,b,max:integer;
    begin
        writeln('input a, b =');
        readln(a, b);

        if a>=b then max := a else max := b;
        writeln('max =', max);
    end.

2,  for-to-do -;

$ cat p1_4_1.pas
 

program p1_4_1;
    var i:integer;
    begin
        for i:=1 to 100 do
            if i mod 2 = 0 then write(i:5);
    end.

3, while-do-;

$ cat p1_4_2.pas

program p1_4_2;
    var odds, limit, sum: integer;
    begin
        writeln('input limit =');
        readln(limit);
        sum:=0;
        odds:=1;
        while odds <= limit do
            begin
                sum:=sum+odds;
                odds:=odds+2
            end;
            writeln('sum = ', sum:1)
    end.

4,  -and- 逻辑运算 与

$ cat p2_1_2.pas
program p2_1_2(input, output);
    var
        a,b,c,s,area:real;
        begin
            writeln('input a,b,c:');
            readln(a,b,c);
            if(a+b>c) and (b+c>a) and (c+a>b)
            then
                begin
                    s:=(a+b+c)/2;
                    area:=sqrt(s*(s-a)*(s-b)*(s-c));
                    writeln('a=', a:6:2, 'b=',b:6:2, 'c=',c:6:2);
                    writeln('area=',area:6:2);
                end
            else
                begin
                    writeln('a=',a:6:2,'b=',b:6:2,'c=',c:6:2);
                    writeln('input data error!')
                end
        end.

5,