Trang chủ Tin Học Lớp 9 Nam là người thích chat với bạn bè trên Internet....

Nam là người thích chat với bạn bè trên Internet. Cậu ấy đã lập ra một phòng chat với điều kiện rằng trước khi vào phòng chat, mọi người phải chào hỏi trước. M

Câu hỏi :

Nam là người thích chat với bạn bè trên Internet. Cậu ấy đã lập ra một phòng chat với điều kiện rằng trước khi vào phòng chat, mọi người phải chào hỏi trước. Một câu chào được định nghĩa rằng, câu chào đó phải là một xâu kí tự, chỉ gồm các chữ cái, không chứa kí tự trắng, sao cho khi xóa đi một số chữ cái, nó sẽ trở thành từ "hello", tất nhiên là sẽ không được phép tráo đổi vị trí các chữ cái, mà chỉ được xóa bớt một số chữ cái. Ví dụ khi Bình muốn vào phòng chat, Bình gõ "ahhellllloou" thì hệ thống sẽ xem xét xâu này và sẽ tự động loại bỏ các chữ cái để trở thành từ "hello". Như vậy Bình được vào phòng chat. Nhưng khi Bình gõ "hlelo", hệ thống không thể làm cách nào xóa bớt chữ cái để trở thành từ "hello" được. Như vậy, Bình không được vào phòng chat. Xác định xem, khi Bình gõ một xâu, xâu đó có được chấp nhận để Bình vào phòng chat hay không? Dữ liệu nhập Một dòng chứa xâu chữ cái mà Bình định gõ, với chiều dài từ 1 đến 100 chữ cái. Dữ liệu xuất Nếu Bình được đồng ý để vào phòng chat, xuất "YES", còn không, xuất "NO" (không chứa dấu ngoặc kép). dùng ngôn ngữ free pascal giúp e vsssss ạk thank youuu!

Lời giải 1 :

Mình sẽ kiểm tra từng ký tự trong chuỗi người dùng nhập nếu đúng sẽ chuyển sang ksy tự tiếp theo trong từ mẫu là hello. i là stt kí tự trong đoạn nhập, j là skt trong từ mẫu. Mỗi khi đúng thì j sex tăng lên còn không chỉ có 1 mình i tăng lên. Nếu j tăng lên lớn hơn số ký tự của từ hello => xóa được để  thành hello => YES còn ngược lại thì NO

program checkPhongChat;

uses crt;

clrscr;

var
  chuoiNhap: string;
  tuMau: string = 'hello';
  i, j: integer;
  coTheVaoPhongChat: boolean;

begin
  readln(chuoiNhap);
  i := 1;
  j := 1;
  coTheVaoPhongChat := false;
  
  while (i <= Length(chuoiNhap)) and (j <= Length(tuMau)) do
  begin
    if chuoiNhap[i] = tuMau[j] then
      Inc(j);
    Inc(i);
  end;
  
  if j > Length(tuMau) then
    coTheVaoPhongChat := true;
  
  if coTheVaoPhongChat then
    writeln('YES')
  else
    writeln('NO');
end.

Bạn có biết?

Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!

Nguồn :

Wikipedia - Bách khoa toàn thư

Tâm sự lớp 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, chúng ta sắp phải bước vào một kỳ thi căng thẳng và sắp chia tay bạn bè, thầy cô. Áp lực từ kỳ vọng của phụ huynh và tương lai lên cấp 3 thật là lớn, nhưng hãy tin vào bản thân và giữ vững sự tự tin!

Nguồn :

sưu tập

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK