一章初识PASCAL

5. 已知图圆柱体的高为12，底面圆的半r径为7，求 已知图圆柱体的高为12，底面圆的半r径为7 12 圆柱体表面积。 圆柱体表面积。 Program yuanzhumianji; Const pi=3.14; Var h,r:integer; begin s:real; s:=2*pi*r*h+2*pi*r*r; writeln(‘s=’,s); readln; readln End.
3、加法计算器：编程由键盘输入两个整数a和b，将 它们的和输出到屏幕上。 Program qiuhe; Var a,b,c:integer; Begin write(‘please input a and b:’); read(a,b); c:=a+b; writeln(‘c=’,c); readln; readkn end.
2. 输入圆的半径R，求圆的面积和周长。 输入圆的半径R 求圆的面积和周长。
Program yuanmijiyuzhouchang; const pi=3.14; Var s,p, r:real; begin s:=pi*r*r; p:=2*pi*r; (‘s= s=’,s, p= p=’,p); writeln ( s= ,s, ‘p= ,p); readln; readln end.
第一章
wenku.baidu.com
初识Pascal语言 初识Pascal语言
1.输入三个数，计算并输出它们的平均值以及三个数的 乘积，写出程序。
program jishuan; var a,b,c,h:integer; p:real; begin write(‘please input a,b,c:’); write( please a,b,c: ); read(a,b,c); p:=(a+b+c)/3; h:=a+b+c; writeln(‘p= ,p,’h= p=’,p, h=’,h); writeln( p= ,p, h= ,h); readln; readln end.
某梯形的上底、下底和高分别为8 12， 4. 某梯形的上底、下底和高分别为8，12，9，求该 梯形的面积。 梯形的面积。 Program tixinmianji; Var a,b,h:integer; s:real; Begin a:=8;b:=12;h:=9; s:=(a+b)*h/2; writeln(‘s=’,s); readln; readln End.