ĐÁP ÁN BÀI TẬP LỚP 11 – LẦN 2

Bài 1:

b) Viết lại chương trình trên không dùng biến trung gian p.

Var i, x:byte;

       A: String;

Begin

    Write(‘nhap xau:’);

    Readln(a);

    X:=length(a);     i:=1;

    While (i<=(x div 2)) and (a[i] = a[x-i+1]) do  i:=i+1;

          If  i>(x div 2) then  Writeln(‘xau la palindrome’)

           Else writeln(‘xau khong la palindrome’);

Readln

End.

c) Chạy chương trình, nhập dữ liệu: S=’abcddcba’ và thông báo kết quả in ra màn hình.

xau khong la palindrome

Bài 2:

a) Xác định input và output.

Input: Xâu St

Output: Xâu St sau khi các cụm từ “ong” được thay thế bởi cụm từ “ba”

b) Viết thuật toán cho bài toán.

B1: Nhập xâu St

B2: Nếu trong xâu St không có cụm từ ‘ong’ thì đưa ra biến st và kết thúc

B3:

3.1. vt:= vị trí của từ ‘ong’ trong xâu St

3.2. Xóa 3 kí tự trong xâu st từ vị trí vt

3.3. Chèn cụm từ ‘ba’ vào xâu st từ vị trí vt

B4: Quay lại B2

c) Viết chương trình Pascal cho bài toán

Var vt:byte;

       st: String;

Begin

    Write(‘nhap xau:’);

    Readln(st);

 While pos (‘ong’, st) <> 0 do      

      Begin           

             vt:=pos (‘ong’, st);

             Delete( st, vt, 3);

             Insert (‘ba’, st, vt);

        End;

  Writeln (st);

Readln

End.