江苏淮安移动公司招聘:编程:已知 上底:a 下底:b 高:h 求梯形的面积

来源:百度文库 编辑:神马品牌网 时间:2024/05/05 05:35:33
tc语言

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);
}

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);
}

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中!!!

什么语言编啊?