pascal语言编程题:从键盘输入任意长度的字符串,其中包括数字和字母.由程序将其这串字符中的数字按反序

pascal编程~

program invertnum;var S: String; i: Integer;begin readln(S); i:=length(S); repeat if (S[i]>='0') and (S[i]<='9') then write(S[i]); i:=i-1; until (i=0); writeln; readln;end.


for版：

program invertnum;var S: String; i: Integer;begin readln(S); for i:=length(S) downto 1 do if (S[i]>='0') and (S[i]<='9') then write(S[i]); writeln; readln;end.

#include
int main()
{
char a[100];
char b[24];
int s[100] = { 0 };//用于存储字符的个数
gets(a);//输入字符
//开始比较
for (int x = 0; x < 24; x++)
{
int c = 0;//记录每个字符个数
b[x] = x + 97;//为了让b[0]是a，b[1]是b依次类推
for (int i = 0; i < 100; i++)
{
if (b[x] == a[i])
{
++c;
s[x] = c;
}
}
if (s[x]>=1)//只输出输入中有的字母 的个数
{
printf("%c %d
", b[x], s[x]);
}
}
getchar();
return 0;
}

扩展资料：gets()用法：
gets()函数用来从标准输入设备(键盘)读取字符串直到回车结束,但回车符
不属于这个字符串。其调用格式为:
gets(s);
其中s为字符串变量(字符串数组名或字符串指针)。
gets(s)函数与scanf("%s",s)相似,但不完全相同,使用scanf("%s",s)
函数输入字符串时存在一个问题,就是如果输入了空格会认为输入字符串结束,
空格后的字符将作为下一个输入项处理,但gets()函数将接收输入的整个字符
串直到回车为止。
示例：
#include
int main()
{
char s[20];
printf("What's your name?
");
gets(s);
printf("%s
",s);
return 0;
}
当输入a bde回车的时候，会输出a bde。

程序代码：

{$apptype console} //设置程序为非图形界面，TURBO PASCAL等无需这一行
var
  i,j:integer;
  s1,s2:array [0..255] of char;
begin
  readln(s1);
  j:=0;
  for i:=0 to length(s1)-1 do
    if (s1[i]>='0')and(s1[i]<='9') then
    begin
      s2[j]:=s1[i];
      j:=j+1;
    end;
  for i:=j-1 downto 0 do write(s2[i]);
end.

在DELPHI7下运行示例：

---

安康市18043892318： pascal编程从键盘输入任意10个整数,把其中的正数之和与负数之和分别输出.(提示:for循环+if语句)输入:5 - 7 11 2 0 - 8 3 7 - 12 4 输出:zhengshu=32 ... - ？
挚林祺尔：[答案] var a, b, c, t : integer; begin a := 362; b := 484; c := 186; t := 1; while (((a * t) mod 200) <> 0) or (((b * t) mod 200) <> 0) or (((c * t) mod 200) <> 0) do t := t + 1; writeln(t); end.运行结果:

安康市18043892318： pascal语言编程题:从键盘输入任意长度的字符串,其中包括数字和字母.由程序将其这串字符中的数字按反序 - ？
挚林祺尔： 程序代码:{$apptype console} //设置程序为非图形界面,TURBO PASCAL等无需这一行 var i,j:integer; s1,s2:array [0..255] of char; begin readln(s1); j:=0; for i:=0 to length(s1)-1 do if (s1[i]>='0')and(s1[i] begin s2[j]:=s1[i]; j:=j+1; end; for i:=j-1 downto 0 do write(s2[i]); end.在DELPHI7下运行示例:

安康市18043892318： 用pascal编程,从键盘输入一行字符,以“#”表示输入结束,统计其中小写字母、大写字母、数字字符个数. - ？
挚林祺尔： var c:char;x,y,z:longint; beginread(c);{先输入}while c<>'#' do {当#时退出}beginif c in ['a'..'z'] then x:=x+1;{是小写字母,小写字母+1}if c in ['A'..'Z'] then y:=y+1;{是大写字母,大写字母+1}if c in ['1'..'0'] then z:=z+1;{是数字,数字+1}read(c);{在读入一个字符}end;writeln(x,' ',y,' ',z);readln end.

安康市18043892318： pascal语言 从键盘输入任意一个字符,判断并输出是大写字母、小写字母、数字还是其它特殊字符 要有分析 - ？
挚林祺尔： var a:char; begin {开始} readln(a); {读取字符} if (ord(a)>=48)and(ord(a)<=57) then write('number'); {当48<=它的序列号<=57时,它是数字} if (ord(a)>=65)and(ord(a)<=90) then write('big letter'); {当65<=它的序列号<=90时,它是大写字母} if (ord...

安康市18043892318： pascal语言 从键盘输入任意一个字符,判断并输出大写字母、小写字母、数字的个数 - ？
挚林祺尔： var i,j,n1,n2,n3:longint; s:ansistring; begin readln(s); for i:=1 to length(s) do if (s[i]>='a')and(s[i]else if (s[i]>='A')and(s[i]else if (s[i]>='0')and(s[i]writeln('大写字母',n2); writeln('小写字母',n1); writeln('数字',n3); end.

安康市18043892318： pascal编程 急...将N个学生成绩从键盘输入,按0 - 59分,60 - 69分,70 - 79分,80 - 89分,90 - 100分分组统计人数 - ？
挚林祺尔： var i,n,x,c0,c60,c70,c80,c90:integer; begin write('n=?');readln(n); writeln('请输入',n,'个学生成绩'); for i:=1 to n do begin read(x); case i div 10 of 6:c6:=c6+1; 7:c7:=c7+1; 8:c8:=c8+1; 9:c9:=c9+1; 10:c9:=c9+1; else c0:=c0+1; end case end; ...

安康市18043892318： 求从键盘输入一个数后判断该数是否为完数如果是输出该数为完数否则不输出该数,请问如何编写这段pascal程序？
挚林祺尔： program wanshu; var i,sum,n:longint; begin readln(n); sum:=0; for i:=1 to n div 2 do if n mod i=0 then inc(sum,i); if sum=n then writeln('True') else writeln('False'); end. 这个程序是现编的,如有错误请见谅. 这个题目不太难,你应该看得懂是什么意思,我就不解释了.

安康市18043892318： pascal 问题:从键盘上输入三个数,然后将最大的数输出？
挚林祺尔： program MaxNum; var a,b,c:integer; max:integer; begin write('请输入3个数: '); readln(a,b,c); max:=a; if max<b then max:=b; if max<c then max:=c; writeln('最大的数为',max); readln; end.

安康市18043892318： pascal编程 从键盘上输入两个字母,输入这两个字母之间的所有字母.答案 急求啊,20分钟之内 - ？
挚林祺尔： var a,b,c,d:longint; ch1,ch2,ch3:char;begin readln(ch1); readln(ch2); a:=ord(ch1); a:=a+1; b:=ord(ch2); repeat write(chr(a),' '); a:=a+1; until a=b;end.是从一楼改过来的,一楼的,不好意思

安康市18043892318： 用pascal语言做题 从键盘上输入N个数,输出这N个数的乘积 - ？
挚林祺尔： ls 在干什么?Var sum,s,i,n:longint;Begin readln(n); sum:=1; for i:=1 to n do Begin read(s); sum:=sum*s; ...