编程:已知 上底:a 下底:b 高:h 求梯形的面积

C 语言：

#include <stdio.h>
#include <stdlib.h>

void main()
{
float a,b,h,area;
printf("input 梯形的上底 下底 高\n");
scanf("%f %f %f",&a,&b,&h);
area = (a+b) * h / 2.0;
printf("Area=%f",area);
}

C的程序:
main()
{
float a,b,h,area;
printf("input 梯形的上底 下底 高\n");
scanf("%f %f %f",&a,&b,&h);
area = (a+b) * h / 2.0;
printf("Area=%f",area);
}本回答被提问者采纳

pascal:
var a,b,h:double;
begin
write('s=',(a+b)*h/2);
end.

VB：
a=val(inputbox('梯形的上底：'))
b=val(inputbox('梯形的下底：'))
h=val(inputbox('梯形的高：'))
s=(a+b)*h/2
print s
把这段打在form_load中！！！

什么语言编啊?