Pascal lop 11,bai thuc hanh so 5?
Viet chuong trinh nhap tu ban phim mot xau ki tu S va thong bao ra man hinh so lan xuat hien cua moi chu cai tieng anh trong S (khong phan biet chu hoa hay chu thuong).
Luu y:bai nay la bai thuc hanh 5,bai 2 trang 73 sach tin hoc lop 11,ap dumg phan kieu xau.
Answers & Comments
Verified answer
Của bạn đây:
VAR i:INTEGER;
s:STRING;
n:CHAR;
a:ARRAY['A'..'Z'] OF INTEGER;
BEGIN
write('nhap xau s:');
readln(s);
FOR i:=1 TO length(s) DO s[i]:=upcase(s[i]);
FOR n:='A' TO 'Z' DO
FOR i:=1 TO length(s) DO
IF s[i]=n THEN inc(a[n]);
FOR n:='A' TO 'Z' DO
IF a[n]<>0 THEN writeln('Ky tu ',n,' xuat hien:',a[n],' lan');
readln
END.
uses crt;
var s:string;
j,dem:integer;
i:char;
begin
clrscr;
write('Nhap s=');readln(s);
for i:='A' to 'Z' do
begin
dem:=0;
for j:=1 to length(s) do
if i=upcase(s[j]) then inc(dem);
writeln('Chu ',i,' co ',dem,' ki tu');
end;
readln;
end.