查看: 2686|回复: 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)
/ J8 R+ B1 p& c, \+ `4 ]putc(msg[i++], stdout); 6 |5 E/ j) N3 B @- k
return 0;
* ^8 c2 g, _0 a}
2 _5 A" z( K2 Z9 y: ]
( I1 V+ g& x& _0 H3 C; f3 M0 s: S
函数名: putch : {' C9 l; ~+ `& i! Y& h/ Y- B: `* V
功能: 输出字符到控制台
# s/ D3 J- @8 L$ A- X/ q5 ^用法: int putch(int ch); ) N! v# C0 H6 A0 M0 }; l
程序例: 
2 v8 F. I6 ]% l9 E#include <STDIO.H>
# ?3 Y- A. t# @$ C2 I S#include <CONIO.H>; B6 N/ J: W, s
int main(void) + W8 u- ~% M) k- y/ R. F8 z
{ 2 B* P( q; A1 [% S$ ?
char ch = 0; 
: \/ A' M% H0 Jprintf("Input a string:"); / z# K7 p, w6 f" H: Y
while ((ch != '\r')) 4 G3 i; k" A5 c3 ^/ x! r. I
{
9 E6 F7 ~, @( ?8 M Tch = getch(); . `* s/ k, [1 ^3 Y
putch(ch); . a) U/ E7 V8 l9 U# }7 K+ r
} ; c0 Y9 @' q6 V; x' {/ f) Z" x
return 0; * g; T* P# l$ a
}
" r1 E* H# l. Z6 s- g! S8 \6 t
3 x, w0 ?7 l3 k- Y6 K8 H: [! y9 F% @5 f, Q' m" J* J
函数名: putchar 
/ k0 q% O: _' {$ U功能: 在stdout上输出字符
3 _ Q' X' W& e( h$ z" z用法: int putchar(int ch);
7 p/ \" R t7 V3 O- c6 O程序例: 
3 V {' |% c+ D2 J1 N( Z#include <STDIO.H>7 `; j+ s. @0 W4 X# E/ @, X* Q7 u
/* define some box-drawing characters */ 2 ]6 B6 Z# C! i0 y7 k; `1 l
#define LEFT_TOP 0xDA ) G( f; V" c0 i( W) U' ]
#define RIGHT_TOP 0xBF 2 l9 p1 y& F+ _* `2 t
#define HORIZ 0xC4 ; {- k( ?: L, M5 `/ C
#define VERT 0xB3
#define LEFT_BOT 0xC0 % b0 w. e. i& ^4 Z0 l
#define RIGHT_BOT 0xD9 : w* ]3 j: L! b# @7 i3 }
int main(void)
# n/ }: G# z* f{ % h( O9 z9 S4 o( I- {: [
char i, j; 
( `1 E. i" p" C/* draw the top of the box */ 1 A. j2 s; D/ L2 G6 B
putchar(LEFT_TOP);
" x! p2 n7 g9 U) p4 D2 Gfor (i=0; i<10; i++) ' @6 }3 ~1 Y0 j* I! K2 {
putchar(HORIZ); ( g0 w+ o/ A8 F) S9 W* D: T2 u
putchar(RIGHT_TOP);
( ~% l2 I* o9 Y2 D% |9 a' ?- lputchar('\n'); 
% ?$ [' I; y/ b. C/* draw the middle */
$ v5 r* A0 |' C0 Tfor (i=0; i<4; i++) 4 N* ]+ D2 @8 s$ ]; i0 C# G% ]
{
3 @" u: [, G- Y, Yputchar(VERT);
1 C4 j! P% u. }/ Y4 V8 K& rfor (j=0; j<10; j++)
; y( A8 r- t3 Pputchar(' '); 1 \ j( s+ \( Z. n: O& _
putchar(VERT); 3 N0 l1 L6 z6 X+ o
putchar('\n'); 2 L( T# O/ J& ^8 f0 \1 u
} $ W- Q; F. h8 {$ d, B
/* draw the bottom */ _" [( O7 W( I4 O f. R
putchar(LEFT_BOT);
0 S! P5 } k3 m& A# [. S) xfor (i=0; i<10; i++) 1 ?* S* U) R0 J% c% R
putchar(HORIZ); 4 l+ [1 y. L0 t
putchar(RIGHT_BOT);
. q* I' \& K% w3 z1 nputchar('\n'); 
8 \% _# T' Q% \- ^- x! x1 ^return 0;
, G) x% u/ U$ C} , Z2 ]4 u' _0 a; Q

0 w3 q- v3 x5 O$ ~& d3 X# D' p# z, i# O+ A. {
函数名: putenv ) @- H) h* G7 T' ]! n
功能: 把字符串加到当前环境中
7 ^; _! N6 H7 M3 k用法: int putenv(char *envvar);
& R. ?" r) w' |# T: H! L5 U3 _程序例: 
2 A8 R. l4 Q g$ d#include <STDIO.H>
! @ t* J3 B2 q) ?8 h4 j#include <STDLIB.H>
' G; ?1 Z# ~' V3 t6 m#include <ALLOC.H>
8 c6 s* R) o& p; s1 V8 b#include <STRING.H>7 _* s$ l& m9 [; h. M: q2 o( O0 P
#include <DOS.H>
& R* g u( k6 W5 A0 F: a4 pint main(void) * y( h- \ A# `: l, ^
{
, ?$ o: A! s2 @# Rchar *path, *ptr;
$ h5 L7 T# z+ d9 ~. a& C& sint i = 0; 
# X$ [0 M5 i# i; C$ P1 `2 }/ c/* get the current path environment */
5 P9 t& z* u2 G, T- D4 c$ Zptr = getenv("PATH"); 
/ x) L. Q9 g# i1 ?- T/* set up new path */ w& k& u4 ]& S& R/ y5 ]. A
path = malloc(strlen(ptr)+15); ( {: \( q& {& ?2 y* E8 F
strcpy(path,"PATH="); 3 k% \" j6 j# f# o5 f
strcat(path,ptr); . [% L, u4 c" K+ ~( a
strcat(path,";c:\\temp"); ! k9 K% g& d" V9 ]5 i7 _; r4 a7 r
/* replace the current path and display current environment */
$ |2 D7 u3 m ~9 |3 C( J6 j3 mputenv(path);
1 L! @. x8 n: O! Lwhile (environ)
- P7 A8 _5 F6 `printf("%s\n",environ[i++]); 6 t% d) h4 W* t$ l% y& w. b; y) w+ j5 C
return 0;
& n t4 G+ |; C1 M. f1 Z$ O}
3 I6 W3 R2 G* E/ ~. u( z u
* Z& l$ n$ ?( K
; D P! [5 ^" K7 f函数名: putimage
9 }% r- ~* V1 V. a! u功能: 在屏幕上输出一个位图 ; H, C. G2 [" H. u
用法: void far putimage(int x, int y, void far *bitmap, int op); $ o; {5 y' ^- @0 f3 F/ e. r
程序例: 
8 @6 H0 e0 V! P& T" ~( X#include <GRAPHICS.H>2 ^7 N& f( F _' a; b7 C
#include <STDLIB.H>
* `; L1 P- }( x# \2 j: C( |3 k' Q#include <STDIO.H>
2 F9 k( l F0 Q#include <CONIO.H>
2 Z) R5 G# w9 I* n) y; P#define ARROW_SIZE 10 ! ?* L2 Y3 {, a7 \
void draw_arrow(int x, int y); 
! L+ h* b( Y( `' Uint main(void) 0 \3 b. x+ f/ Z/ f; H& j
{ & T+ Z4 W, P4 V( a8 m( b, a5 f
/* request autodetection */
int gdriver = DETECT, gmode, errorcode; " Q$ a/ [" k6 [- k* ]; W
void *arrow; 3 H6 V1 J' P# F! I# j+ o
int x, y, maxx;
% }1 x' u, B5 e7 A" r! _unsigned int size; 
+ J' {2 D0 T; \ c" p6 p" ?/* initialize graphics and local variables */ ) K) r8 X& G. H) N2 P# H* k9 b
initgraph(&gdriver, &gmode, ""); 
2 E. V8 v% q# f# l( G8 ~( ~/* read result of initialization */ ; O1 C! U+ s2 T8 N. k5 u
errorcode = graphresult(); y( |" ]* D8 c3 z; X1 X0 J0 g
if (errorcode != grOk) /* an error occurred */ 8 r' b. ^! L1 t/ c5 |4 {
{
! d7 i8 R' j' _* |8 i7 dprintf("Graphics error: %s\n", grapherrormsg(errorcode));
4 p6 ~# u; d m- J; iprintf("Press any key to halt:"); . [; v+ R6 L( ^
getch();
, d+ Z& {, q8 ^, y; qexit(1); /* terminate with an error code */ 9 {( Z$ w Z7 h( P+ k/ s
} 
! R- S% g. ^1 Q! Z( emaxx = getmaxx();
0 g- a+ ]9 V/ m: ]% px = 0; ' D# j }' H. @0 D" Y
y = getmaxy() / 2; + u9 j0 I/ T* i. v' I ` @7 ~3 T
/* draw the image to be grabbed */
) X) l: L) c" d: O zdraw_arrow(x, y); 
# o6 G$ {! B0 {4 H% j, D8 ]+ P0 \/* calculate the size of the image */
4 N0 l( r) h( V$ \7 vsize = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); % N: z* g, t- E' G
/* allocate memory to hold the image */ 9 W% _% t+ ]1 `* d: v' v% o, g6 i
arrow = malloc(size); & F- X5 D; A( Z
/* grab the image */
2 F, J- z) q0 x1 j1 egetimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); - [$ D$ E5 v- T3 F3 e4 }
/* repeat until a key is pressed */ 4 V' _) A. P r1 B- u
while (!kbhit()) 2 P- P$ o' `5 M% @8 |8 V
{
) O+ p% j1 s/ V/* erase old image */
; C) O$ D) z4 V, Kputimage(x, y-ARROW_SIZE, arrow, XOR_PUT); ! s! v3 x& v+ e6 G
x += ARROW_SIZE;
0 A' f5 r0 z( ^9 V. M; f: hif (x >= maxx)
5 e* y( G8 O4 Z3 Jx = 0; / [ V# M0 ]' I6 K2 J3 r
/* plot new image */
" i" x0 J- }4 [0 pputimage(x, y-ARROW_SIZE, arrow, XOR_PUT);
* ^3 A7 F( p* w% I} - r# i5 ?. z% p+ k7 t( C$ V
/* clean up */
0 J0 q3 e" m# A( V& ?5 Ofree(arrow);
6 D7 M" G/ U7 s$ E3 |/ L9 G$ Nclosegraph(); % g8 ?; P. S5 @* t- H
return 0; - @4 \) [, m3 \2 `# x$ ]+ n
} 
5 d6 N. Y6 C" ]2 nvoid draw_arrow(int x, int y)
& M Y* J5 _$ b% Q, Y* _{ % C% e/ C/ t2 M9 V0 D4 s! J2 K
/* draw an arrow on the screen */
2 R. K* J& p$ k2 c1 K% R: q& z8 ^ Pmoveto(x, y);
- q2 g/ ~5 h3 elinerel(4*ARROW_SIZE, 0); 9 U$ { M) C7 o. i. d: K2 p1 S
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE); ( Q7 D/ s8 _% u1 X6 b
linerel(0, 2*ARROW_SIZE); $ D4 |) v, H6 I7 }
linerel(2*ARROW_SIZE, -1*ARROW_SIZE); / f9 a- e2 Z, A, Q$ j
}
% m; D3 |6 Y$ s( {- s2 q) C6 Y& X0 F( |6 } Q( G8 \* ]2 q
 M- ]6 D5 K1 A( a( {6 q p' q: u4 e
函数名: putpixel 9 m' V) @" G/ O& c) f3 m* _
功能: 在指定位置画一像素 , T1 c+ w6 }, v% c4 f# t4 t
用法: void far putpixel (int x, int y, int pixelcolor); 1 h: _4 C0 V& ]/ D3 B/ E
程序例: 3 M8 Z3 ?9 b2 ^1 m$ }, @: A
#include <GRAPHICS.H>
6 u$ t9 n2 R: d#include <STDLIB.H>
! [3 I1 l3 \, J#include <STDIO.H>
# @- y |/ }% D& ^#include <CONIO.H>. r9 J( J; D. i" M
#include <DOS.H>! h. h" G& G) ~) s, c% s
#define PIXEL_COUNT 1000 $ D6 r9 z/ p$ i: f8 o5 x
#define DELAY_TIME 100 /* in milliseconds */ 
+ g' g3 I+ M3 d) g0 O) k; zint main(void) ; B2 ~$ x7 P. E( V
{ ' B8 O- {! k# y1 N. `. [' T
/* request autodetection */
+ I4 `- z: G2 ~6 xint gdriver = DETECT, gmode, errorcode; - E1 v! i# I3 q9 Q1 D. \( w
int i, x, y, color, maxx, maxy, maxcolor, seed; 
8 I6 p) M: p, H& H* z/* initialize graphics and local variables */ 9 h( } ^" ^& E7 e
initgraph(&gdriver, &gmode, ""); 
4 _, b& f4 h9 ^: s* `/* read result of initialization */ : B; b, c6 C" @+ M% i
errorcode = graphresult(); a* d ^, h3 j! n
if (errorcode != grOk) /* an error occurred */ - o+ Z; ?' @# I4 Q/ g9 E
{
5 L: r$ c' E ]# o4 n& j/ c. M3 Zprintf("Graphics error: %s\n", grapherrormsg(errorcode));
! c& N4 U% P' \3 I! _, m. H* j' [$ bprintf("Press any key to halt:");
. g" u J3 E2 H# Bgetch();
, C8 U8 t9 c! aexit(1); /* terminate with an error code */ % x$ y( q' _! Q
} 1 E2 Q1 r& C' v+ L# G% F) v
maxx = getmaxx() + 1;
7 L! s, n. w1 h- |maxy = getmaxy() + 1; 3 \5 s. U- W5 ?! H
maxcolor = getmaxcolor() + 1; 5 Q1 P% L& p' E: C% b; O
while (!kbhit()) * v3 w0 j. m' l! H( n( Z
{
0 D* u' z# ^+ N5 Q. [5 Z* Q9 m# X* t/* seed the random number generator */
' V0 n9 R2 ?; m) k1 I" gseed = random(32767); " w3 X& i* ] A% ~5 v$ h+ b3 U. Y: y
srand(seed); - z' }1 P. x# J! G
for (i=0; i<PIXEL_COUNT; {
$ z* K) V, c2 Z7 @$ |* a: }x = random(maxx); 9 ^3 c: V& }! A4 j1 k
y = random(maxy);
- r& H9 Q$ h0 e0 Q. r/ M z9 t1 }$ ]color = random(maxcolor);
" p: B( V" _: F% K0 x- U* J: sputpixel(x, y, color);
# Q& n ]; J$ e& D& p! O} 
4 A. F' G! E" A: z8 t: x8 Ydelay(DELAY_TIME);
/ d# z3 [5 g: R) Psrand(seed); 3 Z6 k W- B3 ^7 z, u
for (i=0; i<PIXEL_COUNT; { / b7 d# x( u) {: P8 [+ L) c T
x = random(maxx); , o; P; {; j+ F( y1 D1 C
y = random(maxy);
& x* z, F/ D& Y9 s7 T- o9 }color = random(maxcolor); M5 w* Z) Q+ k; _: h' D2 r% H
if (color == getpixel(x, y))
# g% Q2 g3 ~$ ]: w! [ Eputpixel(x, y, 0); / y6 s2 g! U/ _4 i. S8 Q- I3 a
} ) P& ^: T% ]% i0 H4 g$ C
} 
6 B6 V: X1 D$ c; b0 E; @7 y/* clean up */ . i( Q# ]& a1 q
getch();
% r0 ]& J. [- t8 hclosegraph();
$ n1 T) V4 q; @% kreturn 0; ( L; W: @8 ?/ J( w( C* C: k9 V1 d
}
8 c f. X) S0 D$ w6 ?( q5 M4 M
+ F8 ?8 [0 H* I* n% v- s/ h' Y, s! _5 ^* e$ X& d$ R6 z. _- w
函数名: puts 
' p" I! i: I; i3 s! `. j/ }功能: 送一字符串到流中 4 N* o1 y$ O L k% z8 }( g
用法: int puts(char *string);
# N) ]( t7 k; q0 }5 y: k程序例: ; Z4 D1 F1 v) Q% u; K6 B
#include <STDIO.H>
8 j$ X4 |& O' e5 Y4 V3 \, W0 Yint main(void)
& h5 p. i0 M, P; y{
, T! K' I3 v( e: _/ J1 r6 R" ychar string[] = "This is an example output string\n"; 5 _( I2 E" b8 t8 k
puts(string);
% C1 E1 W, _$ Greturn 0;
: F6 X" F- i; m} - t5 a7 t! U, K3 L

) O; y* E: ?, S& h, P4 E
8 e1 X0 Y4 C8 D% A函数名: puttext 
& u4 y6 j" A3 N+ d8 s/ [- F; b功能: 将文本从存储区拷贝到屏幕
) q4 F# V( v. y0 a% A, o用法: int puttext(int left, int top, int right, int bottom, void *source);
7 x8 m0 U! x, {$ ~* Z程序例: 
- ^; g# S( ], C#include <CONIO.H>
$ P6 j- h! O; |; S9 e3 k! oint main(void) . w( N' M4 S/ v
{
- r# g8 Y6 i6 `char buffer[512]; 
' h) G0 z0 G' h. g2 j2 l/* put some text to the console */
: [. q& N) h5 n6 s5 S1 { Q, a Fclrscr();
 j& y; D; I9 K( ]1 N6 U! i* @" pgotoxy(20, 12);
8 j6 c. E& A2 s5 Mcprintf("This is a test. Press any key to continue ...");
8 T2 I5 V% O" @. w. ?getch(); 3 m n# y# u& K2 i* ]
/* grab screen contents */ ! ]5 j2 t' N6 S0 c1 O+ R
gettext(20, 12, 36, 21,buffer);
- J+ l& [/ L; u2 z5 L1 F) Xclrscr(); - g: W+ [; O, t/ \0 [) v
/* put selected characters back to the screen */
5 N6 L8 J" r9 S7 E# I3 P8 [, }gotoxy(20, 12);
1 i: o0 X. }2 C+ L" t0 dputtext(20, 12, 36, 21, buffer);
; I' O+ y9 v `, y. y/ zgetch(); : i5 u0 I- r: P2 D% C4 s U
return 0; 0 }8 N( D7 k( M+ G- [2 x! C
}
, d2 {3 F8 ]% q8 H' h7 V" q; _
, }" [% F% s% K& M
 B4 ]4 c6 E4 f6 K: f- M+ R函数名: putw 
2 }; D; A- j$ e6 K功能: 把一字符或字送到流中 9 T! H7 w5 ?& `) o
用法: int putw(int w, FILE *stream); . H% D8 C5 e' Y
程序例: 
* \8 F5 V2 b+ Y U/ Y1 |/ R9 g# J#include <STDIO.H>
0 S9 d- J, s5 B' H' C#include <STDLIB.H>
" V4 B0 L9 G, a3 E#define FNAME "test.$$$" 4 {, ~4 @# t: g i* N
int main(void) ) ?% @( H5 S- A0 d2 ]9 x
{ - O* k# z! l5 c) o
FILE *fp;
: H) ?$ ]2 e( M) R2 tint word; 3 O- J) ^! v- @+ q0 x* z& H& r" O5 ]
/* place the word in a file */
/ `9 I6 ^) x+ m" Hfp = fopen(FNAME, "wb");
2 g- m, }. `0 G" p, C t, n# fif (fp == NULL) , y% d5 E) R9 Y. T
{
0 D) a0 w, u, _' Fprintf("Error opening file %s\n", FNAME); 8 C( V; z8 q: r- T1 C
exit(1);
- d) T6 r4 x' ^8 G4 i( ^: ~: l6 @} 5 T+ k6 B( n) e: m1 Q: K
word = 94; 3 I P- U4 O, t
putw(word,fp);
& L% @% I; s6 vif (ferror(fp))
& s5 h- B& H' x1 T" k: Yprintf("Error writing to file\n");
2 N, ~% i" l* }* {# @. lelse
9 _: A4 Q: L3 Q; s& c; ^printf("Successful write\n"); 3 `1 y% R. k7 ^7 ?- T4 M, b
fclose(fp); & L o% C' B" U' j/ T3 a- ^1 `
/* reopen the file */
; Z: G0 z2 i* V" ^) ^fp = fopen(FNAME, "rb");
* |' {* Y& x* a; M* B/ f. d/ Gif (fp == NULL)
4 N$ S' R4 |; t% L2 q) g) p{ + ` N2 q% I f& \8 |5 e
printf("Error opening file %s\n", FNAME); 0 K& J, x% s0 v7 _8 L P3 E
exit(1);
& y7 v4 _3 o0 \% W6 k, r/ {1 ?} 
6 m1 H0 n4 c1 m9 K6 k5 M$ \# n/* extract the word */
: M, G& f! e6 Q' U: |% Nword = getw(fp); % r9 D+ y& A' |7 G" y
if (ferror(fp)) $ p( P) R7 j1 \+ z& V
printf("Error reading file\n");
 | K; C. t1 welse
$ f5 Q" v/ j9 jprintf("Successful read: word = %d\n", word); 2 L4 P5 E# }# v" \- q
/* clean up */ 2 d) a% I2 s. V$ v. c% k0 y
fclose(fp); : x- g( m& T2 r. X& s8 A
unlink(FNAME); ! W4 m7 z# j# P
return 0; 4 C8 f4 g2 D9 u( k
}