VCT Xắp xếp các từ theo thứ tự từ đếm trong Pascal

Viết chương trình nhập vào 1 xâu. Xắp xếp các từ theo thứ tự từ đếm

Ôn tập một số hàm số, thủ tục

Hàm         Ý nghĩa             Ví dụ

------------------------------------------------------------

ABS(x)      Trị tuyệt đối x     Abs(-2) -> 2

SQR(x)      Bình phương x       Sqr(2) -> 4

SQRT(x)     Căn bậc hai x       Sqrt(9) -> 3

EXP(x)      Hàm e^x             Exp(3) -> e^3

LN(x)       Hàm ln(x)           Ln(2) ->ln2

SIN(x)      Hàm lượng giác      Sin(PI) -> 0

COS(x)      Hàm lượng giác      Cos(PI) -> 1

ARCTAN(x)   Hàm lượng giác      Arctan(0) ->0

INC(x)      Tăng x lên 1 đơn vị <=> x:=x+1;

DEC(x)      Giảm x xuống 1 đơn vị <=> x:=x-1;

SUCC(x)     Cho giá trị tiếp theo của x succ(5) cho KQ 6

PRED(x)     Cho giá trị trước đó của x PRED(5) cho KQ 4

ROUND(x)    Làm tròn lên        Round(8.6) -> 9

TRUNC(x)    Làm tròn xuống      Trunc(8.6) -> 8

ORD(x)      Lấy mã ASCII ký tự  Ord(‘a’) -> 97

CHR(x)      Cho ký tự có mã ASCII Chr(65) -> ‘A’

ODD(x)      Kiểm chẳn lẽ        Odd(5) -> True

Bài giải

Program SX;

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.       

Hình minh họa