![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi作品
文章平均质量分 60
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原创 2005-04-10 10:29:00 · 771 阅读 · 0 评论 -
输出Fibonacci数列前40项
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原创 2005-04-10 10:28:00 · 2498 阅读 · 0 评论 -
色板+颜色字。。。
unit yanseU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;type TForm1 = class(TForm) Label1: TLabel;原创 2005-04-10 20:55:00 · 951 阅读 · 0 评论 -
随机数。。。
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);原创 2005-04-10 21:07:00 · 769 阅读 · 0 评论 -
简易计算器。。。
unit jisuanqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButt原创 2005-04-10 20:30:00 · 881 阅读 · 0 评论 -
计算器(加了个小数点)。。。
unit jisuanqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButt原创 2005-04-10 20:36:00 · 1132 阅读 · 0 评论 -
模拟delphi编辑窗体操作控件。。。
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;const LMouseDown=False;type TForm1 = class(TForm) Edit1: TEd原创 2005-04-12 14:45:00 · 1591 阅读 · 0 评论 -
我的第一份上传作品。。请多多指教。。。(摇号器)
unit yaohaoqiU;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;type TForm1 = class(TForm) Button1: TButton; SpinEdit1: TSpinEd原创 2005-04-10 09:56:00 · 1298 阅读 · 1 评论 -
复制/删除文件
http://www.cnblogs.com/walce/articles/139285.html链接以上可下载源程序在此不做详细介绍....原创 2005-04-17 21:29:00 · 1189 阅读 · 0 评论