Question

P a s c a l * 编 程 *

┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
有一道编程题目如下：（谁帮我编出来了有大奖哦！）
某梯形的上底A=13,下底B=18，高H=9,求他的面积！

诸位如果有能耐就编一个可以换上底、下底和高的程序
那我小弟就佩服你的五体投地了哦！嘿嘿HEIHEI！~~~~~~

Answer 1

var
a,b,c,s:real;
begin
read(a,b,c);
s:=(a+b)*c/2;write('Shang, Xia hu huan:',s); {上下底换来换去都是一样的嘛}
s:=(c+a)*b/2;write('Shang, Gao hu huan:',s); {上底和高换}
s:=(c+b)*a/2;write('Xia, Gao hu huan'); {下底和高换}
end.

Answer 2

var
a,b,c:extended;
begin
a:=13;
b:=18;
c:=9;
write(((a+b)*c/2):0:0);
end.

var
a,b,c:extended;
begin
read(a,b,c);
write(((a+b)*c/2):0:0);
end.