Bài 2: Tìm xâu con dài nhất (6đ) 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à...

Để giải bài toán tìm xâu con dài nhất chứa liên tiếp ký tự 'a' trong một xâu nhập vào, bạn có thể sử dụng ngôn ngữ lập trình Pascal. Dưới đây là một đoạn mã mẫu để thực hiện điều này: ```pascal program TimXauConDaiNhat; var input: string; maxLength, currentLength: integer; longestSubstring: string; i: integer; begin maxLength := 0; currentLength := 0; longestSubstring := ''; // Nhập xâu từ bàn phím write('Nhập vào một xâu bất kỳ: '); readln(input); // Duyệt qua từng ký tự trong xâu for i := 1 to length(input) do begin if input[i] = 'a' then begin currentLength := currentLength + 1; // Tăng độ dài xâu con hiện tại end else begin // Kiểm tra xem xâu con hiện tại có dài hơn xâu dài nhất không if currentLength > maxLength then begin maxLength := currentLength; longestSubstring := copy(input, i - currentLength, currentLength); // Lưu xâu con dài nhất end; currentLength := 0; // Đặt lại độ dài xâu con hiện tại end; end; // Kiểm tra lần cuối sau khi duyệt hết xâu if currentLength > maxLength then begin maxLength := currentLength; longestSubstring := copy(input, length(input) - currentLength + 1, currentLength); end; // In kết quả writeln('Độ dài max = ', maxLength); writeln('Xâu con cần tìm là: ', longestSubstring); end. ``` ### Giải thích mã: 1. **Khai báo biến**: Các biến `input`, `maxLength`, `currentLength`, `longestSubstring`, và `i` được khai báo để lưu trữ xâu nhập vào, độ dài lớn nhất, độ dài xâu con hiện tại, xâu con dài nhất và chỉ số vòng lặp. 2. **Nhập xâu**: Sử dụng `readln` để nhận xâu từ người dùng. 3. **Duyệt xâu**: Sử dụng vòng lặp `for` để duyệt qua từng ký tự trong xâu. Nếu ký tự là 'a', tăng `currentLength`. Nếu không, kiểm tra và cập nhật `maxLength` và `longestSubstring` nếu cần. 4. **Kiểm tra cuối**: Sau khi duyệt xong, kiểm tra một lần nữa để đảm bảo xâu con dài nhất được cập nhật. 5. **In kết quả**: Cuối cùng, in ra độ dài lớn nhất và xâu con dài nhất. Bạn có thể chạy đoạn mã này trong môi trường lập trình Pascal để kiểm tra kết quả.