Nhập 1 xâu kí tự. Xét xem trong xâu có K kí tự kề nhau mà như nhau hay không? theo pascal giúp em với

Question

Gia Huy Nguyen · Accepted Answer

Var St:String;

dem: Array[‘A’..’Z’] Of Byte

; i:Byte;

ch:Char;

Begin Write(‘Nhap xau St: ‘);

Readln(St);

{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

Timi · Answer

Dưới đây là một đoạn mã Pascal để kiểm tra xem trong một xâu ký tự có K ký tự kề nhau mà giống nhau hay không:

```pascal
program CheckConsecutiveCharacters;

var
  s: string;
  k, i, count: integer;
  found: boolean;

begin
  writeln(&#x27;Nhập xâu ký tự:&#x27;);
  readln(s);
  writeln(&#x27;Nhập giá trị K:&#x27;);
  readln(k);

found := false;
  count := 1; // Đếm số ký tự liên tiếp

for i := 1 to length(s) - 1 do
  begin
    if s[i] = s[i + 1] then
      count := count + 1
    else
      count := 1; // Reset đếm nếu ký tự không giống nhau

if count = k then
    begin
      found := true;
      break; // Dừng vòng lặp nếu tìm thấy
    end;
  end;

if found then
    writeln(&#x27;Có &#x27;, k, &#x27; ký tự kề nhau mà giống nhau.&#x27;)
  else
    writeln(&#x27;Không có &#x27;, k, &#x27; ký tự kề nhau mà giống nhau.&#x27;);
end.
```

### Hướng dẫn sử dụng:
1. Chạy chương trình.
2. Nhập xâu ký tự mà bạn muốn kiểm tra.
3. Nhập giá trị K (số lượng ký tự kề nhau cần kiểm tra).
4. Chương trình sẽ thông báo có hay không có K ký tự kề nhau giống nhau trong xâu.

Hy vọng đoạn mã này sẽ giúp ích cho bạn!