Pascal中maxint的使用
programp6_8;vara:array[0..19]ofinteger;s,max,min:integer;.smax,smin:integer;i:integer...
program p6_8;
var a:array[0..19] of integer;
s,max,min:integer; .
smax,smin:integer;
i:integer;
begin writeln('Please read 20 datas');
for i:=0 to 19 do read(a);
max:=-maxint;min:=maxint; {这个maxint赋值什么值给max和min}
for i:=0 to 19 do
begin
s:=a+a[(i+1) mod 20]+a[(i+2) mod 20]+a[(i+3) mod 20];
if s>max then {这里比较大小,max的值确定是多少}
begin
max:=s;smax:=i;
end;
if s<min then
begin
min:=s;smin:=i;
end;
end;
write('max:');
write(a[smax]:2);for i:=1 to 3 do write('+',a[(smax+i) mod 20]:2);
write('=',max);
writeln('Start from',smax+1);
write('min:');
write(a[smin]:2); for i:=1 to 3 do write('+',a[(smin+i) mod 20]:2);
write('=',min);
writeln('Start from',smin+1);
end.
如果有maxint的详细说明更好,比如原理什么的。
{这个maxint赋值什么值给max和min}
{这里比较大小,max的值确定是多少}
问题在程序旁标有。 展开
var a:array[0..19] of integer;
s,max,min:integer; .
smax,smin:integer;
i:integer;
begin writeln('Please read 20 datas');
for i:=0 to 19 do read(a);
max:=-maxint;min:=maxint; {这个maxint赋值什么值给max和min}
for i:=0 to 19 do
begin
s:=a+a[(i+1) mod 20]+a[(i+2) mod 20]+a[(i+3) mod 20];
if s>max then {这里比较大小,max的值确定是多少}
begin
max:=s;smax:=i;
end;
if s<min then
begin
min:=s;smin:=i;
end;
end;
write('max:');
write(a[smax]:2);for i:=1 to 3 do write('+',a[(smax+i) mod 20]:2);
write('=',max);
writeln('Start from',smax+1);
write('min:');
write(a[smin]:2); for i:=1 to 3 do write('+',a[(smin+i) mod 20]:2);
write('=',min);
writeln('Start from',smin+1);
end.
如果有maxint的详细说明更好,比如原理什么的。
{这个maxint赋值什么值给max和min}
{这里比较大小,max的值确定是多少}
问题在程序旁标有。 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询