用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.
自己写的,没调试,望给分
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.
自己写的,没调试,望给分
用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中
用C语言编写一段程序,输入一行字符,分别统计出其中的英文字母、空格、数字和其他字符的个数.
用C语言编写:输入一行字符以@作结束标志,分别统计其中英文字母、空格、数字和其他字符的个数.
pascal语言 编写一个程序
PASCAL 集合 1.编写一个译码程序,将输入的一串字符,(只有小写字母、数字和空格,输入时以句号结束)翻译成原码.译
用VB 输入一行字符 分别统计英文字母 数字和其他符号 ?
用C语言编程:输入一行字符,分别统计出其中英文字母、空格、数字和其他字符的个数.
编写函数 分别求一个英文句子中字母 数字 空格和其他字符的个数 在主函数中输入 用数组返回
pascal语言程序1.读入两个字符,若这两个字符的ASCII码之差是奇数,打印两个字符的后继字符,否则打印它们的前趋字
C语言编程4道题(1)输入一行字符,分别统计出其中的英文字母,空格、数字和其他字符的个数在得到正确结果后,请修改程序使之
用vf怎样编辑程序“输入一个字符串,要求分别统计出其中英文字母,空格,数字和其他字符的个数?”
C语言: 编写程序用if -else分支结构语句,求a,b,c三个数中最大的数并将其放在变量max中