ahu

博客园 首页 新随笔 联系 订阅 管理

2008年11月28日 #

摘要: 用于局域网内的点餐系统。客户端截图: 下载地址: 在windows xp 下通过测试。http://files.cnblogs.com/atiger/1.rar 分客户端和服务端 ,服务端点启动按钮 后,客户端才能开始连接工作。数据库密码:MINADDhttp://files.cnblogs.com/atiger/server.rar 服务端源码http://files.cnblogs.com/a... 阅读全文
posted @ 2008-11-28 02:14 成虎 阅读(1923) 评论(11) 推荐(0)

2008年11月26日 #

摘要: program Project1;{$APPTYPE CONSOLE}uses SysUtils; var m,n,c:integer;begin for m:=0 to 10 do begin c:=1; write(c:40-3*m); for n:=1 to m do begin c:=c*(m-n+1) div n; write(c:6) end; writeln; end; readln... 阅读全文
posted @ 2008-11-26 19:22 成虎 阅读(207) 评论(0) 推荐(0)

摘要: program Project1;{$APPTYPE CONSOLE}uses SysUtils; label 1;var ch:char; num1,num2:integer; begin 1: num1:=0; num2:=0; writeln('以?号结束'); read(ch); write(ch); while ch<>'?' do begin if (ch>='A')... 阅读全文
posted @ 2008-11-26 19:21 成虎 阅读(191) 评论(0) 推荐(0)

摘要: program Project2;{$APPTYPE CONSOLE}uses SysUtils; label 1; var year,month,days:integer;begin 1: writeln('输入 year month'); read(year,month); case month of 1,3,5,7,8,10,12:days:=31; 4,6,9,11 : days:=30;... 阅读全文
posted @ 2008-11-26 19:21 成虎 阅读(664) 评论(0) 推荐(0)

摘要: program Project1;{$APPTYPE CONSOLE}uses SysUtils; label 1;var x,max,min :real; i:integer;begin 1: write('输入20个实数'); writeln; read(x); max:=x; min:=x; for i:=2 to 20 do begin read(x); if i mod 5 = 0 th... 阅读全文
posted @ 2008-11-26 19:19 成虎 阅读(755) 评论(0) 推荐(0)

摘要: program Project1;{$APPTYPE CONSOLE}uses SysUtils; label 1;var i, j: integer; temp: real; a: array[1..10] of real;begin writeln( '输入10个数');1: for I := 1 to 10 do begin read(a[i]); end; writeln; for i:=... 阅读全文
posted @ 2008-11-26 19:18 成虎 阅读(156) 评论(0) 推荐(0)

摘要: program Project2;{$APPTYPE CONSOLE}uses SysUtils;label 1; var total:integer; procedure move(n,a,b,c:integer); begin if n=1 then writeln(a,'→',c) else begin move(n-1,a,c,b); writeln(a,'→',c... 阅读全文
posted @ 2008-11-26 19:17 成虎 阅读(172) 评论(0) 推荐(0)

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(... 阅读全文
posted @ 2008-11-26 19:16 成虎 阅读(139) 评论(0) 推荐(0)

摘要: program Project2;{$APPTYPE CONSOLE}uses SysUtils;var n,p,q,j:integer; flagp,flagq:boolean; label 1;begin1: writeln('输入一个偶数');read(n); P:=1; repeat P:=p+1; q:=n-p; flagp:=true; for J:=2 to round(sqrt(p... 阅读全文
posted @ 2008-11-26 19:15 成虎 阅读(160) 评论(0) 推荐(0)

摘要: program Project2;{$APPTYPE CONSOLE}uses SysUtils;const PI=3.14159 ; var I,wide :integer; y:real;beginfor I:=0 to 24 do beginy:=sin(i*15*PI/180);wide:=round(35*y+40);writeln('*':wide) ;end; Readln;{ 加... 阅读全文
posted @ 2008-11-26 17:07 成虎 阅读(273) 评论(0) 推荐(0)