用于打印杨辉三角的程序，有多种算法仅提供一种PRogram yh (input,ouput);var m,n,c:integer;BeginFor m:=0 TO 10 Do Begin c:=1; write(c:40-3*m); For n:=1 To m Do begin c:=c+(m-n+...
分类：
其他好文 时间：
2014-07-16 19:38:04
阅读次数：
148
一个被人写滥了的小程序，新手学习，Pascal By Chaobs初学者可以用它来学习随机函数的运用，当然你完全可以自己写一个随机函数。var player1,player2:longint; a,b,l,o,i,v:longint; w:boolean;begin randomize; write...
分类：
其他好文 时间：
2014-07-16 19:36:43
阅读次数：
139
基本算法 这些都是非常基本的的算法，希望所有学习的人都能理解！ 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod b); end ; 求两数的最小公倍...
分类：
其他好文 时间：
2014-07-16 19:35:42
阅读次数：
665
近日由于项目要求在需要实现中型数据的批量插入和更新，晚上无聊，在网上看到看到这样的一个实现方法，特摘抄过来，以便以后可能用到参考。一.数据的插入DateTime begin = DateTime.Now;string connectionString = ......;using(SqlConnec...
分类：
数据库 时间：
2014-07-13 22:42:02
阅读次数：
353
from time import timedef cost_time(func): def result(*arg,**args): begin=time() func(*arg,**args) print "cost time:",time()-be...
分类：
编程语言 时间：
2014-07-13 22:38:16
阅读次数：
328
PS::今天巴西又被虐了，做梦以为是3：1，醒来是3：0mysql> delimiter $$mysql> create procedure p3() -> MODIFIES SQL DATA -> BEGIN -> set @i=0; -> set @max=100; ...
分类：
其他好文 时间：
2014-07-13 21:32:50
阅读次数：
195
1. PLSQL基本使用
注：1. 三段 declare
Begin
Exception
End;
2. 声明：emp.ename%type;
和字段的属性相同。
3. begin: select 带查询自动 into
存储变量。
4. 条件语句：
（1）if then
...
分类：
数据库 时间：
2014-07-13 18:49:06
阅读次数：
305
--需求:一组表(假如有20个)中，每个表都有goodsno字段，如果这20个表的goodsno都不含值b，那么就将这20个表的goodsno值为a的记录的goodsno值修改为b---------------------第一步：begin----------------------IF OBJEC...
分类：
其他好文 时间：
2014-07-13 11:38:20
阅读次数：
215
1. Set Serveroutput on; declare Cursor tem_cursor is select * from xuesheng xs; v_row tem_cursor%rowtype;begin open tem_...
分类：
数据库 时间：
2014-07-13 00:35:28
阅读次数：
195
1.（隐式游标）从学生表里面查询xing_ming为1的找到就打印the Policy is updated successfully.否则打印the policy is updated failed.Set Serveroutput on; begin update xueshe...
分类：
数据库 时间：
2014-07-13 00:29:32
阅读次数：
219
