[Tin hoc nâng cao] Viết chương trình Pascal giải đề bài sau:

Question

Truy tìm tội phạm

Tom và Jerry là thành viên của tổ chức mật thám USKOK đang theo dõi sự di chuyển của một tổ chức tội phạm. Theo một nguồn tin dấu tên cho biết các tên tội phạm thuộc tổ chức này đang tìm cách chạy trốn khỏi địa phương và hiện đang ở sân bay để làm thủ tục xuất cảnh.

Cục tình báo CIA gửi cho Tom và Jerry một thông tin rất quan trọng: tên của mỗi tên tội phạm này đều có chuỗi "FBI". Bằng mối quan hệ của mình, Tom và Jerry có được một danh sách gồm N hành khách đang chuẩn bị bay.

Viết chương trình giúp Tom và Jerry giữ lại các tên tội phạm nguy hiểm này.

Dữ liệu vào:

• Dòng 1: Ghi một số nguyên N (1 ≤ N ≤ 10)

• N dòng tiếp theo, mỗi dòng ghi tên của một hành khách. Tên của hành khách không quá 15 ký tự bao gồm các chữ cái từ “ A ” đến “ Z ”, chữ số từ “ 0 ” đến “ 9 ” và dấu “ - “

Dữ liệu ra:

• Một dòng duy nhất ghi thứ tự của tên tội phạm trong danh sách, nếu không có tên tội phạm nào trong danh sách thì in ra “GO”

Ví dụ:

 

Input	Output		Input	Output		Input	Output
1 N-FBI1	1		4 9A-USKOK I-NTERPOL G-MI6 RF-KGB1	GO		5 47-FBI BOND-007 RF-FBI18 MARICA-13 13A-FBILL	1 3 5

Comments

Đề hay vậy anh!

---

Ừ, đề thi HSG của bọn anh đó

Answer 1

program bai1;

var          S:array[1..100] of string;i,j,n:integer;

begin

              write('moi ban nhap so hanh khach:');readln(n);

              for i:=1 to n do

              begin

                   write('nhap ten hanh khach thu ',i,' : ');readln(S[i]);

              end;

              for i:=1 to n do 

             begin

                 for j:=1 to length(S[i]) do if S[j]='F' then if (S[j+1]='B') and (S[j+2]='I') then 

                 begin

                     write(i,' ');   break; 

                  end;

             end;

             readln;

end.