依然是PASCAL的问题 算梯形的面积 没什么错误 就是出来的结果是1.0000000E+000

依然是PASCAL的问题 算梯形的面积 没什么错误 就是出来的结果是1.0000000E+000

新手吗？呵呵。。
这位童鞋，科学计数法学过吗？？
1.0000000E+000 就是科学计数法~！！
1.0000000E+000 = 1.0*10^0 = 1
1.0000000 是科学计数法的*号前面的部分，E+后面的就是*号后面10的N次的N~
例如：2.2200000E+002 则是 2.22*10^2 =222 ~ !
懂了么~？

接下来就是程序。。
依次输入梯形的上底、下底和高，输出梯形的面积（程序）:

var
i,j,k:integer; {设置变量：i是上底，j是下底，k是高}
l:real； {设置变量：l是结果}
begin {程序开始}
read(i,j,k); {输入上底、下底和高}
l:=(i+j)*k/2; {结果=(（上底+下底）*高/2)}
writeln(l:0:2); {输出结果，保留两位小数}
end. {程序结束}

三角形:
得先设置变量：i是底，j是高：
var
i,j:integer;
程序开始：
begin
然后读取i，j的值：
read(i,j);
输出(底*高/2)：
writeln((i*j/2):0:2)；｛i*j/2 就是底乘高除以2，:0:2保留两位小数｝
程序结束：
end.

exitcode=0
这是代码~~！
0是退出代码 。（其实这个0我也不太清楚）

不过我知道其它。。
错误代码：
200 被零除
201 范围检查错
202 堆栈溢出错
203 堆溢出错
204 无效指针操作
205 浮点上溢出
206 浮点下溢出
207 无效浮点运算
208 未安装覆盖管理程序
209 覆盖文件读错
210 对象未初始化
211 调用抽象方法
212 流登计错
213 集合下标越界
214 集合溢出

writeln(ans:0:x);{x是几位小数}

虽然我没用过pascal，但是从你说的来看 ，出现这个结果是因为你把保存结果的变量设置的类型不对，你设置成float了吧？

var i,j,k:real;
begin
read(i,j,k);
write((i+j)*k/2:0:2);
end.
i是上底，j是下底，k是高。这个程序是保留两位小数。

program simple;
var a,b,h,s,k:real;
begin
read(a,b,h);
k:=a+b;
s:=0.5*k*h;
write(s:0:2);
end.
应该没问题

程序：
program tixing;
var
a,b,h:integer; //长、宽、高分别是a，b，h
ans:real; //结果
begin
readln(a,b,h); //输入
ans:=(a+b)*h/2; //计算
write(ans:0:2); //输出（双场宽，保留两位小数）
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息