查看: 2719|回复: 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)
3 Z9 |; {. {" Z8 J3 Iputc(msg[i++], stdout);
0 F( g2 x4 c/ l) t! V/ _$ L- W) V/ treturn 0;
& r1 c+ f# U7 B' A1 I1 w}
# H& @; X- u, H* u" H0 G) \/ S) U$ ?/ J. `1 I
, B9 I9 L3 q9 y5 x" I
函数名: putch + `% ~ I$ J- [0 I8 [9 V1 X+ D( h
功能: 输出字符到控制台 + N. C7 H! ]; h. ^8 C7 ~
用法: int putch(int ch); ; \9 ~# |, i3 V* O- X* Z
程序例: ; t1 L1 A3 m3 M8 x. g. x" n/ s
#include <STDIO.H>
% {1 G0 C$ r9 _( ?- t7 [#include <CONIO.H>; v, ^) n* ^7 c& w! `* A6 l
int main(void)
4 ? ?, U7 x$ r5 v* |) H9 h( Z{
- v, |0 F/ H' b, Fchar ch = 0; , A+ t$ L9 h, |3 U
printf("Input a string:"); . Q7 x0 Z* U2 O; Q6 j
while ((ch != '\r')) - T' C. g7 q- m. P c
{
3 c8 y* V, U, e: E- Cch = getch();
5 `2 O' s7 E/ G5 A3 b+ Gputch(ch); 9 b8 A/ R4 W0 j0 E+ l. y: H# h
}
& z' g: `( h2 x% rreturn 0;
4 Q$ L; U! W& W+ _% j& u5 W} - m1 R0 w+ q2 U, l
/ a' {7 D( L9 d4 y

 X1 x K$ D9 J9 X$ u4 u5 U函数名: putchar 
9 f9 K: g, C2 }# x4 E功能: 在stdout上输出字符 3 b2 c0 L, Q# Q
用法: int putchar(int ch);
. P" ^( E- s8 f程序例: % B, E! b Y. F/ w* e0 D
#include <STDIO.H>1 n7 c9 q" F# k4 L& `7 W
/* define some box-drawing characters */ 5 g6 d$ @ F* I) \" ^: `
#define LEFT_TOP 0xDA
9 N3 O& r" M" r# o2 C& Z5 Q2 |#define RIGHT_TOP 0xBF
5 V6 r& p( P, x6 t7 N6 k0 r#define HORIZ 0xC4
3 t# F; I: D6 m# E#define VERT 0xB3
$ }1 r- w& `5 m: ^5 S) x5 X#define LEFT_BOT 0xC0 & d( M1 L2 b) @4 d9 a( v" X
#define RIGHT_BOT 0xD9 4 r( X) F: @8 ^) ]! m
int main(void) / i! P4 e7 @! U0 t( I
{ " B/ E+ u( Q% }6 U, E( Z
char i, j; , O) P" I( S! F% ]6 _
/* draw the top of the box */
1 J* d3 B8 A/ k- U/ k) Rputchar(LEFT_TOP);
+ e x3 R$ |1 E d N' k# ffor (i=0; i<10; i++)
% t, V w3 ^0 ~# K* y& r0 Tputchar(HORIZ); $ H. \# R; u' h$ ?4 b, }# j3 F% N& v& |
putchar(RIGHT_TOP); ' ~* U$ w! O+ v# `' Z
putchar('\n'); 
" b' y3 _/ G8 `+ G/* draw the middle */ 1 \; K* F9 E- s6 D9 }+ Z: ?
for (i=0; i<4; i++)
" }" v" q% T, ~{ 2 m$ M( v2 A! ?5 o: L* f% n
putchar(VERT); - P k" n" v; g: I
for (j=0; j<10; j++)
5 J7 d+ g2 H3 Sputchar(' '); ! @. P% s) b" `/ m5 X+ q
putchar(VERT); - f; [' z, a& Z0 ~( b
putchar('\n');
& A- ?1 }" q& j4 L} 
5 y; O X& Y. F. `* b2 C* B/* draw the bottom */
( W/ G4 I* T, x5 {: C1 U' h5 Yputchar(LEFT_BOT); 1 n# X; d% f! T! a; L5 p: _
for (i=0; i<10; i++)
, }. I; Z" |( B* L7 |3 }8 T* F: t4 Rputchar(HORIZ); / Y" s" q* c( z. Q7 `
putchar(RIGHT_BOT); " A7 D7 P' B' t$ w b* R
putchar('\n'); 
. N- g! n+ |3 P+ a$ Areturn 0; ' }% B% p4 u/ Z6 k" V
} 5 I: b' G7 {) V

