请问如果 p等于1，3，5，11 的条件怎样写

您所在位置：社区首页 — Delphi讨论区 — 请问如果 p等于1，3，5，11 的条件怎样写

主题：请问如果 p等于1，3，5，11 的条件怎样写

dephil [专家分：0] 发布于 2006-05-10 10:58:00

沙发

huitian [专家分：1410] 发布于 2006-05-10 11:02:00

case p of
1,3,5,11:begin
执行语句;
end;
end;

板凳

zwt [专家分：1230] 发布于 2006-05-10 12:04:00

var p:integer;

if p=1 or p=3 or p=5 or p=11 then
begin
end;

3 楼

haptis [专家分：1260] 发布于 2006-05-10 13:05:00

var p:integer;

if p in [1,3,5,11] then
begin

end;

4 楼

xiulin [专家分：200] 发布于 2006-05-10 14:08:00

不错嘛

5 楼

zhongzhong1984 [专家分：90] 发布于 2006-05-13 19:09:00

for i:=0 to ..do
begin
if j:= 2i+1 then
begin
...
end;
end;

无限方法!不受限制!

6 楼

zhongzhong1984 [专家分：90] 发布于 2006-05-13 19:10:00

上面那个就到十一啦??
呵呵！　算法错误！　呵呵！

7 楼

huitian [专家分：1410] 发布于 2006-05-15 09:23:00

效率问题...

您尚未登录，请登录后再回复。点此登录或注册