|
|
back to boardGive me a hand.I get WA... Posted by Pooya 8 Mar 2003 18:49 if you can't read my program so help me by some tricky tests. this is my program : const max =500; var a :array[1..max]of string[81]; sw,wrd :string[81]; i,j,k,n,num :longint; begin readln(n); for I:=1 to N do begin readln(a[i]);a[i]:=a[i]+'\'; for j:=1 to length(a[i]) do if a[i][j]='\' then a[i][j]:=' '; end; writeln; {sorting} for I:=1 to N do for J:=I+1 to N do if a[i]>a[j] then begin sw:=a[i];a[i]:=a[j];a[j]:=sw; end; num:=0; for i:=1 to length(a[1]) do begin if a[1][i]=' ' then begin for j:=1 to num do write(' '); writeln(wrd); inc(num); wrd:=''; end else wrd:=wrd+a[1][i]; end; wrd:=''; for I:=2 to N do begin num:=0; for j:=1 to length(a[i]) do begin if a[i][j]<>a[i-1][j] then break; if a[i][j]=' ' then begin wrd:=''; inc(num); end else wrd:=wrd+a[i][j]; end; for K:=j to length(a[i]) do begin if a[i][k]=' ' then begin for j:=1 to num do write(' '); if (k=length(a[i]))and(i=n) then write(wrd+' ') else writeln(wrd); inc(num); wrd:=''; end else wrd:=wrd+a[i][k]; end; end; end. Pooya {pooyahat@yahoo.com} Re: Give me a hand.I get WA... Posted by Nazg 9 Mar 2003 15:53 > if you can't read my program so > help me by some tricky tests. > > this is my program : > > const > max =500; > var > a :array[1..max]of string[81]; > sw,wrd :string[81]; > i,j,k,n,num :longint; > > begin > readln(n); > for I:=1 to N do > begin > readln(a[i]);a[i]:=a[i]+'\'; > for j:=1 to length(a[i]) do > if a[i][j]='\' then > a[i][j]:=' '; > end; > writeln; > {sorting} > for I:=1 to N do > for J:=I+1 to N do > if a[i]>a[j] then > begin > sw:=a[i];a[i]:=a[j];a[j]:=sw; > end; > > num:=0; > for i:=1 to length(a[1]) do > begin > if a[1][i]=' ' then > begin > for j:=1 to num do write(' '); > writeln(wrd); > inc(num); > wrd:=''; > end > else > wrd:=wrd+a[1][i]; > end; > > wrd:=''; > for I:=2 to N do > begin > num:=0; > for j:=1 to length(a[i]) do > begin > if a[i][j]<>a[i-1][j] then break; > > if a[i][j]=' ' then > begin > wrd:=''; > inc(num); > end > else > wrd:=wrd+a[i][j]; > end; > > for K:=j to length(a[i]) do > begin > if a[i][k]=' ' then > begin > for j:=1 to num do write(' '); > > if (k=length(a[i]))and(i=n) then > write(wrd+' ') > else > writeln(wrd); > inc(num); > wrd:=''; > end > else > wrd:=wrd+a[i][k]; > end; > end; > end. > > Pooya > {pooyahat@yahoo.com} > Test. 3 HAHA\TEST ITWONTWORK HAHA Re: Give me a hand.I get WA... Posted by Pooya 10 Mar 2003 17:44 thank you for laughing at me but i got AC before your Haha pooya pooyahat@yahoo.com > > if you can't read my program so > > help me by some tricky tests. > > > > this is my program : > > > > const > > max =500; > > var > > a :array[1..max]of string[81]; > > sw,wrd :string[81]; > > i,j,k,n,num :longint; > > > > begin > > readln(n); > > for I:=1 to N do > > begin > > readln(a[i]);a[i]:=a[i]+'\'; > > for j:=1 to length(a[i]) do > > if a[i][j]='\' then > > a[i][j]:=' '; > > end; > > writeln; > > {sorting} > > for I:=1 to N do > > for J:=I+1 to N do > > if a[i]>a[j] then > > begin > > sw:=a[i];a[i]:=a[j];a[j]:=sw; > > end; > > > > num:=0; > > for i:=1 to length(a[1]) do > > begin > > if a[1][i]=' ' then > > begin > > for j:=1 to num do write(' '); > > writeln(wrd); > > inc(num); > > wrd:=''; > > end > > else > > wrd:=wrd+a[1][i]; > > end; > > > > wrd:=''; > > for I:=2 to N do > > begin > > num:=0; > > for j:=1 to length(a[i]) do > > begin > > if a[i][j]<>a[i-1][j] then break; > > > > if a[i][j]=' ' then > > begin > > wrd:=''; > > inc(num); > > end > > else > > wrd:=wrd+a[i][j]; > > end; > > > > for K:=j to length(a[i]) do > > begin > > if a[i][k]=' ' then > > begin > > for j:=1 to num do write(' '); > > > > if (k=length(a[i]))and(i=n) then > > write(wrd+' ') > > else > > writeln(wrd); > > inc(num); > > wrd:=''; > > end > > else > > wrd:=wrd+a[i][k]; > > end; > > end; > > end. > > > > Pooya > > {pooyahat@yahoo.com} > > > > > > > Test. > 3 > HAHA\TEST > ITWONTWORK > HAHA Damet ke i`ideye aslie barname ro loo dadi. ??? Posted by Saber 11 Mar 2003 22:06 Please write in English just !!! The test it wrong. ITWONTWORK exceeds 8 characters. |
|
|