VCT Show các từ dài nhất và chiều dài của chúng trong Pascal

Đếm số từ dài nhất trong xâu. Show các từ dài nhất và chiều dài của chúng

Ôn tập một số phép toán logic

AND, OR, XOR, NOT.

Lưu ý:

– Các phép toán so sánh (<> khác, = bằng, > lớn hơn, < nhỏ hơn >= lớn hơn hoặc bằng, <= nhỏ hơn hoặc bằng) luôn trả về kiểu Booland.

– Các phép toán logic còn áp dụng trên kiểu số nguyên, trên cớ sở biểu diễn số nhị phân của các số nguyên.

X       Y       X OR Y      X AND Y     X XOR Y     NOT X

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

FALSE   FALSE   FALSE       FALSE       FALSE       TRUE

FALSE   TRUE    TRUE        FALSE       TRUE        TRUE

TRUE    FALSE   TRUE        FALSE       TRUE        FALSE

TRUE    TRUE    TRUE        TRUE        FALSE       FALSE

Bài giải

Program DEM_SO_TU;
Uses Crt;

var st, kq: string;
    vt, dai, max, d, i,j: integer;
    a:array[1..100] of string;
begin
    write('Nhap St:');
    readln(st);
    max := 0;
    st := st + ' ';
    d:=0;
    while length(st) <> 0 do
    begin
        vt := pos(' ', st);
        dai := vt - 1;
        kq := copy(st, 1, dai);
        inc(d);
        a[d]:=kq;
        delete(st, 1, vt);
    end;
    for i:=1 to d do
        if length(a[i])>max then
    begin
        max:=length(a[i]);
        j:=1;
    end
    else if length(a[i])=max then inc(j);
        writeln('Co ',j,' tu dai nhat, co chieu dai la: ',max);
    writeln('cac tu do la:');
        for i:=1 to d do
        if length(a[i])=max then writeln(a[i]);   
        readln;
end.

Hình minh họa