Liệt Kê Chữ Cái

Cho một văn bản chứa trong một text file. Bạn hãy viết chương trình liệt kê các chữ cái chỉ có mặt trong văn bản đúng một lần theo thứ tự của bảng chữ cái (không phân biệt chữ hoa và chữ thường).Dữ liệu vào: file DEM_CHU.INP gồm nhiều dòng chứa các ký tự trong file.Dữ liệu ra: file DEM_CHU.OUT. Mỗi dòng ghi các ký tự chỉ xuất hiện đúng một lần trong file theo yêu cầu đề ra.

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] = 1 then writeln(f2,a[i],' ');

close(f1);close(f2);

end.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email