Pascal问题：隐藏的最大整数

pascal问题，隐藏的最大整数（纠错）~

1.如果最大的一个数是用最后一个字符结束的，就不会被你做出来，你可以加一个特判，或者读进来就在字符串结尾加个字符
2.val这个我不怎么用，你确定下他返回值范围是integer还是longint，再确定下他的输入参数是string能不能用ansistring,比如一个串是有一大串前导零就可能把val这个函数爆掉的样子……
目测看出这两个……

我觉得有三个可能存在的问题。。第一个是超长字符串。。。有可能长度很长。。第二个是如果两个相等的数字，你该取谁，因为如果两个相等你没有处理，计算机就会自己返回一个任意的值。。还有可能就是。。因为我没有在jzxx上面交过题，所以不知道那个错误到底是错误还是超时，毕竟你这个算法最坏复杂度N的平方。。。有可能超时。。哦。。还有可能你找的最大那个是‘1’。。然后按照题目要求就不合格。。因为明显答案要排除‘1’。。。没做过这道题。。不过数据很坑的话也不一定。。。想不到其他那里有什么错误了

var ch,s:string;
i,j,t,c,k,p,q:longint;
a,b:array[1..1000] of longint;
begin
readln(ch);
j:=length(ch);
i:=1;
t:=0;
k:=0;
while i<=j do begin
while (ord(ch[i])<48)or(ord(ch[i])>57) do
i:=i+1;
k:=i;
while (ord(ch[i])>=48)and(ord(ch[i])<=57) do
begin
s:=s+ch[i];
i:=i+1;
end;
t:=t+1;
b[t]:=k;
val(s,a[t],c);
s:=' ';
end;
for i:=1 to t-1 do
for j:=1 to t-i do
if a[j]<a[j+1] then
begin
p:=a[j];
a[j]:=a[j+1];
a[j+1]:=p;
q:=b[j];
b[j]:=b[j+1];
b[j+1]:=q;
end;
writeln(b[1]);
end.

var
s:ansistring;
ans,top,b,t,l,opt:longint;
s1:string;

begin
readln(s);

l:=length(s);

top:=1;

while top<=l do
begin
if ord(s[top])>=48 then
if ord(s[top])<=57 then
begin
b:=top;
while (ord(s[top])>=48) and (ord(s[top])<=57) do inc(top);
s1:=copy(s,b,top-b);
val(s1,t);
if t>ans then begin ans:=t; opt:=b; end;
end;
inc(top);
end;

write(opt);
end.

---

武功县15227877384： Pascal问题:隐藏的最大整数 - ？
蒸梦希能： var ch,s:string;i,j,t,c,k,p,q:longint;a,b:array[1..1000] of longint; beginreadln(ch);j:=length(ch);i:=1;t:=0;k:=0;while i<=j do beginwhile (ord(ch[i])<48)or(ord(ch[i])>57) doi:=i+1;k:=i;while (ord(ch[i])>=48)and(ord(ch[i])<=57) dobegins:=s+ch[i];...

武功县15227877384： pascal编程,1004隐藏最大的整数.....我的程序总是通不过,麻烦高手看一下我的程序 - ？
蒸梦希能： if j=0 then sum:=sum*10+x else begin if sum>max then beginmax:=sum; sum:=0 end; end;这一段else里有问题,如果sum<=max的话sum就不清零了应该是if j=0 then sum:=sum*10+x else begin if sum>max then max:=sum; sum:=0 end;小技巧,注意换行(就像我这样)看着就清晰多了.

武功县15227877384： pascal程序1059: 【基础】隐藏的最大整数 时间限制: 1 Sec 内存限制: 16 MB 提交: 1092 解决: 547 [提交][ - ？
蒸梦希能： 我觉得你那样做有点烦,我是这样做的: var s:string; a:array[1..255,1..2] oflongint; n,i,j,k,l:longint; begin readln(s); k:=1; fori:=1tolength(s) dobeginj:=i;while(ord(s[j])<=ord('9')) and(ord(s[j])>=ord('0')) dobegina[k,1]:=a[k,1]*10+ord(s[j])-ord('0');...

武功县15227877384： 隐藏的最大整数pascal - ？
蒸梦希能： 下面是你的程序~~我直接在上面改了·~还有~~写程序要养成好习惯~~格式要写好~~不然看起来会很乱~~查错会很烦滴~~var s,sl,sll:string;ch:char; a:array[1..30]of integer; n,x,i,k,max:longint;begin readln(s); fillchar(a,sizeof(a),0); for i:=1 to length(s) ...

武功县15227877384： pascal编程 输入n个整数,找出最大数所在的位置,并将它与第一个数对调 - ？
蒸梦希能： beginreadln(n);for i:=1 to n do read(a[i]);k:=1;for i:=1 to n-1 doif a[k]<a[i+1] then k:=i+1;writeln(k);b:=a[1];a[1]:=a[k];a[k]:=b;write(a[1]);for i:=2 to n do write(' ',a[i]);writeln; end.

武功县15227877384： pascal!!!最大数问题输入若干个整数,以 - 1标记输入结束.输出其中的最大数 - ？
蒸梦希能： var n,ans:longint; begin n:=0; while n<>-1 do begin read(n); if n>ans then ans:=n; end; writeln(ans); readln; end.

武功县15227877384： PASCAL字符串中最大数字 - ？
蒸梦希能： var s:string;i,j,t:integer; beginreadln(s);for i:=1 to length(s) doif (s[i]<'A')and(s[i]>'Z')and(s[i]<'a')and(s[i]>'z')and(s[i]<>' ') then s[i]:=' ';j:=pos(' ',s);while j>0 do beginif s[j+1]=' ' then while s[j+1]=' ' do delete(s,j+1,1);j:=pos(' ',copy(s,j+1,255));end...

武功县15227877384： 最大整数 pascal - ？
蒸梦希能： 这是一个字符串的问题,下边思路吧,程序你自己解决吧1、输入:依次读入各个数,一边读一边将其转化为字符串,存入数组s中(s:array[1..20] of string) 2、处理:双重循环,循环变量i,j(枚举每两个数连在一起),判断s[i]+s[j]是否小于s[j]+s[i](+是字符串连接),如果小于,则交换两个字符串(这个过程完成后,肯定保证大的字符串在前,小的在后) 3,输出:依次输出各个字符串

武功县15227877384： pascal问题:如何找出几个数中最小与最大数?(具体要求:↓) - ？
蒸梦希能： var i,n,x,max,min:integer; begin readln(n); i:=0;max:=-maxint;min:=maxint; repeat inc(i);read(x); if x>max then max:=x; if x<min then min:=x; until i=n; writeln('max=',max); writeln('min=',min); end. while的你自己改一下吧

武功县15227877384： pascal 问题:从键盘上输入三个数,然后将最大的数输出 - ？
蒸梦希能： program MaxNum; var a,b,c:integer; max:integer; begin write('请输入3个数: '); readln(a,b,c); max:=a; if max<b then max:=b; if max<c then max:=c; writeln('最大的数为',max); readln; end.