VC++程序：找素数，自守数，回文数，水仙花数，完整数的程序

C++自守数： #include<stdioh> int main() { long mul,number,k,ll,kk; printf("It exists following automorphic nmbers small than 200000:\n"); for(number=0;number<200000;number++) { for(mul=number,k=1;(mul/=10)>0;k=10); /由number的位数确定截取数字进行乘法时的系数k/ kk=k10; /kk为截取部分积时的系数/ mul=0; /积的最后n位/ ll=10; /ll为截取乘数相应位时的系数/ while(k>0) { mul=(mul+(number%(k10))(number%ll-number%(ll/10)))%kk; /(部分积+截取被乘数的后N位截取乘数的第M位)，%kk再截取部分积/ k/=10; /k为截取被乘数时的系数/ ll=10; } if(number==mul) /判断若为自守数则输出/ printf("%ld ",number); } } C++回文数： #include<iostreamh> int palindrome(long int x) { long int y; long int s=0; y=x; while(y>0) { s=s10+y%10; y=y/10; } if(s==x) return 1; else return 0; } int main() { long int x; int temp; cout<<"Enter x"; cin>>x; temp = palindrome(x); if(temp==1) { cout<<"yes"<<endl; } else { cout<<"no"<<endl; } return 0; } C++水仙花数： #include"iostreamh" void main() { int i,j,k,n; for(n=100;n<=1000;n++) { i=n/100; j=n/10%10; k=n%10; if(i100+j10+k==iii+jjj+kkk) cout<<n<<endl; } }

'VB有一种简单的实现方法'调用 lsWs 1000 Private Sub IsWs(m As Long)

Dim i As Long '循环计数器

Dim s As Long '完整数

Dim NStr As String '因子For i = 1 To m

s = s + i '循环累计

If i = 1 Then

NStr = 1 '累计因子

Else

NStr = NStr & "+" & i '累计因子

End If

If s > m Then Exit For '大于m退出循环

If s > 1 Then DebugPrint "完整数: " & s & "=" & NStr '在立即窗口中输出结果Next

End Sub

以上就是关于VC++程序：找素数，自守数，回文数，水仙花数，完整数的程序全部的内容，包括:VC++程序：找素数，自守数，回文数，水仙花数，完整数的程序、VB求完数问题、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！