' K! T9 @- r. N, C/ ~. m V. @0 Y) N) F' U& D( I0 W
函数名: putenv 3 O: }% R) N* r/ T' Z% M
功能: 把字符串加到当前环境中 % Y8 n; S" A; ]. @1 A
用法: int putenv(char *envvar); 5 U0 S1 K- c' \! O: c! Z
程序例: 0 z# z& t, \ ^# |) n) N( @: V
#include <STDIO.H>
+ e) y# p D: f) r# d5 b' k#include <STDLIB.H>1 ^9 Q" U2 |8 Z! f9 u8 l# e
#include <ALLOC.H>
1 G6 _0 T5 O7 t#include <STRING.H>
: M! h9 r/ @% Q#include <DOS.H>. l. a1 ]: v4 |% |
int main(void) 8 r5 ]$ r- {, W/ h
{
5 [. d9 n- i! E3 |( {: tchar *path, *ptr; 7 f$ A: v1 P' @4 F3 {
int i = 0; 6 M8 U- T {4 I6 o$ q! L% `% T
/* get the current path environment */
9 ?4 h7 x E; y% J' bptr = getenv("PATH"); 
5 B# \8 U! g7 {) u- K/* set up new path */
8 N. V& x L2 Q+ }! {4 a% o1 Mpath = malloc(strlen(ptr)+15); ; t! V+ J8 v2 z" u6 R- j$ o* I: u
strcpy(path,"PATH=");
, Z/ i) {8 ^3 _2 d; zstrcat(path,ptr);
! B) [8 s7 ^5 T! F& f$ J" Lstrcat(path,";c:\\temp"); 
- s3 s( X0 x& {) @7 E2 c! U/* replace the current path and display current environment */ / l8 ~5 Y( b( s# [+ u: b% [
putenv(path);
) n: E" b1 ]; X0 w6 _: u* y) wwhile (environ)
2 x! I2 v/ A3 m zprintf("%s\n",environ[i++]); / u2 Z& i- w- g* Y' J8 A
return 0;
3 _8 @7 j! D% R4 s E}
2 I$ D4 ]9 f! [$ n I+ l s3 u. H" s( c

0 p) j& m% ^' v函数名: putimage % q6 w9 b: P+ k' J3 ^3 l7 x
功能: 在屏幕上输出一个位图
' m/ z: g! ^( l4 o% s7 a- c用法: void far putimage(int x, int y, void far *bitmap, int op);
1 Q/ a! G/ H2 ~0 Y4 v' u程序例: 
! x" H( s4 a- n% Q# k#include <GRAPHICS.H>5 P Q+ L- ^. s! Y! U8 W6 m" N
#include <STDLIB.H>
2 L* y. g+ E& _% V+ F+ r#include <STDIO.H>- h1 q8 S1 ~/ v: l8 @5 }: N
#include <CONIO.H>
2 L! _* d; f* d* U2 k#define ARROW_SIZE 10 - k! }5 ]' Q8 Z
void draw_arrow(int x, int y); * P* U7 _* R( w, @# A3 @
int main(void)
! H/ K8 W: C8 v2 t: X6 E{
7 V2 h0 H2 k6 [ A1 t3 H3 _( _. r/* request autodetection */
1 Q; S8 n3 L: Q+ |$ A& r* k, q' q- wint gdriver = DETECT, gmode, errorcode; 8 ] f {( ]4 c
void *arrow; 7 j& g7 E: d# R
int x, y, maxx;
4 C' f; c1 {% f- @8 M; ?3 m+ vunsigned int size; 
( R5 h5 T3 o4 A+ t; `+ G/* initialize graphics and local variables */
6 S `% U3 i9 Pinitgraph(&gdriver, &gmode, ""); 
# D- Y5 p0 |& _+ X1 o3 P/* read result of initialization */
" L9 T1 o8 i$ X0 ^2 p; `( ?errorcode = graphresult();
; g; H; S- B1 p, kif (errorcode != grOk) /* an error occurred */
: a: j& a9 I$ K' h8 A{
8 e) v4 u' D. s- H+ N; K; aprintf("Graphics error: %s\n", grapherrormsg(errorcode));
2 r6 R9 j6 x1 _& jprintf("Press any key to halt:");
) A7 q( y9 U0 J, [9 `& w4 egetch();
- ^( q( o( }. i6 \4 c, Oexit(1); /* terminate with an error code */ $ H! _! b F, l. x: F/ n4 T+ b7 C
} ; ]1 s/ b9 E; u$ l
maxx = getmaxx(); ( ~; d8 `0 U8 E" M. F5 O9 H
x = 0;
. L* x# l3 u, V7 p/ Z/ ^, c7 ly = getmaxy() / 2; ( b1 R9 \ o3 i' ~* Z& L
/* draw the image to be grabbed */
: m m) ^# k6 `2 o9 A2 ddraw_arrow(x, y); 
' [ y5 _* \ R' z( }4 N+ H( C. C/* calculate the size of the image */
6 P( f7 H' R$ M, m& R. B0 |size = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); 
' c; Q( [. b7 z2 _! `/* allocate memory to hold the image */ ) r; F! w0 n: p/ f7 V1 `
arrow = malloc(size); 
6 q& d( ^9 z% c/* grab the image */
9 a9 Y y9 g1 d" y* _# ggetimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); 
3 u3 `- P p; A4 q/* repeat until a key is pressed */ + h$ C3 L0 m8 w& \* N" V; p+ @
while (!kbhit()) . P& ^* t5 c8 j+ Q; {! `" q4 L
{ # }. f1 E N9 y( i! S: `
/* erase old image */ & j' a) _; }* o2 h1 p/ w
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); ) F6 g A w8 Q5 \
x += ARROW_SIZE; 4 m D+ [) b D
if (x >= maxx) * w* M3 j* C% g( r5 U1 H
x = 0; 
! M* A# E2 l$ u1 A8 Z/* plot new image */ ) J3 [3 A9 _2 R% N
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT);
$ G2 v) g7 p1 J; v) h$ Q9 V. t3 F! n} + C* Q" Y' @+ Q# v2 F2 m
/* clean up */ 6 r3 _! \2 d; s. _
free(arrow);
' ^8 J5 P% x. `# ]" k/ j* [: |closegraph(); ( U) f" o) S j+ X" y8 T
return 0;
# q6 p' M K9 [5 D. D" C} 
! S# h4 c5 @: o( Q: H4 ]9 qvoid draw_arrow(int x, int y)
( L! X7 Z" X. ~( X. e{ 0 l" _9 E2 n6 a; s7 P
/* draw an arrow on the screen */ $ |9 n% x6 U6 K8 @2 D# s% S
moveto(x, y); - ], @% F( S; J y% X2 Q0 n, d) Y* H
linerel(4*ARROW_SIZE, 0); 0 j* Y; x& m7 ?1 [
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE); 7 N/ d. [2 a/ F4 }
linerel(0, 2*ARROW_SIZE); " W$ [( t+ d7 q! u2 @
linerel(2*ARROW_SIZE, -1*ARROW_SIZE); 6 ~" p/ y1 V- f% }
}
4 R% T+ a+ D$ ^1 u" B( r( |* t: w

6 X0 h7 e( k* o9 V g5 i% O f函数名: putpixel - x4 z, z" R, P
功能: 在指定位置画一像素 & _; o( Q- w$ L: W+ x0 \) G, N
用法: void far putpixel (int x, int y, int pixelcolor); * n0 H1 a7 z8 F* L0 u
程序例: 6 a/ F7 @) \' P
#include <GRAPHICS.H>. @3 P7 l) \$ R+ d- A- U1 G
#include <STDLIB.H>
#include <STDIO.H>1 }: p, r) f9 l- c3 f7 d
#include <CONIO.H>% V R8 [, O: l8 z& c) x
#include <DOS.H>
2 n$ K" b/ z& @8 v8 u! j9 s4 u$ T#define PIXEL_COUNT 1000
3 r( F& `; ?& V# N0 ?0 a#define DELAY_TIME 100 /* in milliseconds */ & H9 y H/ J$ R3 s
int main(void)
( t% [0 F* {* m1 U: Q3 }3 q{
+ `3 ]: L' m1 [2 `/* request autodetection */
. {) v) `2 W! L) c* U* u) z4 g+ rint gdriver = DETECT, gmode, errorcode;
9 c6 W% [6 q: n1 M1 A+ hint i, x, y, color, maxx, maxy, maxcolor, seed; 5 X7 l+ B9 |+ T# {" H- u5 h# }
/* initialize graphics and local variables */ : Y, ?3 s# U9 i# Z
initgraph(&gdriver, &gmode, ""); 8 n) ^2 I- A* P6 m5 @9 N8 R
/* read result of initialization */ . j$ P% ?" \9 \+ j# a) T; ~
errorcode = graphresult();
3 l3 [7 k* d5 k- Z7 b8 @! Y. m/ {6 Jif (errorcode != grOk) /* an error occurred */
7 u8 L/ i' v' i" s% ?( d7 G{ & }& G5 ~% ?3 T( T3 ?
printf("Graphics error: %s\n", grapherrormsg(errorcode));
$ q. |2 S$ [* _, z/ S" iprintf("Press any key to halt:");
 b) H f) N! Q& S2 I3 G) r: \getch();
8 ]$ s& g" }9 x# Y# vexit(1); /* terminate with an error code */ $ A% Z; K/ b2 M' y& [5 V) R! M
} 
$ G! j+ P4 T' ~# B' s$ qmaxx = getmaxx() + 1;
( u+ ]$ n0 u, w# V3 _maxy = getmaxy() + 1;
! E5 R* \: p' s& d1 e/ kmaxcolor = getmaxcolor() + 1; ) ~$ t/ o( R( k6 X! P. q
while (!kbhit())
# Z3 I# }0 N3 c5 s- H/ q5 z; B{ & p8 i) p1 i0 U! E
/* seed the random number generator */ % t" V% g n7 Y# o
seed = random(32767); ; {) B; D- |* }8 W* @
srand(seed); 2 x3 E) O+ l( Y9 F4 y0 C
for (i=0; i<PIXEL_COUNT; {
: `# r ~: k) R8 Y; x1 S' A. Jx = random(maxx);
7 y/ w, o7 u- k" \5 I+ n' t) By = random(maxy);
/ x" \) u" m5 G1 G8 Ncolor = random(maxcolor); * C: j0 B- p: K3 |) O6 ^
putpixel(x, y, color);
, @. y# s; c. E2 T} 
1 g7 x5 l! W* V" t, d1 Wdelay(DELAY_TIME);
# N* s+ O2 c3 W# Isrand(seed); ) [0 f0 \8 N) ~% g1 C% t
for (i=0; i<PIXEL_COUNT; {
: X o$ y6 ^ P- i1 F$ Dx = random(maxx); 7 K6 j b( O3 q/ R% w3 H" o) o
y = random(maxy); ; }0 |+ B' U5 Z0 j m
color = random(maxcolor); ( V' W e& K! w# I# y& _
if (color == getpixel(x, y)) 8 {- [3 ?8 u5 M r! R$ w
putpixel(x, y, 0);
; e, V1 l. I2 P6 J# T7 ]4 H} # |; A) y4 o* i$ _) f5 Z6 f/ F
} 
! a: v l" v% A0 ]/* clean up */ - |( T; J# D% B. d8 b! y1 U2 ^
getch();
+ v: e, F5 U6 v E8 sclosegraph(); 5 }9 K& D- m; t
return 0; ; ~ j% h7 ^9 e7 D' p
}
" g# s4 {. F" V! B5 H% L! a- n& B3 U0 B$ d- S# j1 I

3 n( |2 o3 D' C函数名: puts & u9 L) p4 q- L3 S8 _2 j& `, t
功能: 送一字符串到流中 & U; @2 i: L/ H( r1 M( Y
用法: int puts(char *string);
1 r Y; D* _/ i" q程序例: 
. V1 l0 |0 g) N7 W$ B#include <STDIO.H>
1 m2 u; D' m8 ?& O/ H1 J" Y/ C- [int main(void)
' Y' q7 X' T, g; ?6 B{ # Y- t1 J7 o. v2 z) [
char string[] = "This is an example output string\n"; 1 P! h7 ]9 [# J( @; d8 U
puts(string); : P( g+ x; t& s1 a6 {
return 0; ; h) O- ^- m) \4 I2 u6 G" [6 O
} + R, r7 J: F" b2 h5 L, W! d

; H; a/ h9 X- m* p1 E* u3 v* n6 A" T! q3 O1 O
函数名: puttext 3 n1 w3 n# A2 w
功能: 将文本从存储区拷贝到屏幕 ) {6 R4 t* G1 [# d" x: C6 T
用法: int puttext(int left, int top, int right, int bottom, void *source); % B; z: [! S5 E
程序例: 
8 D, K X5 H2 J- `#include <CONIO.H>6 { g- l* ]( b" y5 X& p( i
int main(void)
8 y# r0 u, x w) B, r: }{ & D, A+ K. e0 F; H: e
char buffer[512]; 
# D: a; ~& K. F* B/* put some text to the console */ ) \* }4 z. l( d+ I% [, `8 @, N5 ~! j
clrscr();
" K8 x; R- H% P1 v5 u# r# U X* Zgotoxy(20, 12);
/ n6 D) ]6 \$ ^5 P' w- V& Tcprintf("This is a test. Press any key to continue ...");
* Z. ~: U8 q" r M/ lgetch(); 
2 `5 I5 c$ A. W9 @7 `- B. [/* grab screen contents */
" l1 _8 ?& b6 j% I8 S; Xgettext(20, 12, 36, 21,buffer); * W* A/ `8 [% ?
clrscr(); 
2 l5 s5 u0 j$ J/* put selected characters back to the screen */ 1 [ L' p# {- v" r* ^' y( Q
gotoxy(20, 12);
- e& b8 z+ y( e8 ~) fputtext(20, 12, 36, 21, buffer);
2 `! z+ \" x6 @getch(); 7 g2 O6 H R, T
return 0; . b( j2 f, q7 p, P% W) u
} / @% K* i) A+ R a- r& W, H2 D
& e" p/ \3 l! i) Y9 V
/ Z1 M( _ E8 ?/ r( y; |( H
函数名: putw ! I0 e: {7 f$ |# z
功能: 把一字符或字送到流中
: Q0 s8 v S6 i4 V8 \' N( t) y, ~4 ^用法: int putw(int w, FILE *stream);
6 ^1 T% f, [# D程序例: 
# L6 s2 A( E. m8 P/ a4 i1 z#include <STDIO.H>
8 W& e, i0 ~) }# \8 ~5 `#include <STDLIB.H>
( r7 O9 N X& b#define FNAME "test.$$$" ; B* I# b. F3 g4 t/ u/ V- y
int main(void) ! W( C9 J7 [, w" i) s# X3 t: h
{ ! X/ P. |' Y! n
FILE *fp; . g, v/ P2 z! |& B
int word; & O, h$ f, O( P% A4 o
/* place the word in a file */ ( Z, V2 r4 z& ^! ]# `. l$ h4 F1 p$ d
fp = fopen(FNAME, "wb");
! H8 f" N) [3 k5 W. v& U' Oif (fp == NULL)
9 d; W5 n9 H+ b- t4 b{
- b2 `! F1 I/ W$ Nprintf("Error opening file %s\n", FNAME);
* Z5 k, W6 l: b! jexit(1);
( h; Z Y9 [4 d. p& C} 
* L. D) ~5 s( Fword = 94;
, B9 f7 S$ s+ ~( a% K1 ?9 Rputw(word,fp);
1 T. U v8 ~1 _4 F. sif (ferror(fp))
( |* o8 H# G: H( Z2 W' Eprintf("Error writing to file\n"); : s* M& X( D: D6 F6 t1 l0 C$ A, s3 n
else
8 o- A, ?4 a3 A1 o4 T$ I2 K" O3 V/ K, Fprintf("Successful write\n"); ; j) |! Y2 X( {& k- G5 p4 r
fclose(fp); 6 K+ _- f3 w& E, u
/* reopen the file */ . a) x( R; A. O/ [# Q
fp = fopen(FNAME, "rb"); 2 }1 ^" x9 m$ u$ } k* j$ Y! Z
if (fp == NULL)
{
 ~6 E6 }9 e u$ F& f) B) gprintf("Error opening file %s\n", FNAME);
1 C) S! k. b; J" m# y' Qexit(1);
- W+ z$ m, R/ E0 N2 \} ) m% r+ L. {& X" [
/* extract the word */ 5 q( B) z# c/ E. T" Y9 d+ x, a2 x
word = getw(fp);
) D d: N2 v8 V; R6 Bif (ferror(fp))
( g! n4 l e! P7 G% n! L& k. Kprintf("Error reading file\n");
0 r7 D- ^: }6 a" N) r( I) [1 relse
& H' G; J3 G/ Kprintf("Successful read: word = %d\n", word); 
: E6 L8 v3 o6 l" P g/* clean up */
, _2 @9 e% q% G7 K Efclose(fp);
$ K4 t' ?- Y0 ]unlink(FNAME); 
. K+ D; S, Z" J, E+ m! X ^return 0;
4 q4 X' a/ w* E+ h' I n1 @6 \}