Năng nĩ mọi người giài bài nj' dùm em với

[kninja]

bài 2 và bài 3 trong sách tin học lớp 11 của Bài tập và thực hành số 5 !

bài 2. Viết lại chương trình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần suất hiện của mỗi chử cái tiếng Anh trong s(không phân biệt chữ hoa hay chư thường)

Bài 3. Nhập vào từ bàn phím một xâu. Thay thề tất cả các cum kí tự 'anh' bằng cụm kí tự 'em'.
em cảm ơn mọi người nhìu

[nirvanat]

B1: bạn ghi rõ đề bài đi... vì không phải ai cũng học 11 và không phải ai cũng mang theo cuốn Tin học 11 bên mình...
B2:

Var xh:array['A'..'Z'] of byte;
    s:string;
    i:byte;
    c:char;
Begin
  write('Nhap xau');readln(s);
  For c:='A' to 'Z' do xh[c]:=0;
  For i:=1 to length(s) do
  s[i]:=upcase(s[i]);
  For i:=1 to length(s) do xh[s[i]]:=xh[s[i]]+1;
  For c:='A' to 'Z' do
  If xh[c]<>0 then writeln(c,' xuat hien ',xh[c],' lan);
  Readln;
End.

[=========> Bổ sung bài viết <=========]

B3:
var s:string;
i:byte;
Begin
write('Nhap xau');readln(s);
i:=pos('anh',s);
while i<>0 do
begin
delete(s,i,3);
insert(s,i,'em');
i:=pos('anh',s);
end;
writeln('Xau nhan duoc: ',s);
Readln;
End.

[hamj]

b2:
for i:= 1 to length(s1) do
s1[i]:=upcase(s1[i]);
s2:='';
for i:=1 to length(s1) do
if (pos(s1[i],s2)=0) and (s1[i]>='A')and(s1[i]<='Z')then
s2:=s2+s1[i];
for j:=1 to length(s2) do
while pos(s2[j],s1)<>0 do
begin
vt:=pos(s2[j],s1);delete(s1,vt,1);
dem[j]:=dem[j]+1;
end;
writeln('chu cai',s2[j],'xuat hien',dem[j],'lan');