Đếm số ký tự

Bài 1. Đếm số ký tự ( năm 08-09).

Cho tệp văn bản mang tên Bai2.inp

Yêu cầu: Đếm số chữ cái khác nhau trong tệp trên và số lần xuất hiện của mỗi chữ cái đó. Không phân biệt chữ hoa và chữ thường.

Dữ liệu: Vào từ file văn bản Bai2.inp, gồm duy nhất 1 dòng ghi xâu S.

Kết quả: Ghi ra file văn bản Bai2.out:

Mỗi dòng một chữ cái và số lần xuất hiện của nó trong xâu S.

Ví dụ:

Bai2.inp Bai2.out

A56A4DA3 A 3

uses crt;

var a:array['A'..'Z'] of longint;

S,S1:string;

j:longint;

i:char;

f1,f2:text;

begin

clrscr;

assign(f1,'demkitu.inp');reset(f1);

assign(f2,'demkitu.out');rewrite(f2);

readln(f1,S);

fillchar(a,sizeof(a),0);

for j:=1 to length(S) do S[j]:=upcase(s[j]);

for i:='A' to 'Z' do

for j:=1 to length (S) do

if i=S[j] then inc(a[i]);

for i:= 'A' to 'Z' do if a[i] <> 0 then writeln(f2,i,' ',a[i],' ');

close(f1);close(f2);

end. D 1

Bài 2. Chữ cái xuất hiện (Năm 11-12)

Cho xâu st chỉ gồm các chữ cái. Tìm số lần xuất hiện của chữ cái xuất hiện nhiều nhất trong xâu (không phân biệt chữ in hoa hay in thường).

Dữ liệu vào: Từ file Bai3.inp gồm: Xâu st (độ dài <= 500 ký tự).

Kết quả: Ghi ra file Bai3.out gồm: Một dòng duy nhất là bội số chung nhỏ nhất của kết quả bài toán và 10⁵

Ví dụ:

Bai3.inp Bai3.out

AAADBA 100000

var a:array['A'..'Z'] of longint;

S,S1:string;

j,max:longint;

i:char;

f1,f2:text;

function ucln(m,n: longint): longint;

begin

while m<> n do

if m> n then m := m-n else n := n-m;

ucln := m;

end;

{------------------------------------------------------------------}

begin

assign(f1,'demkitu.inp');reset(f1);

assign(f2,'demkitu.out');rewrite(f2);

readln(f1,S);

fillchar(a,sizeof(a),0);

for j:=1 to length(S) do S[j]:=upcase(s[j]);

for i:='A' to 'Z' do

for j:=1 to length (S) do

if i=S[j] then inc(a[i]);

for i:= 'B' to 'Z' do if a[i] >= max then max:=a[i];

write(f2,100000*max div ucln(100000,max));

close(f1);close(f2);

end.

Bài 3. Đếm số ký tự khác nhau của xâu s.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email