我想请大家帮帮忙~~~（三道题）

来源：百度知道 编辑：UC知道 时间：2024/06/01 02:09:10
1.请模仿写出一个Pascal程序以实现计算梯形面积。假设上底a=5，下底b=10，高h=6。
2.给出半径R=100，求圆的周长、圆的面积。
3.一个学生五门课成绩为70、89、65、100、78。编Pascal程序求出并打印平均成绩。

1
var
a,b,h:integer;
begin
readln(a,b,h);
writeln((a+b)*h/2:6:6);
end.
2
const
pi=3.1415;
r=100;
begin
writeln('C=',2*pi*r:1:2);
writeln('S=',pi*r*r:1:2);
end.
3
var
a:array[1..5]of integer;
ave:real;
i:integer;
begin
ave:=0;
for i:=1 to 5 do
begin
read(a[i]);
ave:=ave+a[i];
end;
writeln(ave/5:1:4);
end.

1、
program lx;
var a,b,h,c:integer;
begin
c:=(a+b)*h/2;
writeln(c);
end.