Chương trình nhập từ bàn phím các ký tự chương trình Đếm số lần xuất hiện của mỗi ký tự
var st:string; a:array[1..255]of string; i,d,dem,kt,j,dem1:integer; begin clrscr; write('Nhap xau:'); readln(st); d:=length(st); a[1]:=st[1]; dem:=1; for i:=1 to d do begin kt:=0; for j:=1 to dem do if st[i]=a[j] then kt:=1; if kt=0 then begin inc(dem); a[dem]:=st[i]; end; end; for i:=1 to dem do begin dem1:=0; for j:=1 to d do if a[i]=st[j] then inc(dem1); writeln(a[i],' xuat hien ',dem1,' lan'); end; readln; end. program oken;uses crt;var s: string; chr: char; dem,i: byte;begin clrscr; write('Nhap xau: '); readln(s); write('Nhap ki tu can kiem tra: '); readln(chr); dem:=0; for i:=1 to length(s) do if chr=s[i] then dem:=dem+1; writeln('So lan xuat hien cua ki tu ',chr,': ',dem); readln; end.
Bài 2. Trang 73 Sách giáo khoa Tin học lớp 11 Viết chương trình nhập vào 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 hay thường ) uses crt; var s:string[30]; ch,x:char; i:byte; dem:array['A'..'Z']of byte; BEGIN clrscr; write('Nhap vao xau s='); readln(s); for ch:='A' to 'Z' do dem[ch]:=0; for i:=1 to length(s) do begin x:=upcase(s[i]); if (x>='A') and (x<='Z') then dem[x]:=dem[x]+1; end; for ch:='A' to 'Z' do if dem[ch]<>0 then writeln('So luong ki tu',ch,'la',dem[ch]); readln; END.
Viết chương trình nhập một xâu từ bàn phím .Đếm số lần xuất hiện của các kí tự trong xâu và in ra màn hình Các câu hỏi tương tự
|