查看: 2783|回复: 0

函数大全(p开头)

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2004-10-4 02:56 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

align=center>函数大全(p开头)

<

>函数名: parsfnm 
功能: 分析文件名
用法: char *parsfnm (char *cmdline, struct fcb *fcbptr, int option);
程序例: 
<

>#include <

ROCESS.H>
#include <STRING.H>
#include <STDIO.H>
#include <DOS.H>
<

>int main(void)
{
char line[80];
struct fcb blk; 
<

>/* get file name */
printf("Enter drive and file name (no path - ie. a:file.dat)\n");
gets(line); 
<

>/* put file name in fcb */
if (parsfnm(line, &blk, 1) == NULL)
printf("Error in parsfm call\n");
else
printf("Drive #%d Name: %11s\n", blk.fcb_drive, blk.fcb_name); 
<

>return 0;
}


<

>函数名: peek 
功能: 检查存储单元
用法: int peek(int segment, unsigned offset);
程序例: 
<

>#include <STDIO.H>
#include <CONIO.H>
#include <DOS.H>
<

>int main(void)
{
int value = 0; 
<

>printf("The current status of your keyboard is:\n");
value = peek(0x0040, 0x0017);
if (value & 1)
printf("Right shift on\n");
else
printf("Right shift off\n"); 
<

>if (value & 2)
printf("Left shift on\n");
else
printf("Left shift off\n"); 
<

>if (value & 4)
printf("Control key on\n");
else
printf("Control key off\n"); 
<

>if (value & 8)
printf("Alt key on\n");
else
printf("Alt key off\n"); 
<

>if (value & 16)
printf("Scroll lock on\n");
else
printf("Scroll lock off\n"); 
<

>if (value & 32)
printf("Num lock on\n");
else
printf("Num lock off\n"); 
<

>if (value & 64)
printf("Caps lock on\n");
else
printf("Caps lock off\n"); 
<

>return 0;
}


<

>函数名: peekb 
功能: 检查存储单元
用法: char peekb (int segment, unsigned offset);
程序例: 
<

>#include <STDIO.H>
#include <CONIO.H>
#include <DOS.H>
<

>int main(void)
{
int value = 0; 
<

>printf("The current status of your keyboard is:\n");
value = peekb(0x0040, 0x0017);
if (value & 1)
printf("Right shift on\n");
else
printf("Right shift off\n"); 
<

>if (value & 2)
printf("Left shift on\n");
else
printf("Left shift off\n"); 
<

>if (value & 4)
printf("Control key on\n");
else
printf("Control key off\n"); 
<

>if (value & 8)
printf("Alt key on\n");
else
printf("Alt key off\n"); 
<

>if (value & 16)
printf("Scroll lock on\n");
else
printf("Scroll lock off\n"); 
<

>if (value & 32)
printf("Num lock on\n");
else
printf("Num lock off\n"); 
<

>if (value & 64)
printf("Caps lock on\n");
else
printf("Caps lock off\n"); 
<

>return 0;
}


函数名: perror 
功能: 系统错误信息
用法: void perror(char *string);
程序例: 
#include <STDIO.H>
int main(void)
{
FILE *fp; 
fp = fopen("perror.dat", "r");
if (!fp)
perror("Unable to open file for reading");
return 0;
}


函数名: pieslice 
功能: 绘制并填充一个扇形
用法: void far pieslice(int x, int stanle, int endangle, int radius);
程序例: 
#include <GRAPHICS.H>
#include <STDLIB.H>
#include <STDIO.H>
#include <CONIO.H>
int main(void)
{
/* request auto detection */
int gdriver = DETECT, gmode, errorcode;
int midx, midy;
int stangle = 45, endangle = 135, radius = 100; 
/* initialize graphics and local variables */
initgraph(&gdriver, &gmode, ""); 
/* read result of initialization */
errorcode = graphresult();
if (errorcode != grOk) /* an error occurred */
{
printf("Graphics error: %s\n", grapherrormsg(errorcode));
printf("Press any key to halt:");
getch();
exit(1); /* terminate with an error code */
} 
midx = getmaxx() / 2;
midy = getmaxy() / 2; 
/* set fill style and draw a pie slice */
setfillstyle(EMPTY_FILL, getmaxcolor());
pieslice(midx, midy, stangle, endangle, radius); 
/* clean up */
getch();
closegraph();
return 0;
} 


