|
|
вернуться в форумWHY WA ????????????????????? type strpath=string[80]; var a:array [1..500] of strpath; n,i,j,ind,l:integer; min,pr:strpath; cb,sn:array[1..80] of strpath; procedure wr(tp:strpath); var k,nc,h,g:integer; db:boolean; begin nc:=1; k:=1; for h:=1 to length(tp) do if tp[h]='\' then begin sn[k]:=copy(tp,nc,h-nc); inc(k); nc:=h+1; end; sn[k]:=copy(tp,nc,length(tp)-nc+1); g:=1; db:=false; for h:=1 to k do if sn[h]<>cb[h] then begin g:=h; db:=true; break; end; if db=true then for h:=g to k do writeln(copy(pr,1,h-1),sn[h]); cb:=sn; l:=k; end; procedure swapstr(var a1,b1:strpath); var d:strpath; begin d:=a1; a1:=b1; b1:=d; end; begin readln(n); pr:=' '; for i:=1 to n do readln(a[i]); for i:=1 to n-1 do begin ind:=i; min:=a[i]; for j:=i+1 to n do if min>a[j] then begin min:=a[j]; ind:=j; end; swapstr(a[i],a[ind]); end; l:=0; for i:=1 to n do begin wr(a[i]); end; end. |
|
|