请教此题源文件该怎样写 — 编程爱好者社区

主题：请教此题源文件该怎样写

wuyongyi [专家分：0] 发布于 2008-04-01 16:32:00

一批钢板,找出面积最大的,并输出长宽和面积.

输入样例:
3    2  {前者为长,后者为宽}
4    2.5
3.5  2
0    0  {结束标志}

输出样例
4*2.5=10.0

本帖地址： http://bbs.pfan.cn/post/271736.html

回复列表（共6个回复）

沙发

angwuy [专家分：2280] 发布于 2008-04-01 17:57:00

var m,n,m1,n1:extended;
begin
     k:=0;
     repeat
     readln(m,n);
     if m*n>k then begin k:=m*n;n1:=n;m1:=m;end;
     until (m=0)and(n=0);
     writeln(n1:0:1,'*',m1:0:1,'=',k:0:1);
end.

随手打的

板凳

wuyongyi [专家分：0] 发布于 2008-04-02 15:28:00

[em2]谢谢,比我原来想的思路好多了,我还老想着要用排序来比较它的大小,[em8]
另外,请教extended和real的区别.

3 楼

angwuy [专家分：2280] 发布于 2008-04-02 18:02:00

extended是10个字节，readl是4个字节。
精度不一样

4 楼

wuyongyi [专家分：0] 发布于 2008-04-07 08:37:00

对不起，这个精度是指什么精度？

5 楼

angwuy [专家分：2280] 发布于 2008-04-07 12:28:00

精度是指能记录多少位

6 楼

游侠UFO [专家分：1200] 发布于 2008-05-04 12:45:00

....再次跑上论坛...看到了久违的Pascal代码..呵呵

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请教此题源文件该怎样写

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请教此题源文件该怎样写

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）