tt_xencat(do hoa may tinh)

program cohen;
uses graph;
type code = array[1..4] of byte;
var
a1,b1,a2,b2:real;
n,i,xmin,ymin,xmax,ymax,gd,gm:integer;
b:code;
procedure special_line(x1,y1,x2,y2:real);
var tg:real;
begin
if(x1=x2) and (x1>xmin) and (x1 begin
if y1>y2 then
begin
tg:=y1;
y1:=y2;
y2:=tg;
end;
if(y1ymin) then
...

by admin - Comments: 0 - Xem: 336

15042011

Code gọi thủ tục_môn họ Hệ quản trị cơ sở dữ liệu

LINK DOWNLOAD:[You must be registered and logged in to see this link.]

create procedure dbo.spud_pnhap_tinhslnhap(@sodh char(4), @mavtu char(4),@tongsln int out)
as
select @tongsln=sum(slnhap)from ctpnhap join pnhap on
ctpnhap.sopn=pnhap.sopn

where sodh= @sodh and mavtu=@mavtu
go
--goi thu tuc 5.1/b
declare @tongslnhap int
exec dbo.spud_pnhap_tinhslnhap'D001','D002',@tongslnhap out
select...

by duynv9x - Comments: 0 - Xem: 343

15042011

Code tao csdl_môn họ Hệ quản trị cơ sở dữ liệu

Link download:[You must be registered and logged in to see this link.]

Create database qlvattu
on primary
(Name=qlvattu_data,
Filename='G:\qlvattu.MDF',
Size=50MB,
Maxsize=200MB,
FileGrowth=10%)
Log on
(Name=qlvattu_Log,
Filename='G:\qlvattu.LDF',
Size=10MB,
Maxsize=Unlimited,
Filegrowth=5MB)
go
use qlvattu
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_CTDONDH_VATTU]')...

by duynv9x - Comments: 0 - Xem: 501

04042011

tạo lập 1 dãy số nguyên, thêm, xóa 1 số trước vị trí trỏ bởi p

Tài Liệu Môn Cấu Trú Dữ Liệu Và Giải thuật

tạo lập 1 dãy số nguyên, thêm, xóa 1 số trước vị trí trỏ bởi p

#include
#include
#include
#include
struct node
{
...................
}

void insert_first(nodeptr &first,int y)
{
...............................
}
void duyet(nodeptr first)
{
.........................
}

void insert_before(nodeptr p,nodeptr first,int y)
{
........................

}

void...

by admin - Comments: 0 - Xem: 354

04042011

code ve hinh tam giac

tài liệu môn đồ họa máy tính

program Thuat_toan_BresenhamLine;
uses graph,crt;
var gd,gm:integer;
{---------------------------------------------------------------------------}
procedure Doitoado(var a,b,c,d:integer);
var temp:integer;
begin
temp:=a;a:=c;c:=temp;
temp:=b;b:=d;d:=temp;
end;
{--------------------------------------------------------------------------
Thu tuc ve voi truong hop duong thang song song voi cac truc toa do}
procedure Vesongsong(x1,y1,x2,y2:integer);
var x,y:integer;
begin
if x1=x2 then

by admin - Comments: 0 - Xem: 870

04042011

code ve hinh elip bang thuat toan lam tron

tài liệu môn đồ họa máy tính

program thuat_toan_ve_elip;
uses graph,crt;
var gd,gm: integer;
{----------------------------------------------------}
procedure put4pixel(x1,y1,x,y:integer);
begin
putpixel(x1+x,y1+y,red);
putpixel(x1-x,y1+y,yellow);
putpixel(x1+x,y1-y,blue);
putpixel(x1-x,y1-y,green);
end;
{thu tuc ve duong tron}
procedure round_elip(x1,y1,a,b:integer);
var y:real;
x:integer;
begin
line(x1-a,y1,x1+a,y1);
line(x1,y1-b,x1,y1+b);
x:=0;
...

by admin - Comments: 0 - Xem: 1290