编程问题~~~~

来源：百度知道 编辑：UC知道 时间：2024/05/02 13:06:28
设计具有如下功能的程序:统计长整数n的各个位上出现数字0~9的次数.例如:当n=123114350时结果应该为:C0=1,C1=3,C2=1,C3=2,C4=1,C5=1,C6=0......
用main做主程序 做C语言程序

我用C语言编的，编译、运行通过:

#include"stdio.h"
void main(){
int a[10]={0};
int n;
long m;
scanf("%ld",&m);
while(m>=1){
n=m%10;
a[n]++;
m=m/10;
}
for(n=0;n<10;n++){
printf("C%d=%d ",n,a[n]);
}
printf("\n");
}

var i,n,b,c:longint;
a:array[0..9]of integer;
begin
n:=123114350;
while i=0 do begin
b:=n mod 10;
a[b]:=a[b]+1;
n:=n mod 10;
end;
end.

有不完善的你修改一下，我没在编译器用过。我是用PASCAL语言写的。

用VB
Private Sub Form_Click()
Dim a(0 To 9)
For i = 0 To 9
a(i) = 0
Next i
s = InputBox("输入一个数:", "输入")
For i = 1 To Len(s)
a(Val(Mid(s, i, 1))) = a(Val(Mid(s, i, 1))) + 1
Next i
For i = 0 To 9
Print "C"; i; "="; a(i)
Next
End Sub