n:=n+1000,n:=n-1000;我想限制n的边界，不知道该如果判断？送分！！！(100分)

D

deargds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #1

procedure Up;
begin
n:=n+1000;
end;
procedure Down;
begin
n:=n-1000;
end;
我想把n限制在0和9000的范围内，就是Down的话n始终不能小于0.Up的话不能大于9000
该怎么判断呀！在线等！

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #2

procedure Up;
begin
n:=n+1000;
if n>9000 then n:=0;
end;
procedure Down;
begin
n:=n-1000;
if n<0 then n:=0
end;

 

D

deargds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #3

我的n是不确定的反正在范围内，所以我递减或者递加的过程中会超出边界。如果是+1或-1的话你的方法可以！

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #4

procedure Up;
begin
n:=n+1000;
if n>9000 then n:=0;
if n<0 then n:=4500;
end;
procedure Down;
begin
n:=n-1000;
if n>9000 then n:=0;
if n<0 then n:=4500;
end;

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #5

procedure Up;
begin
if n>8000 then n:=8000;
n:=n+1000;
end;
procedure Down;
begin
if n<1000 then n:=1000;
n:=n-1000;
end;

 

D

deargds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-22

• #6

OK了