Question

Đưa ra xâu đã sắp xếp theo độ dài của từ tăng dần

Answer 1

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.