sony-soft
- 浏览: 1027461 次
-
文章列表
"屎冲不干净都来找我?!"总经理大怒，董事长困惑。当公司遇到“茅坑问题”问题，并一拖再拖时，企业领导人确实应该思量思量……
遇到"茅坑问题"昨办?
早上，A公司行政部经理急冲冲跑进总经理办公室，向总经理汇报说厕所的屎冲不干净，希望可以装配水箱加压装置。 总经理听后大怒：“屎冲不干净都来找我?!”行政部陈经理赶忙解释说：“我已经多次和集团工程总监反映水压不够的问题，但工程总监坚持认为是使用厕所的人没有冲水，而不是新办公楼的水压问题，反而埋怨我们行政部没有做好卫生宣传工作。” 听后，总经理立刻委派助理到厕所进行实地“考察”，并以“实战”测试厕所的水压。下 ...
- 2007-02-06 17:47
- 浏览 498
- 评论(0)
usingSystem;usingSystem.Collections.Generic;usingSystem.ComponentModel;usingSystem.Data;usingSystem.Drawing;usingSystem.Text;usingSystem.Windows.Forms;usingMicrosoft.Office.Interop.Word;namespace
- 2007-01-12 11:32
- 浏览 473
- 评论(0)
--创建单位信息表I_SYS_UnitInfoifexists(selectnamefromsysobjectswherename='I_SYS_UnitInfo')droptableI_SYS_UnitInfogocreatetableI_SYS_UnitInfo
- 2006-10-09 12:42
- 浏览 396
- 评论(0)
1．链表的定位函数
loc(I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc(L:linklist; I:integer):pointer;var p:pointer;j:integer;beginp:=L.head; j:=0;if (I>=1) and (I<=L.len) then while j<I do begin p:=p^.next; inc(j); end;loc:=p;end;
2．单链表的插入操作
procedure insert(L:linklist; I:integer; x:datatype ...
- 2006-09-12 09:58
- 浏览 452
- 评论(0)
IOI94 房间问题head:=1; tail:=0;while tail<head do begininc(tail);for k:=1 to n do if k方向可扩展 then begin inc(head); list[head].x:=list[tail].x+dx[k]; {扩展出新结点list[head]} list[head].y:=list[tail].y+dy[k]; 处理新结点list[head]; end;end;
- 2006-09-12 09:57
- 浏览 498
- 评论(0)
NOIP2001 数的划分
procedure work(dep,pre,s:longint); {入口为work(1,1,n)}{dep为当前试放的第dep个数,pre为前一次试放的数,s为当前剩余可分的总数}var j:longint;begin if dep=n then begin if s>=pre then inc(r); exit; end; for j:=pre to s div 2 do work(dep+1,j,s-j); end;类似：procedure try(dep:integer); var i:integer; begin if dep=k t ...
- 2006-09-12 09:56
- 浏览 635
- 评论(0)
*会议问题（1） n个活动每个活动有一个开始时间和一个结束时间，任一时刻仅一项活动进行，求满足活动数最多的情况。解：按每项活动的结束时间进行排序，排在前面的优先满足。
（2）会议室空闲时间最少。
（3）每个客户有一个愿付的租金，求最大利润。
（4）共R间会议室，第i个客户需使用i间会议室，费用相同，求最大利润。
- 2006-09-12 09:53
- 浏览 417
- 评论(0)
1. n皇后问题
procedure try(i:byte);var j:byte;begin if i=n+1 then begin print;exit;end; for j:=1 to n do if a[i] and b[j+i] and c[j-i] then begin x[i]:=j; a[j]:=false; b[j+i]:=false; c[j-i]:=false; try(i+1); a[j]:=true; b[i+j]:=true; c[j-i]:=true; end;end;
2.Hanoi Tower 汉诺塔
h(n)=2*h(n-1)+1 ...
- 2006-09-12 09:53
- 浏览 375
- 评论(0)
1.折半查找
function binsearch(k:keytype):integer;var low,hig,mid:integer;begin low:=1;hig:=n; mid:=(low+hig) div 2; while (a[mid].key<>k) and (low<=hig) do begin if a[mid].key>k then hig:=mid-1 else low:=mid+1; mid:=(low+hig) div 2; end; if low>hig then mid:=0; binsearch:=mid;end;
...
- 2006-09-12 09:52
- 浏览 508
- 评论(0)
1.排列的生成：（1..n）procedure solve(dep:integer); var i:integer; begin if dep=n+1 then begin writeln(s);exit; end; for i:=1 to n do if not used[i] then begin s:=s+chr(i+ord(''0''));used[i]:=true; solve(dep+1); s:=copy(s,1,length(s)-1); used[i]:=false; end; end;
2.组合的生成(1..n中选取k个数的所有方案)proc ...
- 2006-09-12 09:51
- 浏览 573
- 评论(0)
1.任意正整数进制间的互化
除n取余
2.实数任意正整数进制间的互化乘n取整
3.负数进制： 设计一个程序，读入一个十进制数的基数和一个负进制数的基数，并将此十进制数转换为此负 进制下的数：-R∈{-2，-3，-4,....-20}
- 2006-09-12 09:50
- 浏览 515
- 评论(0)
1．已知前序中序求后序
procedure Solve(pre,mid:string);var i:integer;begin if (pre='''') or (mid='''') then exit; i:=pos(pre[1],mid); solve(copy(pre,2,i),copy(mid,1,i-1)); solve(copy(pre,i+1,length(pre)-i),copy(mid,i+1,length(mid)-i)); post:=post+pre[1]; {加上根，递归结束后post即为后序遍历}end;
2．已知中序后序求前序
procedure Sol ...
- 2006-09-12 09:49
- 浏览 420
- 评论(0)
高精度数的定义：type hp=array[1..maxlen] of integer;
1．高精度加法
procedure plus ( a,b:hp; var c:hp);var i,len:integer;beginfillchar(c,sizeof(c),0);if a[0]>b[0] then len:=a[0] else len:=b[0];for i:=1 to len do begin inc(c[i],a[i]+b[i]);if c[i]>10 then begin dec(c[i],10); inc(c[i+1]); end; {进位}end;if c[l ...
- 2006-09-12 09:48
- 浏览 495
- 评论(0)
1.快速排序：
procedure qsort(l,r:integer);var i,j,mid:integer;begin i:=l;j:=r; mid:=a[(l+r) div 2]; {将当前序列在中间位置的数定义为中间数} repeat while a[i]<mid do inc(i); {在左半部分寻找比中间数大的数} while a[j]>mid do dec(j);{在右半部分寻找比中间数小的数} if i<=j then begin {若找到一组与排序目标不一致的数对则交换它们} swap(a[i],a[j]); inc(i);dec(j) ...
- 2006-09-12 09:46
- 浏览 609
- 评论(0)
*部分背包问题可有贪心法求解：计算Pi/Wi数据结构： w[i]:第i个背包的重量； p[i]:第i个背包的价值；
1．0-1背包： 每个背包只能使用一次或有限次(可转化为一次)：
A.求最多可放入的重量。NOIP2001 装箱问题 有一个箱子容量为v(正整数，o≤v≤20000)，同时有n个物品(o≤n≤30)，每个物品有一个体积 (正整数)。要求从 n 个物品中，任取若千个装入箱内，使箱子的剩余空间为最小。l 搜索方法 procedure search(k,v:integer); {搜索第k个物品，剩余空间为v} var i,j:integer; begin if v<be ...
- 2006-09-12 09:45
- 浏览 534
- 评论(0)