Pascal的代码.docVIP

1、?program p1; var a,b,sum:integer; begin ?? write(Please input A:); ?? readln(a); ?? write(Please input B:); ???readln(b); ?? sum:=a+b; ?? writeln(sum=,sum); ?? readln end. 2、 program p2; var a,b,temp:integer; begin write(A=); readln(a); write(B=); readln(b); temp:=a; a:=b; b:=temp; writeln(A=,a); writeln(B=,b); readln end. 3、? program p3; var a,b,zhouchang,mianji:integer; begin write(Please input Chang:); readln(a); write(Please input kuan:); readln(b); zhouchang:=(a+b)*2; mianji:=a*b; writeln(ZhouChang=,zhouchang); writeln(MianJi=,mianji); readln end. 4、 program p4; var a,b,h,area:integer;{因刚入门，没有讲实数的概念，所以暂时用整数，但这样计算时会有问题，大家用数字试试} begin write(Please input Shangdi:); readln(a); write(Please input Xiadi:); readln(b); write(Please input Gao:); readln(h); area:=(a+b)*h div 2;{注：div是用于整数相除，实数相除时仍用/，但这里会有些问题，仔细找} writeln(MianJi=,area); readln end. 5、? program p05;var num,bai,shi,ge:integer;begin randomize; num:= trunc(random*900)+100; bai:=num div 100; shi:=(num-bai*100) div 10; ge :=num mod 10; writeln(num=,num); writeln(bai=,bai); writeln(shi=,shi); writeln(ge=,ge); readlnend. 6、? program p06;var a,b,max:integer;begin readln(a,b); if ab then max:=a else max:=b; writeln(max=,max); readlnend. 7、? program p07;var a:integer;begin readln(a); if a mod 5 =0 then writeln(Yes) else writeln(N0); readlnend. 8、? program p08;var a:integer;begin readln(a); if a0 then writeln(ABS is :,a) else writeln(ABS is :,-a); readlnend. 9、? program p09;v