lyphuc2008

CẦN GIÚP ĐỠ CÁCH GIẢI CHO BÀI TOÁN NÀY:

Cho xâu kí tự S bao gồm toàn các ký tự ‘a’ và ‘b’, không quá 255 ký tự. Dãy con đúng của dãy S là một dãy con liên tục bất kì của S  bao gồm các ký tự giống nhau. Dãy con đúng bậc 1 của dãy S là một dãy con liên tục bất kỳ của dãy S bao gồm các ký tự giống nhau nhưng được thêm 1 ký tự khác (ví dụ ‘aaaabaaa’, baaaa, aaaab). Trường hợp đặc biệt, dãy S chỉ có 1 loại ký tự thì dãy con đúng cũng chính là dãy con đúng bậc 1.

Yêu cầu:  a/ Hãy tính độ dài lớn nhất dãy con đúng của dãy S.

                  b/ Hãy tính độ dài lớn nhất dãy con đúng bậc 1 của dãy S.

Ví dụ: ‘aaabaaabbaaaaa’

Độ dài lớn nhất của dãy con đúng: 5           (‘aaabaaabbaaaaa’)

Độ dài lớn nhất của dãy con đúng bậc 1: 7     (‘aaabaaabbaaaaa’)

Mình mới nghiên cứu về kiểu File trong pascal nhưng làm hoài nó không đọc được file. Lúc thì báo lỗi không tìm thấy file, lúc thì nó chạy màn hình đen thui rồi treo pascal luôn.

Đoạn chương trình như sau:

(file FTEXT.INP mình đã lưu trong đĩa D, file này chứa 2 dòng:

                                                                        dòng 1: Mua xuan

                                                                         dòng 2: Nang vang)

program doc_file_text;

var

   f:text;

   a,b: string;

begin

     assign(f,'D:\FTEXT.INP');

     reset(f);

     while not eof(f) do

     begin

          read(f,a);

          read(f,b);

     end;

     write(a,b);

     readln

end.

Cho trước tập tin văn bản INPUT.INP gồm nhiều dòng (không quá 1000 dòng), mỗi dòng chứa một chuỗi ký tự (gồm các chữ cái từ ‘A’ đến ‘Z’ viết dính liền với nhau), mỗi chuỗi dài không quá 255 ký tự. Trong tập tin này có duy nhất một chuỗi xuất hiện đúng một lần, các chuỗi còn lại đều xuất hiện đúng k lần. (Số k không cho trước, nhưng biết rằng k là một số chẵn và k≠0).

Yêu cầu:  Viết chương trình đọc tập tin INPUT.INP xử lý và tìm chuỗi duy nhất đó, ghi kết quả tìm được vào tập tin văn bản OUTPUT.OUT.

Kết quả:  Tập tin OUTPUT.OUT có một dòng là chuỗi ký tự tìm được theo yêu cầu.

Ví dụ:

              INPUT.INP                                              OUTPUT.OUT

               ABCD                                                          TINHOCTRE

               EFGHIJK

               TINHOCTRE

               ABCD

               EFGHIJK