BÀI TẬP 46: KHOẢNG CÁCH

Trong soạn thảo văn bản, theo quy ước giữa các từ chỉ nên cách nhau bằng một khoảng cách. Tuy nhiên trên thực tế vẫn có những trường hợp ngoại lệ.

            Yêu cầu: Cho trước một xâu ký tự S chỉ gồm các chữ cái và các khoảng cách. Hãy cho biết có nhiều nhất bao nhiêu khoảng cách đi liền nhau trong xâu S.

            Dữ liệu vào: Cho từ tệp văn bản có tên BL3.INP gồm một dòng ghi xâu S (độ dài xâu không quá 250 ký tự).

            Kết quả: Ghi ra tệp văn bản có tên BL3.OUT gồm một số nguyên duy nhất là số khoảng cách nhiều nhất đi liền nhau.

            Ví dụ:

                

BL3.INP	BL3.OUT
thucWWWhanhWWWWWtinWhocWW	5

Giải thích: Trong ví dụ trên, ký hiệu W tượng trưng cho một khoảng cách.

    CODE THAM KHẢO

    program Khoang_cach;

    var   s:string;

            max, d, i: integer;

            f:text;

    begin

        assign(f,'bl3.inp'); reset(f);

        readln(f,s);

        close(f);

        assign(f,'bl3.out'); rewrite(f);

        max:=0; d:=0; s:=s+'a';

        for i:=1 to length(s) do

        if s[i] = ' ' then inc(d)

        else

                begin

                     if d > max then max:=d;

                     d:=0;

                end;

        write(f,max);

        close(f)

    end.