Bài tập thực hành số 5 tin lớp 11 (Trang 73).

 Nhập kể từ keyboard một xâu...?

 Vết lịch trình nhập kể từ keyboard một xâu kí tự động S và thông tin rời khỏi màn hình hiển thị số phiên xuất hiện tại của từng vần âm giờ Anh nhập S (không phân biết chữ hoa hoặc thường).

uses crt;
var s:string;
    a:array['A'..'Z'] of integer;
    ch:char;
    i:integer;
begin
 clrscr;
 write('nhap chuoi: '); readln(s);
 for i:=1 to tướng length(s) do
  s[i]:=upcase(s[i]);
 for ch:='A' to tướng 'Z' do
   for i:=1 to tướng length(s) do
    if s[i]=ch then inc(a[ch]);
 for ch:='A' to tướng 'Z' do
  if a[ch]<>0 then
  writeln(a[ch],ch);
readln;
end.

 Nhập nhập kể từ keyboard một xâu. thay cho thế toàn bộ những cụm kí tự động 'anh' bởi vì cụm kí tự động 'em'?

uses crt;
var s:string;
begin
 clrscr;
 writeln('nhap chuoi: '); readln(s);
 while pos('anh',s)<>0 do
  begin
   delete(s,pos('anh',s),3);
   insert('em',s,pos('anh',s));
  end;
 writeln('chuoi sau khoản thời gian chen: ');
 writeln(s);
readln;
end.