Viết chương tì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 xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa

0 bình luận về “Viết chương tì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 xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa”

1. uses crt;
   var s:string;
   a:array[‘A’..’Z’] of longint;
   x:char;
   i:longint;
   begin
   clrscr;
   readln(s);
   for i:=1 to length(s) do
   begin
   x:=upcase(s[i]);
   if x in[‘A’..’Z’] then a[x]:=a[x]+1;
   end;
   for x:=’A’ to ‘Z’ do if a[x]>0 then writeln(x,’ ‘,a[x]);
   readln
   end.

   Bình luận

2. 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 length(s) do
     s[i]:=upcase(s[i]);
    for ch:=’A’ to ‘Z’ do
      for i:=1 to length(s) do
       if s[i]=ch then inc(a[ch]);
    for ch:=’A’ to ‘Z’ do
     if a[ch]<>0 then
     writeln(a[ch],ch);
   readln;
   end.
   bn thử xem

   Bình luận