Fillchar是Turbo/Borland Pascal的System单元的一个标准过程，它的使用格式是：FillChar(var X; Count: Word; Value)，它的功能是，把指定变量X在内存段中所占的低Count个字节赋为相同的值Value， 其中Value是填充的值，只能是Byte、Char或Boolean等单字节类型的值。在Free Pascal中稍加扩展为FillChar(var X; Count: Longint; Value), 功能没变。

[例1]：Fillchar通常用来给数据赋初值。
CODE: [Copy to clipboard]
--------------------------------------------------------------------------------

查看更多...

一、数论算法
1．求两数的最大公约数
function gcd(a,b:integer):integer;
begin
if b=0 then gcd:=a

查看更多...