主题：考一考你！！
蓝色旋5421
[专家分：0] 发布于 2007-04-02 13:24:00
十三人 围成一圈数：1，2，3，4，5 数到5的人出去这样重复下去 问什么时候人 都走光了[em4][em5][em9]那你可不可以将先后出去的人排列出来
回复列表 （共21个回复）
沙发
shily [专家分：90] 发布于 2007-04-02 18:17:00
#include <iostream.h>
#include <stdlib.h>
int main(void)
{
int a[13],i,j=13,k=0;
for(i=0;i<13;i++)
{
a[i]=1;
}
while(j>=1)
{
for(i=0;i<13;i++)
{
k=k+a[i];
if(k%5==0)
{
if(a[i]==1)
{
cout<<i+1<<"\n";
a[i]=0;
j--;
}
}
}
}
system ("pause");
return 0;
}
做了一个多小时终于搞定了!!!!!
这是我在programfan的处女秀啊!!!!!!
仰天狂笑5分钟!!!!!!
板凳
强强 [专家分：4740] 发布于 2007-04-02 19:55:00
呵呵，可惜你发错地方了，这是QB讨论区
3 楼
shily [专家分：90] 发布于 2007-04-03 17:48:00
[quote]呵呵，可惜你发错地方了，这是QB讨论区[/quote]
什么是QB讨论区?[em10][em8]
4 楼
shily [专家分：90] 发布于 2007-04-03 18:12:00
懂了,原来是QBasic,原来..........
5 楼
xun0227 [专家分：20] 发布于 2007-04-04 01:32:00
Dim a(13)
For i = 1 To 13
a(i) = 1
Next i
Do
For i = 1 To 13
s = s + a(i)
If s = 5 Then
Print Trim(Str$(i)) + ",";
a(i) = 0
s = 0
j = j + 1
End If
Next
Loop Until j = 13
6 楼
蓝色旋5421 [专家分：0] 发布于 2007-04-07 13:59:00
本来就是QB题目
7 楼
##星夜### [专家分：0] 发布于 2007-04-07 14:10:00
[quote]懂了,原来是QBasic,原来..........[/quote]
8 楼
##星夜### [专家分：0] 发布于 2007-04-07 14:10:00
[quote]Dim a(13)
For i = 1 To 13
a(i) = 1
Next i
Do
For i = 1 To 13
s = s + a(i)
If s = 5 Then
Print Trim(Str$(i)) + ",";
a(i) = 0
s = 0
j = j + 1
End If
Next
Loop Until j = 13[/quote]
9 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:23:00
[quote]懂了,原来是QBasic,原来..........[/quote]
10 楼
星夜的等待 [专家分：150] 发布于 2007-04-07 14:23:00
[quote]#include <iostream.h>
#include <stdlib.h>
int main(void)
{
int a[13],i,j=13,k=0;
for(i=0;i<13;i++)
{
a[i]=1;
}
while(j>=1)
{
for(i=0;i<13;i++)
{
k=k+a[i];
if(k%5==0)
{
if(a[i]==1)
{
cout<<i+1<<"\n";
a[i]=0;
j--;
}
}
}
}
system ("pause");
return 0;
}
做了一个多小时终于搞定了!!!!!
这是我在programfan的处女秀啊!!!!!!
仰天狂笑5分钟!!!!!![/quote]
我来回复
您所在位置：