函数名: poke 
功能: 存值到一个给定存储单元
用法: void poke(int segment, int offset, int value);
程序例: 
#include <DOS.H>
#include <CONIO.H>
int main(void)
{
clrscr();
cprintf("Make sure the scroll lock key is off and press any key\r\n");
getch();
poke(0x0000,0x0417,16);
cprintf("The scroll lock is now on\r\n");
return 0;
}


函数名: pokeb 
功能: 存值到一个给定存储单元
用法: void pokeb(int segment, int offset, char value);
程序例: 
#include <DOS.H>
#include <CONIO.H>
int main(void)
{
clrscr();
cprintf("Make sure the scroll lock key is off and press any key\r\n");
getch();
pokeb(0x0000,0x0417,16);
cprintf("The scroll lock is now on\r\n");
return 0;
} 


函数名: poly 
功能: 根据参数产生一个多项式
用法: double poly(double x, int n, double c[]);
程序例: 
#include <STDIO.H>
#include <MATH.H>
/* polynomial: x**3 - 2x**2 + 5x - 1 */ 
int main(void)
{
double array[] = { -1.0, 5.0, -2.0, 1.0 };
double result; 
result = poly(2.0, 3, array);
printf("The polynomial: x**3 - 2.0x**2 + 5x - 1 at 2.0 is %lf\n",
result);
return 0;
} 


函数名: pow 
功能: 指数函数(x的y次方)
用法: double pow(double x, double y);
程序例: 
#include <MATH.H>
#include <STDIO.H>
int main(void)
{
double x = 2.0, y = 3.0; 
printf("%lf raised to %lf is %lf\n", x, y, pow(x, y));
return 0;
}

函数名: pow10 
功能: 指数函数(10的p次方)
用法: double pow10(int p);
程序例: 
#include <MATH.H>
#include <STDIO.H>
int main(void)
{
double p = 3.0; 
printf("Ten raised to %lf is %lf\n", p, pow10(p));
return 0;
} 


函数名: printf 
功能: 产生格式化输出的函数
用法: int printf(char *format...);
程序例: 
#include <STDIO.H>
#include <STRING.H>
#define I 555
#define R 5.5 
int main(void)
{
int i,j,k,l;
char buf[7];
char *prefix = buf;
char tp[20];
printf("prefix 6d 6o 8x 10.2e "
"10.2f\n");
strcpy(prefix,"%");
for (i = 0; i < 2; i++)
{
for (j = 0; j < 2; j++)
for (k = 0; k < 2; k++)
for (l = 0; l < 2; l++)
{
if (i==0) strcat(prefix,"-");
if (j==0) strcat(prefix,"+");
if (k==0) strcat(prefix,"#");
if (l==0) strcat(prefix,"0");
printf("%5s |",prefix);
strcpy(tp,prefix);
strcat(tp,"6d |");
printf(tp,I);
strcpy(tp,"");
strcpy(tp,prefix);
strcat(tp,"6o |");
printf(tp,I);
strcpy(tp,"");
strcpy(tp,prefix);
strcat(tp,"8x |");
printf(tp,I);
strcpy(tp,"");
strcpy(tp,prefix);
strcat(tp,"10.2e |");
printf(tp,R);
strcpy(tp,prefix);
strcat(tp,"10.2f |");
printf(tp,R);
printf(" \n");
strcpy(prefix,"%");
}
}
return 0;
} 


