作业帮pascal过程的题 题目是这样的,输入30个数,当做十个三角形的三边,求这10个三角形的面积.完成了有追加嗯,我自己写了一个program area;vara,b,c,s:real;i:integer;procedure ts(a0,b0,c0:real);var p,s0:real;beginp:=(a0+
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/26 18:53:01
pascal过程的题 题目是这样的,输入30个数,当做十个三角形的三边,求这10个三角形的面积.完成了有追加嗯,我自己写了一个program area;vara,b,c,s:real;i:integer;procedure ts(a0,b0,c0:real);var p,s0:real;beginp:=(a0+
pascal过程的题 题目是这样的,输入30个数,当做十个三角形的三边,求这10个三角形的面积.完成了有追加
嗯,我自己写了一个
program area;
var
a,b,c,s:real;
i:integer;
procedure ts(a0,b0,c0:real);
var p,s0:real;
begin
p:=(a0+b0+c0)/2;
s0:=sqrt(p*(p-a0)*(p-b0)*(p-c0));
writeln('p=',p,'s0=',s0)
end;
begin
for i:=1 to 10 do
read(a,b,c);
ts(a,b,c);
end.
怎么做一个循环把结果输出?
怎么加一个说明.就是如果三角形俩个边之和大于第三边,俩边之差小于第三边,然后输出.
过程里的变量不能和主程序里的变量一样吗?
我写的这个最后输出的是半周长和面积,怎么样才能只输出面积?
如果想输出面积和怎么写?
希望有大牛帮帮我.
pascal过程的题 题目是这样的,输入30个数,当做十个三角形的三边,求这10个三角形的面积.完成了有追加嗯,我自己写了一个program area;vara,b,c,s:real;i:integer;procedure ts(a0,b0,c0:real);var p,s0:real;beginp:=(a0+
program area;
var
a,b,c,s,sum:real;
i:integer;
procedure ts(a0,b0,c0:real);
var p,s0:real;
begin
p:=(a0+b0+c0)/2;
s0:=sqrt(p*(p-a0)*(p-b0)*(p-c0));
writeln('s0=',s0)//删去输出半周长
sum:=sum+s0;//累加面积和
end;
begin
for i:=1 to 10 do begin //加了begin 和end就相当于循环输出
read(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then ts(a,b,c);//判断是否构成三角形
end;
writeln(sum);输出面积和
end.
主程序里的变量能在主程序和过程里用
过程里的变量只能在过程里用
但是主程序里的变量名和过程里的变量名一直时,主程序的变量只能用在主程序,过程的变量也只能用在过程