C 程序 玫瑰花数
用c语言编辑一个玫瑰花数(一个四位数,各个数字的4次方之和等于它本身,求出满足条件的所有四位数)的
输出是 1634 8208 9474
#include<stdio.h>
int rose(int digit) {
int n = digit;
int k=0;
int value = 0;
int sum = 0;
while(n>0) {
k = n % 10;
sum += k*k*k*k;
n /= 10;
}
if( sum == digit) {
return 1;
}
return 0;
}
int main()
{
int i;
int count = 0;
for(i=1000; i<=9999; i++) {
if (rose(i)) {
count++;
printf("%4d ", i);
}
}
getchar();
return 0;
}
#include<stdio.h>
int rose(int digit) {
int n = digit;
int k=0;
int value = 0;
int sum = 0;
while(n>0) {
k = n % 10;
sum += k*k*k*k;
n /= 10;
}
if( sum == digit) {
return 1;
}
return 0;
}
int main()
{
int i;
int count = 0;
for(i=1000; i<=9999; i++) {
if (rose(i)) {
count++;
printf("%4d ", i);
}
}
getchar();
return 0;
}
c语言中什么是玫瑰花数
玫瑰花数是数学上的定义,不是C语言的定义。
玫瑰花数又称“四叶玫瑰数”,是指四位数各位上的数字的四次方之和等于本身的数。
玫瑰花数又称“四叶玫瑰数”,是指四位数各位上的数字的四次方之和等于本身的数。
# include <stdio.h>
# include <math.h>
int main(void)
{
int i;
int s;
int a,b,c,d;
for(i=1000;i<10000;++i)
{
a = i/1000;
b = (i/100)%10;
c = (i/10)%10;
d = i%10;
s = pow(a,4) + pow(b,4) + pow(c,4) + pow(d,4);
if (s == i)
printf("这个数为玫瑰花数:%d\n", i);
}
return 0;
}
# include <math.h>
int main(void)
{
int i;
int s;
int a,b,c,d;
for(i=1000;i<10000;++i)
{
a = i/1000;
b = (i/100)%10;
c = (i/10)%10;
d = i%10;
s = pow(a,4) + pow(b,4) + pow(c,4) + pow(d,4);
if (s == i)
printf("这个数为玫瑰花数:%d\n", i);
}
return 0;
}
四叶玫瑰数的VB怎么编?
四位数各位上的数字的四次方之和等于本身为四叶玫瑰数。
实现源码如下:
program roseNumber;
var
a,b,c,d:longint;
function four(n:longint):longint;
begin
four:=n*n*n*n;
end;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.
实现源码如下:
program roseNumber;
var
a,b,c,d:longint;
function four(n:longint):longint;
begin
four:=n*n*n*n;
end;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.
Private Sub Command1_Click()
Me.Cls
Dim s As Single, j As Long, t As String, n As Long, m As Long
For j = 1000 To 9999
t = j
m = 0
For k = 1 To 4
n = Val(Mid(t, k, 1))
m = m + n * n * n * n
Next
If m = j Then
Print j; "为玫瑰花数"
s = s + j
End If
Next
Print "总和为:"; s
End Sub
^四位数是从1001-9999
直接上循环了,太晚了,说完睡觉去
Private Sub CommanajKFSKhTmd1_Click()
Dim i As Long
Dim s As String
Dim sum As Long
Dim n1, n2, n3, n4 As Long
For i = 1001 To 9999
s = CStr(i)
n1 = CLng(Mid(s, 1, 1)) ^ 4
n2 = CLng(Mid(s, 2, 1)) ^ 4
n3 = CLng(Mid(s, 3, 1)) ^ 4
n4 = CLng(Mid(s, 4, 1)) ^ 4
sum = n1 + n2 + n3 + n4
If suajKFSKhTmm = i Then Print i
Next i
End Sub
我自己运行了,1001-9999只有三个数:
1634
8208
9474
直接上循环了,太晚了,说完睡觉去
Private Sub CommanajKFSKhTmd1_Click()
Dim i As Long
Dim s As String
Dim sum As Long
Dim n1, n2, n3, n4 As Long
For i = 1001 To 9999
s = CStr(i)
n1 = CLng(Mid(s, 1, 1)) ^ 4
n2 = CLng(Mid(s, 2, 1)) ^ 4
n3 = CLng(Mid(s, 3, 1)) ^ 4
n4 = CLng(Mid(s, 4, 1)) ^ 4
sum = n1 + n2 + n3 + n4
If suajKFSKhTmm = i Then Print i
Next i
End Sub
我自己运行了,1001-9999只有三个数:
1634
8208
9474
玫瑰花有四位数,每个数字上的四次方之和等于它本身,求玫瑰花数用c,用C#语音怎么写编程。。急救!
int one = 0; //个位
int ten = 0; //十位
int hundred = 0; //百位
int thousand = 0; //千位
for (int i = 1000; i <= 9999; ++i)
{
one = i % 10; //获取个位
ten = i / 10 % 10; //获取十位
hundred = i / 100 % 10; //获取百位
&http://www.rixia.ccnbsp; thous日夏养花网and = i / 1000; //获取千位
//如果等于他本身
if (Math.Pow(one, 4) + Math.Pow(ten, 4) + Math.Pow(hundred, 4) + Math.Pow(thousand, 4) == i)
{
//就输出
Console.WriteLine(i);
}
}
int ten = 0; //十位
int hundred = 0; //百位
int thousand = 0; //千位
for (int i = 1000; i <= 9999; ++i)
{
one = i % 10; //获取个位
ten = i / 10 % 10; //获取十位
hundred = i / 100 % 10; //获取百位
&http://www.rixia.ccnbsp; thous日夏养花网and = i / 1000; //获取千位
//如果等于他本身
if (Math.Pow(one, 4) + Math.Pow(ten, 4) + Math.Pow(hundred, 4) + Math.Pow(thousand, 4) == i)
{
//就输出
Console.WriteLine(i);
}
}
编程题(玫瑰花数)
如果一个四位数等于它的每一位数的4次方之和,则称为玫瑰花数。例如:1634=1(4)+6(4)+3(4)+4(4)。编程求所有的玫瑰花数。rn同志们,大侠们,仁兄们,我都快要急得领便当了,帮忙下= =///rn(打()里的数字代表次方的意思,复制过来没用,唉)program roseNumber;
var
a,b,c,d:longint;
function four(n:longint):longint;
begin
four:=n*n*n*n;
end;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.
var
a,b,c,d:longint;
function four(n:longint):longint;
begin
four:=n*n*n*n;
end;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.
//java程序
for (int i = 1000; i < 10000; i++) {
int a = i / 1000;
int b = (i - a * 1000) / 100;
int c = (i - a 日夏养花网;* 1000 - b * 100) / 10;
int d = i - i / 10 * 10;
if (i == Math.pow(a, 4) + Math.pow(b, 4) + Math.pow(c, 4)
+ Math.pow(d, 4)) {
System.out.println("" + a + b + c + d);
}
}
for (int i = 1000; i < 10000; i++) {
int a = i / 1000;
int b = (i - a * 1000) / 100;
int c = (i - a 日夏养花网;* 1000 - b * 100) / 10;
int d = i - i / 10 * 10;
if (i == Math.pow(a, 4) + Math.pow(b, 4) + Math.pow(c, 4)
+ Math.pow(d, 4)) {
System.out.println("" + a + b + c + d);
}
}
希望能帮上其他小伙伴
#include <iostream.h>
void main()
{
unsigned int a;
for (a=1000;a<10000;a++)
{
unsigned int b=a/1000;
unsigned int c=(a-b)/100;
unsigned int d=((a-b)-c)/10;
unsigned int e=a%10;
if (b*b*b*b+c*c*c*c+d*d*d*d+e*e*e*e==a)
{
cout<<a<<endl;
}
}
}
void main()
{
unsigned int a;
for (a=1000;a<10000;a++)
{
unsigned int b=a/1000;
unsigned int c=(a-b)/100;
unsigned int d=((a-b)-c)/10;
unsigned int e=a%10;
if (b*b*b*b+c*c*c*c+d*d*d*d+e*e*e*e==a)
{
cout<<a<<endl;
}
}
}
请问你需要用什么语言编的? 哦,那我们没教,那就帮不上忙了。。。。
#include
<iostream.h>
void
main()
{
unsigned
int
a;
for
(a=1000;a<10000;a++)
{
unsigned
int
b=a/1000;
unsigned
int
c=(a-b)/100;
unsigned
int
d=((a-b)-c)/10;
unsigned
int
e=a%10;
if
(b*b*b*b+c*c*c*c+d*d*d*d+e*e*e*e==a)
{
cout<<a<<endl;
}
}
}
<iostream.h>
void
main()
{
unsigned
int
a;
for
(a=1000;a<10000;a++)
{
unsigned
int
b=a/1000;
unsigned
int
c=(a-b)/100;
unsigned
int
d=((a-b)-c)/10;
unsigned
int
e=a%10;
if
(b*b*b*b+c*c*c*c+d*d*d*d+e*e*e*e==a)
{
cout<<a<<endl;
}
}
}
文章标签:
本文标题: C 程序 玫瑰花数
本文地址: http://www.rixia.cc/wenda/30679.html
上一篇:玫瑰花属于什么植物
相关推荐

养花知识
花卉大全
花卉诊疗
多肉植物
养花攻略
养花问答
网站首页