几个简单的 Pascal 程序示例

最新推荐文章于 2024-05-14 23:13:17 发布

Eloudy

最新推荐文章于 2024-05-14 23:13:17 发布

阅读量381

点赞数 3

文章标签：开发语言 pascal 编译器

本文链接：https://blog.csdn.net/eloudy/article/details/138605891

版权

$ 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.