Trang chủ Tin Học Lớp 9 Tìm xâu con dài nhất Nhập vào một xâu bất...

Tìm xâu con dài nhất Nhập vào một xâu bất kỳ từ bàn phím. Hãy cho biết độ dài lớn nhất của xâu con chứa liên tiếp kí tự ‘a’. In ra màn hình xâu con dài nhất v

Câu hỏi :

Tìm xâu con dài nhất Nhập vào một xâu bất kỳ từ bàn phím. Hãy cho biết độ dài lớn nhất của xâu con chứa liên tiếp kí tự ‘a’. In ra màn hình xâu con dài nhất vừa tìm được? Ví dụ: Xâu nhập vào: aabcaaade. Độ dài max= 3 Xâu con cần tìm là: aaa

Lời giải 1 :

s=input('Xau nhap vao: ')
n=len(s)
l=[0]*n
if (s[0]=='a'):
    l[0]=1
for i in range (1,n):
    if (s[i]=='a'):
        l[i]=l[i-1]+1
m=max(l)
print('Do dai max=',m)
print('Xau con can tim la:','a'*m)

**Nếu cần code C++, C# hoặc Java thì nói để mình bổ sung

$\color{red}{\text{#Daoanhviet96}}$

image

Thảo luận

-- mình cần free pascal cảm ơn :))
-- Mình không học pascal :v
-- :L
-- Xin ý tưởng vs Đào anh việt ơi
-- đặt một mảng có 0*n phần tử, nếu là kí tự a thì đặt phần tử vt i thành (i-1)+1, Tìm max dãy, vì cái này là đoạn con a nên in ra max*a là được
-- https://hoidap247.com/cau-hoi/4176109 `->` Xin hỏi tui lm đúng khum
-- đặt một mảng có 0*n phần tử, nếu là kí tự a thì đặt phần tử vt i thành (i-1)+1, Tìm max dãy, vì cái này là đoạn con a nên in ra max*a là được `=>` Ok thank
-- l=[0]*n `->` CHổ lày chx hỉu

Lời giải 2 :

uses crt;
var S, X : string;
    i : integer;
begin
clrscr;
readln(S);
X := '';
for i := 1 to length(S) do X := X + 'a';
while pos(X, S) = 0 do delete(X, 1, 1);
writeln('Do dai max = ', length(X));
writeln('Xau con can tim la : ', X);
readln
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, 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 (ảo). Với cách hiểu hiện nay, 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.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, 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ô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!

Nguồn : ADMIN :))

Copyright © 2021 HOCTAP247