walce的专栏

PROGRAM bubble_sort;//冒泡排序CONST N = 10;VAR A : ARRAY[ 1..N ] OF INTEGER;　T, I, J : INTEGER;　FLAG :BOOLEAN;BEGIN　WRITE( 输入10个整数: );　FOR I:= 1 TO N DO READ( A[I] );　READLN; WRITELN;　I:=1;　REPEAT　　FLAG

program Project2;{$APPTYPE CONSOLE}vara,b,c,i:integer;begini:=0;a:=1;b:=1;writeln(1);writeln(1);repeatc:=a+b;a:=b;b:=c;writeln(c);inc(i);until i>=38;readln;end.PROGRAM bubble_sort;{$apptype console}CO

unit yanseU;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;type  TForm1 = class(TForm)    Label1: TLabel;   

program suijishu;{$APPTYPE CONSOLE}var   i,j,r,n,m:integer;  All:array[0..1000] of integer;//这个数组用来装随机数的  Result:array[0..1000] of integer;//这个数组用来装结果的beginwriteln(请输入m，n，产生在n范围内的m个随机数);readln(m,n);

unit jisuanqiU;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButt

unit jisuanqiU;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButt

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, jpeg;const LMouseDown=False;type  TForm1 = class(TForm)    Edit1: TEd

unit yaohaoqiU;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Spin;type  TForm1 = class(TForm)    Button1: TButton;    SpinEdit1: TSpinEd

http://www.cnblogs.com/walce/articles/139285.html链接以上可下载源程序在此不做详细介绍....