Question

pascal 判断大小问题

我要程序原码 和 讲解
输入:
10 10 10 <---这是标准的长宽高
5 <---这是有多少判断数据
5 5 10 <--no.1 判断那个最接近 并输出 标准和 後面的差
10 10 15
10 15 10
9 9 10
11 11 11

输出:331 因为最接近的 11 11 11 乘起来减 标准(10*10*10)

Answer 1

var a,b,c,min,n,x,y,z:longint;
begin
readln(a,b,c);
readln(n);
min:=maxlongint;
for i:=1 to n do
begin
readln(x,y,z);
if abs(x*y*z-a*b*c)<min then min:=abs(x*y*z-a*b*c);
end;
writeln(min);
end.

追问

不對阿///

追答

怎么不对了啊
有没有详细的题目描述

追问

上面不是很清楚的描寫了嗎

Answer 2

要求必须比标准大么？ 否则9 9 10不更接近么。。。

追问

對阿..

追答

引用一下楼上大哥的程序。。。

var a,b,c,min,n,x,y,z:longint;
begin
readln(a,b,c);
readln(n);
min:=maxlongint;
for i:=1 to n do
begin
readln(x,y,z);
if x*y*z>a*b*c
then
if abs(x*y*z-a*b*c)<min then min:=abs(x*y*z-a*b*c);//(abc可以去掉)
end;
writeln(min);
end.

Answer 3

问题太简单？什么判断大小？

追问

好了

Answer 4

问题都没讲，别人怎么答？