Viết chương trình sắp xếp các từ trong chuỗi pascal
uses crt; var s,t:string; n,i,j,z,k,l:longint; a:array[1..100] of string; begin clrscr; write('nhap xau:');readln(s); z:=1; j:=0; s:=s+' '; for i:=1 to length(s) do if (s[i]=' ') and (s[i-1]<>' ') then begin j:=j+1; a[j]:=''; for k:=z to i-1 do begin a[j]:=a[j]+s[k]; end; z:=i+1; end; for i:=1 to j-1 do for k:=i+1 to j do if length(a[i])>length(a[k]) then begin t:=a[i]; a[i]:=a[k]; a[k]:=t; end; s:=''; for i:=1 to j do s:=s+' '+a[i]; writeln('xau da sap xep tu tang dan la:'); write(s); readln; end.
[tin]
bạn ơi, quan trọng là sắp xếp như thế nào chứ? vd: từ nhỏ đến lớn, hay từ lớn đến nhỏ,...........nếu không thì bạn chỉ cần in ra các giá trị của dãy số đấy thôi vì đề không yêu cầu mà
Mã: Bài của bạn đây...
Mã: Bài của bạn đây... cái khúc sắp xếp dãy số nên dùng picksort :v chứ dùng cái đó vô thi hsg hay gì đó thì chết |