杏
杏花春雨江南
Unregistered / Unconfirmed
GUEST, unregistred user!
请问： 1、turbo pascal所需要的环境是什么？
p3 800，256msdram 还不行么？
2、我作了一个约瑟夫环的问题？
n只猴子，从1开始数，数到第m个猴子，便踢出去，接着往后数，只到剩下最后一只
猴子，问剩下的猴子的编号是几？
compile和run都无事，但为什么输入数据后便死机，无论是win98还是纯dos都是此情况
我认为是我没有设置config.sys的原因，不知道是不是，请高手指点！！！
源码如下：
program monkey (input,output);
const
n=30;
var
mon:array[1..n] of integer;
a,b,i,m:integer;
begin
writeln('Please enter the number');
read(m);
for i:=1 to n do
mon:=1;
a:=0
//a是用来记录序号的
for i:=1 to n-1 do
begin
b:=0
//b是用来记录猴子数的
while b<m do
begin
a:=a+1;
if a>n then a:=a-n;
if mon[a]<>0 then b:=b+1;
end;
mon[a]:=0
end;
for i:=1 to n do
if mon<>0
then writeln(i);
end.
p3 800，256msdram 还不行么？
2、我作了一个约瑟夫环的问题？
n只猴子，从1开始数，数到第m个猴子，便踢出去，接着往后数，只到剩下最后一只
猴子，问剩下的猴子的编号是几？
compile和run都无事，但为什么输入数据后便死机，无论是win98还是纯dos都是此情况
我认为是我没有设置config.sys的原因，不知道是不是，请高手指点！！！
源码如下：
program monkey (input,output);
const
n=30;
var
mon:array[1..n] of integer;
a,b,i,m:integer;
begin
writeln('Please enter the number');
read(m);
for i:=1 to n do
mon:=1;
a:=0
//a是用来记录序号的
for i:=1 to n-1 do
begin
b:=0
//b是用来记录猴子数的
while b<m do
begin
a:=a+1;
if a>n then a:=a-n;
if mon[a]<>0 then b:=b+1;
end;
mon[a]:=0
end;
for i:=1 to n do
if mon<>0
then writeln(i);
end.