作业帮 > 综合 > 作业

用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 16:01:36
用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中
编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中,统计出各个集合中元素的个数(区分大小写),并输出这三个集合中的元素.
要用集合!要用Pascal 急用跪谢!
用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中
var x:string;n,i,a1,b1,c1:integer;a,b,c,yingwen,shuzi:set of char;
begin
yingwen:=['a'..'z'];shuzi:=['0'..'9'];
readln(x);
n:=length(x);
for i:=1 to n do
if x[i] in yingwen then begin a:=a+[x[i]];inc(a1);end
else if x[i] in shuzi then begin b:=b+[x[i]];inc(b1);end
else begin c:=c+[x[i]];inc(c1);end;
for i:=1 to n do
if x[i] in a then begin a:=a-[x[i]];write(x[i]);end; writeln(' ',a1);
for i:=1 to n do
if x[i] in b then begin b:=b-[x[i]];write(x[i]);end; writeln(' ',b1);readln;
for i:=1 to n do
if x[i] in c then begin c:=c-[x[i]];write(x[i]);end; writeln(' ',c1);readln;
end.
自己写的,没调试,望给分