几个简单的 Pascal 程序示例

$ cat p1_1_1.pas

Program p1_1_1(input, output);
    const pi = 3.14159;
    var r, s: real;

    begin
        write('r=?');
        readln(r);
        s:=pi*r*r;
        writeln('s=',s:12:5);
        
    end.

fig:

$ cat p1_1_2.pas

program p1_1_2(input, output);

    var a,b,h,s:real;
    begin
    write('input a, b, h:');
    readln(a,b,h);
    s:=(a+b)*h/2;
    writeln('s=', s:12:6);
    end.

fig:

$ cat p1_2_1.pas

program p1_2_1(input, output);
    var x,y,s:integer;
    begin
        writeln('please input 2 number:');
        readln(x,y);
        s:=x;
        x:=y;
        y:=s;
        writeln('output: x= ',x,' y= ',y);
    end.

$ cat ex2.pas

program ex2;
    var A,B,C:integer;
    begin
        A:=50; B:=43;C:=13;{initialize}
        A:=A div 3; B:=B+A; C:=C+A;{first operation}
        B:=B div 3; A:=A+B; C:=C+B;{second operation}
        C:=C div 3; A:=A+C; B:=B+C;{3rd operation}
        writeln('A = ',A,' B = ',B,' C = ', C);{output result}
    end.