Question

Free Pascal IDE 编程

1。从键盘上输入一个梯形的两个底和高，求出这个梯形的面积和中位线的长度。（保留三位有效小数） 2、从键盘上输入一个三角形的三边长，计算出三角形的面积和周长。（面积保留两位有小小数） 3、输入x，y两个变量的值，输出x+y的竖式。 帮个忙、悬赏无所谓拉。

Answer 1

1var a,b,c:real;begin readln(a,b,c); writeln('S=',(a+b)*c/2:3:3); writeln('zwx=',(a+b)/2:3:3); readln;end.2var a,b,c,p:real;begin readln(a,b,c); p:=(a+b+c)/2; writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)):2:2); writeln('C=',(a+b+c):2:2); readln;end.3var x,y,i:integer;begin readln(x,y); writeln(x:8); writeln('+',y:7); for i:=1 to 8 do write('-'); writeln; writeln((x+y):8);readln. 希望有所帮助end.