主题：讨论区
worm.
[专家分：180] 发布于 2007-05-31 12:00:00
[em1]
同志们
欢迎讨论者前来报道
回复列表 （共6个回复）
沙发
Fate/stay-night [专家分：0] 发布于 2007-05-31 12:40:00
3．输入一个由10个整数组成的序列，其中序列中任意连续三个整数都互不相同，求该序列中所有递增或递减子序列的个数。
例如：
输入：1 10 8 5 9 3 2 6 7 4
输出：6
板凳
bigchen [专家分：1940] 发布于 2007-05-31 17:49:00
DP(动态规划)
3 楼
vieow [专家分：20] 发布于 2007-06-03 17:12:00
百鸡问题```
C上的题目在PARSCAL上实现
N种解法``
大家来看看
4 楼
vieow [专家分：20] 发布于 2007-06-03 17:13:00
100元 公鸡5元 母鸡3元 小鸡每元3头
100元刚刚好买100只鸡
求解````
5 楼
vieow [专家分：20] 发布于 2007-06-03 17:20:00
我先来第一种```
设公鸡X母鸡Y小鸡Z
有 x+y+z=100
5*x+3*y+z/3=100
用FOR循环得出 结果```
begin
var x,y:integer;
z:reel;
for x:=1 to 20 do
for y:=1 to 100 do
begin
z:=100-x-y
if 5*x+3*y+z/3=100 then writeln('x=',x,'y=',y,'z=',z:2 0)
end
end.
6 楼
游侠UFO [专家分：1200] 发布于 2007-06-13 23:39:00
[quote]
百鸡问题```
C上的题目在PARSCAL上实现
N种解法``
大家来看看[/quote]
经典的有关穷举的例题
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 讨论区