函数名: putc 
功能: 输出一字符到指定流中
用法: int putc(int ch, FILE *stream);
程序例: 
#include <STDIO.H>
int main(void)
{
char msg[] = "Hello world\n";
int i = 0; 
while (msg)
7 q, m- k' v# s6 t3 G. nputc(msg[i++], stdout); # z0 V+ c+ u- j& O
return 0;
" a9 E$ l1 B+ S5 F6 M4 n}
( c) ^5 o) b) E% S
! y' y; R% k1 Y* l0 }
/ ]- l) g) p S/ o函数名: putch . H: s' u( ]( r6 c/ ]' w" @& @- Y
功能: 输出字符到控制台
& S9 F9 }- \- k) A- r用法: int putch(int ch); ! O/ q; E" i8 y7 V! K
程序例: + h {* Y0 U- S) k# r' s
#include <STDIO.H>
5 q/ D8 N; n/ Z1 B1 j#include <CONIO.H>6 ?/ T7 q ~+ \6 o- K% _- Z
int main(void) 3 i+ f( ?1 q6 w" [% W, v
{ 7 o4 T% J2 i$ m/ ]( G* E
char ch = 0; 
 o9 @1 {' Z; qprintf("Input a string:");
# {$ W3 F' B* V" u0 Hwhile ((ch != '\r'))
2 o# b6 u4 I9 v. E; b K' }{ ! A7 G; X! ~; @$ ~
ch = getch();
1 p7 z* J* d, |3 @& }* G) _putch(ch); 2 I7 j2 t) p3 @ F# O; A
}
) j3 D# s8 t2 K0 Z$ V' zreturn 0; # c( v' B5 P1 a$ D6 M4 [, g; V
}
, f$ E, g9 C( [2 d( K( u5 T: Y4 A/ E$ d- a

8 _' x0 `) R, }& n2 o7 _函数名: putchar 7 b" m1 j9 n7 m2 H
功能: 在stdout上输出字符 * V. i5 K1 t+ X6 Z
用法: int putchar(int ch); . |: n0 d0 x$ A% y, y& C
程序例: 
, l# P9 A8 L6 N" t" d" |: B4 h#include <STDIO.H>
/ T: [3 j. p- W/* define some box-drawing characters */
# h7 D$ j! H" t e. J) c$ X#define LEFT_TOP 0xDA ' S, D6 T% k. Z; }# u* J* M
#define RIGHT_TOP 0xBF 0 m8 C3 ~- |& `5 a1 k6 E- ?
#define HORIZ 0xC4 * |( e; N7 c T6 U3 u( k" A. c
#define VERT 0xB3
 h; o& @3 T# Q7 d9 o#define LEFT_BOT 0xC0
4 A7 F# h, }! y F$ v" q6 I#define RIGHT_BOT 0xD9 
2 K1 C' ?# V% Z5 s6 A5 gint main(void)
+ A" @" A0 N8 E B. M{ ' f! ?) o# T" P( W
char i, j; 
! c( M% T( j8 g* o) Q% w% x/* draw the top of the box */
) b' w& a1 a1 b$ i! e1 sputchar(LEFT_TOP);
, \, F- f% r& u! S5 Bfor (i=0; i<10; i++) 4 @7 Q5 b3 Y/ |' r) s
putchar(HORIZ); {( D$ A/ @: m( I, B
putchar(RIGHT_TOP); ' @; Y: }0 {/ W9 R& W4 M4 g: w
putchar('\n'); 2 ? S7 |5 ^0 T7 a
/* draw the middle */
for (i=0; i<4; i++) % W e- J- G9 S& O1 s/ l! R
{ 4 y, P, f- e9 B3 B3 X# V
putchar(VERT); 3 ^' L$ k( G$ O+ b/ W
for (j=0; j<10; j++) + `& \( ?8 X3 O! h* p
putchar(' ');
# j+ Z% o4 T% N9 P4 xputchar(VERT);
0 o2 h* ^$ C: f/ `! ?9 U( k; fputchar('\n'); % l) f3 X( _: U+ C1 Z7 D; w
} # |! c( c: O+ V; h3 d
/* draw the bottom */
& y3 f9 Q( W ~% w! D" xputchar(LEFT_BOT); 2 w6 |! a$ s' a N7 j
for (i=0; i<10; i++) 3 d9 Q# a8 ^5 D- O: U
putchar(HORIZ);
9 u8 c' C5 F* d, U' x4 xputchar(RIGHT_BOT);
3 J' Z$ p0 v, j6 `+ tputchar('\n'); 9 |; M1 t' F) x% M
return 0; ! Y% D) ^! a: {8 d m$ D
}
& j* { g! _1 g- X
( b7 R, R* `7 Q% Q) _$ C+ I) I% E1 r" k3 V6 \+ M: L2 z% }/ Z
函数名: putenv 
7 G! K' M% A3 `. y5 ^功能: 把字符串加到当前环境中 $ }8 M6 F% {' y8 f& d8 i
用法: int putenv(char *envvar);
0 {* b! h* P& M1 w5 H5 r7 N _3 q程序例: # H! \7 Y6 e0 ~1 H: _* v
#include <STDIO.H>/ u# \9 ~: z/ n b1 h7 D$ I
#include <STDLIB.H>) V! y d# I% l. X
#include <ALLOC.H>8 o( Z7 x: G* J# Q/ N
#include <STRING.H>
$ E8 ~: v4 w7 B. K$ {2 x& {#include <DOS.H>
" ?4 J5 R3 ]$ L0 h4 Gint main(void)
6 K( ~4 Y* I" ]6 J& ?0 D! \{ 1 M# l8 a: W& i
char *path, *ptr; 4 U$ v1 U/ R2 S8 R1 i$ F
int i = 0; 7 u* p' {( _ E
/* get the current path environment */ + ?/ d1 D: y8 ~
ptr = getenv("PATH"); 
* K5 G1 d6 i/ u1 o B& f# i/* set up new path */ . s* W7 l0 ~2 ]9 P" j" [
path = malloc(strlen(ptr)+15); ( Z# ]0 Q7 y0 c' q, t
strcpy(path,"PATH=");
" c2 H/ p5 P+ j5 g( [1 v Mstrcat(path,ptr);
$ r5 w' p% x8 o+ |5 ?strcat(path,";c:\\temp"); 
6 S6 g* N7 K( R5 Z6 R0 B/* replace the current path and display current environment */
+ I w( i$ }$ a" Q- gputenv(path); ; \8 Y" l& g; h4 _
while (environ) / G5 b5 |9 }3 w& { X
printf("%s\n",environ[i++]); 
2 k/ K! N2 q" Nreturn 0; ' N) ~, k7 R/ r
} 9 n, J+ J! a; r4 w4 d
 B' y0 x1 l w+ p% `. u$ Y
( v0 d" ~: f) T( Z
函数名: putimage
( q, v! R% `: Y& l6 A. G$ S功能: 在屏幕上输出一个位图
4 l6 X, g( |0 W+ ~# @7 l2 N用法: void far putimage(int x, int y, void far *bitmap, int op);
! A8 L5 P9 G2 G& J2 X! C/ W程序例: 
1 A6 T/ u1 S$ I* X& v$ E#include <GRAPHICS.H>! r6 j4 v- M5 E, ]/ I4 a
#include <STDLIB.H>' L$ t' v/ u- W' _- L
#include <STDIO.H>
; x: s5 l% l9 |7 F; ~- g#include <CONIO.H>% w& L$ P1 ~2 Y* v! e; ~: D
#define ARROW_SIZE 10 ! V8 g; {1 P* e; B' W! y) h# H
void draw_arrow(int x, int y); 
- X W0 ~9 t) o! R/ [) Z, l/ b( sint main(void)
3 Y0 l4 h5 R$ i7 I/ D1 v2 q{ ) k3 |8 g4 `6 b2 c" n* H- L
/* request autodetection */
( J! @2 O( w$ @8 Aint gdriver = DETECT, gmode, errorcode;
- Q/ y, f; U6 A, o# E: Vvoid *arrow; ' f5 E# R6 ~9 j$ Z% J: \. ]
int x, y, maxx; 7 ?+ e3 p) F# x. Y1 b
unsigned int size; 2 |1 Q0 Y6 y0 z1 Q" P
/* initialize graphics and local variables */
- v+ p" N( f1 U) v* Q( Rinitgraph(&gdriver, &gmode, ""); 
4 s" M. c) L) t# _5 R( M/* read result of initialization */
- J- v. L3 T' ]% J( Qerrorcode = graphresult(); / C$ T" u, z8 V5 \" b. P- C
if (errorcode != grOk) /* an error occurred */
7 y1 i- s9 T, l! W+ H) X- C{
' [% Q2 B0 v! w3 }# Bprintf("Graphics error: %s\n", grapherrormsg(errorcode)); " O! v9 g6 _; Y; y6 K4 e
printf("Press any key to halt:"); S$ p" C0 V3 B
getch(); / ?% w$ n+ L7 B7 |7 q9 H
exit(1); /* terminate with an error code */ & B3 i4 x2 N6 F. ^
} 
 k$ J1 E3 [$ I7 z8 n0 }+ Q$ @9 Vmaxx = getmaxx(); % v T- W! X: t
x = 0; 8 z4 k+ E L, u# N7 B J
y = getmaxy() / 2; . s1 P- I! s. ? \( I( d8 F1 ]
/* draw the image to be grabbed */
4 \/ N! f0 K: Rdraw_arrow(x, y); 
7 K$ A* D/ ]+ p# D) z7 @/* calculate the size of the image */ : D; W: V! o, L8 V. H$ v% J
size = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); 4 c# S" m5 s( P- i
/* allocate memory to hold the image */ , [4 P) \/ N6 N" u4 h8 G
arrow = malloc(size); : S6 r1 O$ |( p
/* grab the image */
/ N/ x. k& \2 {! T5 c0 l# _( N" xgetimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); 1 y$ F* r1 V! F! W$ `+ z8 F
/* repeat until a key is pressed */ * _. L" u9 C/ K. b
while (!kbhit()) & A9 x; X8 w& r$ }
{
' J2 d4 [* K9 N8 s/* erase old image */ 3 m4 c" B; o9 {* h% g& a5 Z z
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 
6 J2 B4 d# q k7 @; V$ [x += ARROW_SIZE; - ~: p! c4 d+ p3 a. I- P
if (x >= maxx) % C/ ~. t A& j1 [ v. j2 o
x = 0; * D2 R/ K1 C m- Q! c
/* plot new image */
* A' f* \) ^) J1 h: E( x3 Vputimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 6 J5 W9 t3 F# K$ M: c
} / @4 j$ A+ G2 U) u1 ~. U- g. J3 t
/* clean up */
6 z, V" `7 R2 tfree(arrow); & K) ]0 ^; j0 I& z1 f
closegraph(); . P4 @, h4 a' P4 r6 {' S! e
return 0;
7 U& f3 V6 f* W} 
2 j/ N/ Z6 H8 z3 qvoid draw_arrow(int x, int y)
0 z4 ~, y" d) @( X, `( J, [{ " ?0 U* S( u) a/ ?. l6 S, ?' M
/* draw an arrow on the screen */ 7 }+ u0 E& h+ `1 T2 B
moveto(x, y);
3 q( x2 b4 Q( D; H2 I C+ slinerel(4*ARROW_SIZE, 0); & E, `! L' p6 x: N4 Y9 b' q
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE);
% ~, f% X- J8 nlinerel(0, 2*ARROW_SIZE);
3 \: Z2 x+ w, H: P' G$ hlinerel(2*ARROW_SIZE, -1*ARROW_SIZE);
- F1 B8 S4 s D& O}
: S6 X ?9 E! a' Q
0 B; {. c+ u* N! a. C& I5 C# J: I/ \) D( S' N" t- K
函数名: putpixel 
3 ^# q2 n: O! w% w4 f3 S; d# [6 G功能: 在指定位置画一像素 [, f/ q! N c4 K
用法: void far putpixel (int x, int y, int pixelcolor); # j7 Y, `. p3 @/ p1 A% v
程序例: , ]( z9 A0 y- T1 B
#include <GRAPHICS.H>$ P- r9 H- N3 O' j* y: w8 V. b
#include <STDLIB.H>
( T4 U/ g" l) G3 Y! D, ~#include <STDIO.H>. r1 i. o8 _$ w% j( B
#include <CONIO.H>
" t6 n+ ~; P& @#include <DOS.H>
4 `7 y- ~5 N* i \9 N#define PIXEL_COUNT 1000 # v! i/ G( ^1 I. X2 `; w6 [
#define DELAY_TIME 100 /* in milliseconds */ ; ? b( j# @. D! H
int main(void) - {7 M- W$ X W, y7 S1 U1 g8 E, \( V
{
7 H# f' S$ P2 ^0 C: G/* request autodetection */
; a: y- a3 u |1 _int gdriver = DETECT, gmode, errorcode; % f: E; m! u" a6 s& W
int i, x, y, color, maxx, maxy, maxcolor, seed; 
8 I7 x5 }0 h4 V s) F/* initialize graphics and local variables */
1 K6 b8 a* X+ d. n$ ?initgraph(&gdriver, &gmode, ""); 9 @( ~. W+ X9 G% x* V
/* read result of initialization */
. e1 g) ^' O( o; d7 v+ }4 K5 werrorcode = graphresult();
, J! v; t3 C) y: Oif (errorcode != grOk) /* an error occurred */
' b& M$ Y0 O. l* T{ 6 o: Z& g z2 e( }
printf("Graphics error: %s\n", grapherrormsg(errorcode));
5 w. y t+ H% i' T6 Y& [8 U& N# Q) _printf("Press any key to halt:");
' I `6 Q; h" c4 Q8 g* Y; xgetch();
9 b4 V' E# V g( n* w/ e0 a9 j2 l) Mexit(1); /* terminate with an error code */
8 Q8 l. C/ e2 o& ^% `) A} 
/ }) |5 L& q0 @& P* }7 bmaxx = getmaxx() + 1;
3 @+ R$ L, f1 l. h! I) W$ nmaxy = getmaxy() + 1;
6 ^; S/ b2 v7 T8 y# P9 e+ Y5 B$ N$ ?maxcolor = getmaxcolor() + 1; 
4 z% r, {( t8 f8 jwhile (!kbhit()) . R- }3 \ J8 d- E/ L3 k
{ / F, g% C- b8 D; K2 x' Q) w/ P
/* seed the random number generator */ + q4 J! H" h1 T: v" I1 o
seed = random(32767); 3 Q' U) f _ D) ]' ~3 D
srand(seed);
: d$ T" {; S0 G2 ifor (i=0; i<PIXEL_COUNT; { " f& z2 P1 C- z' \
x = random(maxx); - z* p0 q0 r( s- s. G1 @' o
y = random(maxy);
5 _& r/ m( X$ N, ]$ F" e5 Ccolor = random(maxcolor); ' D o8 z1 R4 f1 |: x
putpixel(x, y, color); 8 |6 h" o3 d9 X4 B& i% e4 R
} 
: y6 x2 B5 D' `8 m6 `0 q- Y* Qdelay(DELAY_TIME);
! r4 [' f' L4 V+ |srand(seed);
) s/ G( {0 U! W* @( t0 qfor (i=0; i<PIXEL_COUNT; { ; n* c! S7 x# }. K+ z; z1 U
x = random(maxx);
. Y. n# h4 p& m' ^" gy = random(maxy); - u* v1 V6 E P1 v( o( T! d! F
color = random(maxcolor);
6 S3 w2 s" b" A# }) p# B Z; l. hif (color == getpixel(x, y)) & {2 d) S+ ?' _! u2 C
putpixel(x, y, 0); & K8 V/ g7 u& V( H& Q/ e( M/ N
}
: t+ h+ O7 H* g* C& t& c} 6 l4 q, ?5 H0 M/ ?4 P; R
/* clean up */ , J& P) y5 V, Z* [
getch(); & t. d) s, X" ~
closegraph(); ! \4 p. i6 a3 A# G4 {
return 0;
- t0 r" b+ o3 Y i- j9 \3 K3 q} 6 D- N" f, ]4 F3 j) m ?
* i4 y+ I4 ^0 y0 |

3 {# _. p0 {. d) r) Q- c4 G函数名: puts - g7 d7 @: T& W
功能: 送一字符串到流中 ( ?* r3 j* L% T3 a: o
用法: int puts(char *string);
$ A, k9 J# ] Q* j9 x程序例: , d9 q& O& e, a. w( m, X
#include <STDIO.H>, {! L# X4 f, h$ D ^
int main(void)
- M+ x. g( ?2 ~( N( O5 Z# A{ , I8 G9 y4 Y+ P x" Z7 T
char string[] = "This is an example output string\n"; ( W1 E g0 x3 F: k
puts(string); 6 `7 C7 ~0 @1 R
return 0;
0 G4 z& @, q, C} / }% }& T- t1 w) G

% y; x& b/ o; W) M+ m' O: c* @' [$ z) U3 S
函数名: puttext # o1 m6 Z/ X' f8 }" Z: j
功能: 将文本从存储区拷贝到屏幕 ( }8 l8 Z7 A# p( b7 G( I
用法: int puttext(int left, int top, int right, int bottom, void *source); n* \, U7 Q+ q
程序例: 
; m% n8 E ~* J, k! j" Z#include <CONIO.H>
. @* w2 b4 h7 yint main(void) ( l$ N+ {. g9 d) P
{
) Q! i ~8 ~: x9 I2 b. @char buffer[512]; 
/* put some text to the console */ - S/ B l- Y# j& R' B
clrscr();
( I* V4 U8 x& _( ?gotoxy(20, 12); , L2 j" k0 {7 ^
cprintf("This is a test. Press any key to continue ...");
# u1 H8 z% s" ugetch(); 
9 K4 n1 x2 B+ ~: e) s/* grab screen contents */
8 J, R( _8 Z0 C, W5 ]6 u4 p9 Ngettext(20, 12, 36, 21,buffer); & v9 q' [8 j- `: X
clrscr(); 
# X( g/ B0 ^% E( |; q5 O/* put selected characters back to the screen */ 3 L) y2 g* L2 Y: Y) e
gotoxy(20, 12); % l5 |. v* i) N- S$ p
puttext(20, 12, 36, 21, buffer);
* L6 T w7 l/ ]getch(); 
6 L1 o1 Z2 C4 a$ |- o. W* A4 i- |return 0; 2 [9 ?2 N3 f* f+ w: M
} 6 S: {' s- `; q

$ V2 T" t$ ^3 O3 s) z7 x6 f8 d2 B, v% v# k
函数名: putw 4 w) o* K* P% t. `1 Y6 y
功能: 把一字符或字送到流中
' w( N# Y7 a5 y/ E$ L用法: int putw(int w, FILE *stream); : m- }8 v6 {/ h C) E
程序例: 
$ b( W, i5 [* v4 ^+ u#include <STDIO.H>4 v7 @7 J9 o1 K
#include <STDLIB.H>: a# s* }' @( O9 @2 o! }( T( ^# r
#define FNAME "test.$$$" % N/ [ D) ?4 o r
int main(void) & H# k+ _1 N W* k# g+ z
{ " k7 t" _4 _: n% @% P0 [
FILE *fp; ; o% t3 n7 [2 }. L$ P4 A6 q
int word; 
0 ]7 h, A* h$ I6 f8 S, l/* place the word in a file */ 3 G8 {& U! t3 N
fp = fopen(FNAME, "wb");
* z$ h, ~* ` L$ O4 kif (fp == NULL) ( H0 a2 d! A/ @7 P+ p9 W
{
/ }( _' P _, Z1 ]2 W! W0 B& dprintf("Error opening file %s\n", FNAME); / l0 W/ C$ V( \+ Y
exit(1); 4 A1 x% h- i* c" x
} 
7 @# @) N) k) ?) N0 o1 vword = 94; 4 m) r7 J) Q& }/ u( E6 W
putw(word,fp);
* _; l# |1 S( k4 hif (ferror(fp)) . a1 t$ ^- v8 E+ c' }
printf("Error writing to file\n"); 2 C( V- C7 Z5 s+ o9 Z
else - L e7 x, @9 c% v1 O
printf("Successful write\n"); 5 [9 F* o- j* E" ^9 \6 p
fclose(fp); 
" G* L' R7 }3 }* O, G4 M/* reopen the file */
 v1 O8 W1 q3 N0 V) j% {9 Zfp = fopen(FNAME, "rb");
& |. p' |& \* g& f, t8 G; ^4 Cif (fp == NULL) 0 T, D, F) J5 |: T% w
{
3 F- e1 Z4 J: @) A* K" J' K% }$ Qprintf("Error opening file %s\n", FNAME);
4 ~- Y( t. M, Texit(1);
% M+ F& c8 R4 T( R5 M& l0 F} 
, T# @) ]" a7 l9 V0 Q/* extract the word */ * A! a% a5 W4 h& f7 k# [/ d
word = getw(fp);
 A- M# W, l/ X/ s" F4 ~( Pif (ferror(fp)) 7 K( B1 } D) c. G% R8 G4 A) L
printf("Error reading file\n"); - {. P7 b |7 [! K* E. J
else
/ o% ?5 T6 H( ?* z3 eprintf("Successful read: word = %d\n", word); 
# Q7 Q% Z) e- j8 L8 ~+ S- S/* clean up */
* E$ L3 S3 G; G# Rfclose(fp); - Y1 G0 N. G$ a
unlink(FNAME); 
8 Y' u( a5 o1 [: z7 y( @% q4 x- s/ Q/ vreturn 0; 0 n; a; @) ]1 y+ d, }9 {
}