查看: 2724|回复: 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) & F1 j5 f5 {1 D- [
putc(msg[i++], stdout);
" o8 `/ z2 }9 I9 H+ V! z6 ureturn 0;
' L/ r: L! \" o4 S}
+ X: [* R& f1 G7 M2 b ]5 O7 q" p' B7 K8 F9 O

& U2 P, R; X# B7 A# Z* J4 m9 H函数名: putch 
; C; J+ w) q; G6 E, U功能: 输出字符到控制台
5 F; w/ F+ f/ T) N% r2 b用法: int putch(int ch);
' p% d0 T+ `! M程序例: * Y$ C/ y- G$ m
#include <STDIO.H>
8 W& w% T; U! O6 ?7 M#include <CONIO.H>2 V) $ [: D0 H" {, j2 j/ Q
int main(void) [) {6 X1 O+ d6 W
{ % J* o2 d4 `1 w
char ch = 0; 5 Z( t/ n2 b/ y, $ H
printf("Input a string:");
8 e* I, S; \/ \& _+ S0 l+ C0 jwhile ((ch != '\r')) * C' R' k( m a- `& o3 g: w$ G- U
{ % E( }0 c. X# u
ch = getch();
9 d: G2 I2 W( x5 nputch(ch); & b/ V% R7 Q4 b
}
! {1 q. J1 I1 M! Q# r, v7 Xreturn 0; & ]- I7 W% N8 l
}
0 W) A! c, P& `- `8 S/ z" ~# n% \+ e" `6 I
9 M" Z3 C: m7 B0 m' s
函数名: putchar ( j% b* i7 c: G. }2 V& O& L8 j
功能: 在stdout上输出字符 & l0 ?2 [: Q" q7 R+ G( V0 }
用法: int putchar(int ch);
 ~' p* ]4 H9 h# @; x4 v1 `程序例: 5 h0 E+ M Y0 l0 C; ]6 p- ]
#include <STDIO.H>. X7 J c$ f) z* p3 _, N
/* define some box-drawing characters */ 5 }2 K* d: t: m$ b9 q- r4 a
#define LEFT_TOP 0xDA . M h7 E1 F O, C p: u- S3 H
#define RIGHT_TOP 0xBF : }! \4 W0 a' R* P, v
#define HORIZ 0xC4
' `# ?0 l m: G+ M7 j5 M9 ~#define VERT 0xB3 6 b5 v/ `6 E. y2 H& W
#define LEFT_BOT 0xC0
! `4 s& `# t4 o6 n$ O, h1 Z3 F#define RIGHT_BOT 0xD9 2 K* M$ E: N' D, L7 W
int main(void) ! ^+ l. w% a. H. g+ H% E
{ : i& R' v* I5 F( F
char i, j; 
. @5 u7 A' y2 x/* draw the top of the box */ 0 Y4 O" _1 [( m2 i; I9 y
putchar(LEFT_TOP);
6 e l$ e9 |3 K6 Qfor (i=0; i<10; i++) 4 T1 e" y$ J- x4 M
putchar(HORIZ); ; P. f" h/ X4 r$ ~7 V
putchar(RIGHT_TOP); 5 N" l" m, G, t
putchar('\n'); 0 }9 @3 q3 O8 d% t6 [" X
/* draw the middle */
1 Q8 S" g( x& Pfor (i=0; i<4; i++)
/ b3 q. [8 T% H5 v; n{
4 u* m8 ]* O. s+ Z, Rputchar(VERT); , h& x7 F0 p/ t! x0 {
for (j=0; j<10; j++)
9 `, A5 r2 \& f6 Y0 g8 @7 J$ Kputchar(' '); - G8 [" h( l, P* p
putchar(VERT); ! j( l& G) W( q3 `) o
putchar('\n'); 4 D- A, Q6 f3 v5 ]4 V4 }4 J
} 
1 n+ z8 Z$ U. K/ d7 j# R' S2 x/* draw the bottom */
! ^' a! P9 F, lputchar(LEFT_BOT);
( w! ?# l+ j' N+ A) @3 Ifor (i=0; i<10; i++) , h, u, e/ ]+ L ?' d4 g" I
putchar(HORIZ);
+ \! y: j7 d% m0 W1 Bputchar(RIGHT_BOT); . L$ I! S. R; X
putchar('\n'); " f0 S0 f0 {3 g8 G% H
return 0;
1 A3 F6 g5 |( \3 q}
- y$ Q* \6 @) c- Q8 y+ v/ q* H! l# B
. {( L$ z9 r' D% d7 y2 f
函数名: putenv 
+ `& w2 c! V) L. }) X4 s) {" b F功能: 把字符串加到当前环境中
$ F1 ^; V% a' V: a用法: int putenv(char *envvar);
, x0 w/ g2 F( u( o程序例: 
( C% J* a0 ~; j. S/ e/ r; e- }#include <STDIO.H>2 A) d' j) O6 x, t. _( c2 F h9 W# D
#include <STDLIB.H>
0 j9 }+ l4 j7 x1 i/ c#include <ALLOC.H>- P5 j7 E" k% y$ U0 r# Y1 v8 }7 }
#include <STRING.H>
 E, q1 M2 p+ M+ K+ ^#include <DOS.H>
0 ~; }5 z% @+ K+ C0 w7 O) fint main(void)
7 D" d7 X6 }7 d4 K) f; |- I4 q{
* z# F* k9 u# d- p% M5 u$ M% B* Zchar *path, *ptr; ' F. _* N; y6 z/ k2 B
int i = 0; 1 v! i, J4 C% Z, n3 j0 M
/* get the current path environment */ ) F& O2 N5 I+ s2 j/ |
ptr = getenv("PATH"); . r6 P/ I0 }, u3 [
/* set up new path */ 6 r; _# u: h) s$ s. s3 W( X, P: p+ h
path = malloc(strlen(ptr)+15); ) `4 z$ c$ n' C) L' j8 d
strcpy(path,"PATH=");
3 P9 d: s. s" estrcat(path,ptr); 2 t' ?' @2 t! n: ?6 h
strcat(path,";c:\\temp"); # r G: L; L1 Q
/* replace the current path and display current environment */
/ E% D' u1 d% b. N, O5 ^# y' i- tputenv(path);
1 F% P- ]# _, d) wwhile (environ)
. Q' ]& p6 e; r* T6 zprintf("%s\n",environ[i++]); 
" [! Z1 o/ b! ^1 Creturn 0; 8 {% F) G& R9 ^1 {0 }
}
' Z/ \, ~' ]. b: H; F. T# E
4 i2 K9 g# K) s0 ~) O4 s! S) t: X' a) s
函数名: putimage
" l7 Y9 ~$ n0 V" X8 r. L功能: 在屏幕上输出一个位图
( Q5 L, P8 I, {+ S用法: void far putimage(int x, int y, void far *bitmap, int op);
- F2 l: h# R2 i0 P程序例: 
, {" t" j9 e- R! H9 m% F#include <GRAPHICS.H> z% G9 k7 e- z3 P% {
#include <STDLIB.H>
, H, W6 \! f+ t& O! I: v#include <STDIO.H>& l$ t# R v) h K, F/ W6 n
#include <CONIO.H>+ F3 ?1 V. ]- h2 q, F+ U
#define ARROW_SIZE 10 / F% N8 y9 ?$ o' l) W" m. g; s" \. i
void draw_arrow(int x, int y); v# i3 b- g9 [& X S0 u
int main(void)
- q; f1 R' ~, \{
# U2 _6 m V7 c% p/* request autodetection */
3 r/ f3 \6 @. o6 `5 C7 Z1 e, Tint gdriver = DETECT, gmode, errorcode; % h# @ w, W0 ` D( F
void *arrow; 7 _& K/ L' z& C4 m/ `
int x, y, maxx;
7 H: w; V) M- v7 n- k8 Z/ Sunsigned int size; 1 W/ A6 H, Y( T9 E2 n
/* initialize graphics and local variables */
7 r0 g4 k, k2 E! Xinitgraph(&gdriver, &gmode, ""); 
: l0 s. A9 b0 U* ]! P1 i/* read result of initialization */
' N% C F" n jerrorcode = graphresult(); 1 v8 ?; Q, g. d2 J) x& N/ E
if (errorcode != grOk) /* an error occurred */ ! F5 z8 R, Q! h- f
{
( |1 ?, w: w* E+ x9 fprintf("Graphics error: %s\n", grapherrormsg(errorcode)); 8 a h; B* m- _/ p# n3 S8 S
printf("Press any key to halt:");
- p$ f# h; b$ c" C$ p2 n6 U. \getch(); ' }- U4 }% n% B
exit(1); /* terminate with an error code */ - j- t/ q2 x' F4 D" d% } Q
} 
0 F8 n3 s1 \( X) ]3 umaxx = getmaxx();
* e& s; M5 e! r" `. b' Nx = 0; ' n0 e! h" S4 \& W, | Y
y = getmaxy() / 2; 9 J, p- l# }: T. W. ?! T
/* draw the image to be grabbed */ 8 U6 ~) P/ K/ y2 d
draw_arrow(x, y); 7 P" X9 q. H' s [
/* calculate the size of the image */ 7 W' U c8 M' l; w2 \6 t V C
size = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); % J' W3 G+ L+ M- ]' X @. d
/* allocate memory to hold the image */ ) T l* X" _* F) U7 B" j2 \. x
arrow = malloc(size); 
. |2 |* R0 J \% H( @2 y/* grab the image */
0 a; N7 o- a5 X! D. I0 W5 V( ?getimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); - w4 M* Q/ z( @0 b$ p. }
/* repeat until a key is pressed */
! |, V5 n. C/ E* G' ]( ^while (!kbhit())
) V+ ^- a; Q" F8 _% L. V{ - e. O# D6 h: O, i% u- g' b8 ~
/* erase old image */ * h9 n8 S& b6 S' C, m
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 
9 J% C2 C# w- t, k1 Ix += ARROW_SIZE; 8 Y0 f( r9 x4 p/ j8 G% j
if (x >= maxx)
" N6 j5 g6 }1 R7 L* C( e4 M2 sx = 0; 
6 V& _% n, x( D* b! W5 f, W4 L4 l/* plot new image */
+ W2 g' }. ]: }# x* R1 n; oputimage(x, y-ARROW_SIZE, arrow, XOR_PUT);
) U, J& J' L9 \9 ]& [} ' p6 q4 u+ ^2 b( a1 e6 _
/* clean up */ 7 r. k! K% J3 c; y6 P$ n/ E& I1 P* ^# {
free(arrow);
# C4 G& i4 P6 X% @* g( |closegraph();
( O$ m( }( T' ~+ Z4 Nreturn 0; 3 S) K- l) h( o
} + \5 b! L& _# j+ i$ G" a, }+ {
void draw_arrow(int x, int y) . j, ^' [) \ F6 F" a& |
{
; A! d4 t! ~, o/* draw an arrow on the screen */
3 N7 P: S$ v$ m) x8 j% X5 x4 mmoveto(x, y);
$ U7 ]# p8 t1 f. \; `8 n$ _; C" _$ zlinerel(4*ARROW_SIZE, 0); 0 p1 }' A) O& O# g; `
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE);
* c$ b- f$ Y" k- Ulinerel(0, 2*ARROW_SIZE); : O7 R) u; N a+ x0 O3 `
linerel(2*ARROW_SIZE, -1*ARROW_SIZE); ) s- C; H# _8 |9 \) q( m
}
% f! j4 D' D( g7 q9 o
4 ~, O! O. s5 C3 p7 ~5 a& M% j( |2 A7 g
函数名: putpixel 0 r A+ y5 H9 }6 o2 H
功能: 在指定位置画一像素
2 I Y! ~& r- Q# L2 |" x用法: void far putpixel (int x, int y, int pixelcolor); ' o0 v9 i: Y) D8 I6 d+ Z
程序例: 
9 c9 D& d, s( v `( C: M#include <GRAPHICS.H>
! R* ~0 E) x. E: u0 C2 u' I) }9 [#include <STDLIB.H>2 L9 \& C9 N0 E2 k: M1 T' k
#include <STDIO.H>
& ^: |$ v/ j% j* \#include <CONIO.H>
+ S1 k$ S8 h( Z+ ^# T#include <DOS.H>
1 }/ @. j1 A/ M5 c3 J Y#define PIXEL_COUNT 1000 ( Y& T; c5 L# m4 c8 l; d1 T- {
#define DELAY_TIME 100 /* in milliseconds */ 4 e; k6 m* M5 g; s# ~- u# _: W
int main(void) + b2 a- D$ e1 l( s6 T" ` C5 \
{
2 p7 X" N. u7 U0 s: Y/* request autodetection */
: q# X- R( n6 {$ _- T- s% [int gdriver = DETECT, gmode, errorcode; ; ~* c {8 w, w3 k1 n" Z
int i, x, y, color, maxx, maxy, maxcolor, seed; # }# d h2 d6 T& P
/* initialize graphics and local variables */
# Q: M) D% c4 y& \( i4 w: U* E/ winitgraph(&gdriver, &gmode, ""); ! y) n: k! s* X- ?3 c: L
/* read result of initialization */
) _+ e" Z5 A' ^8 O9 n! zerrorcode = graphresult(); ' u5 b/ B; R2 j: @* Z: y
if (errorcode != grOk) /* an error occurred */
$ U% \8 h4 Z- d4 X+ ~; B- T1 e' m{ ) g) @- ]! l+ [+ A! _5 u7 l6 o0 t
printf("Graphics error: %s\n", grapherrormsg(errorcode));
8 y- w8 Y2 T* H5 O6 z5 Pprintf("Press any key to halt:");
. ^1 t2 u2 m( g7 tgetch();
6 O+ g* {4 Z) L( ~- j$ \8 U: uexit(1); /* terminate with an error code */ 3 M0 K; O; P9 W' p8 y# n& a) z2 e. Z
} 
5 u" g7 U T0 U" Z" l1 [$ k% `$ ymaxx = getmaxx() + 1; + R# v' n! o2 I. l6 H6 ^: ~
maxy = getmaxy() + 1;
% I: y; r) `- w imaxcolor = getmaxcolor() + 1; % Y9 a; i+ p0 P2 |) n4 i
while (!kbhit()) ; U n* C# {4 G- p
{
3 G h# d. N5 f; N4 B+ h- b$ I/ U. E/* seed the random number generator */
, D+ b; f; C8 l; c1 ^seed = random(32767);
; C( u) Q* Y6 A: K) {! F2 J$ Jsrand(seed);
0 q g( [4 I! M4 P* D% S7 F Rfor (i=0; i<PIXEL_COUNT; {
0 n+ G4 f3 @: w" Tx = random(maxx); 5 J9 f3 d! i5 q# V
y = random(maxy);
7 T# ~, w/ K4 w) L' P( vcolor = random(maxcolor);
/ Z2 ^+ R1 i- h" C4 Xputpixel(x, y, color);
) D- h3 Z) i: y2 x! q, x2 I1 ?} 
8 u+ L0 h' `* ~: \/ y# pdelay(DELAY_TIME);
) K& G. w/ C/ R4 `+ [6 {- z1 }srand(seed);
! J2 f6 j+ \5 W. q" A- Kfor (i=0; i<PIXEL_COUNT; { 9 P$ B9 `8 @& q- ` K7 B
x = random(maxx);
" F$ w' N4 W8 C# ?3 [2 Zy = random(maxy); $ f R R& K) x8 G4 N- u. ]* ~1 O. |
color = random(maxcolor);
2 d2 m! t; L+ Q8 ]6 k) e& Kif (color == getpixel(x, y)) $ I- s( R, f, Y- l& D
putpixel(x, y, 0); . H8 v1 y$ x9 @; p) B- [5 x* d1 n
}
0 b) G' h+ r: B} 
' {3 _. i' {/ e* m3 u/* clean up */ ; P ^+ O. A' c2 O1 L4 ]& P2 ?' T0 n `
getch(); 0 s+ P. u( [% N
closegraph(); 8 o7 B+ Y3 I, f* U& O' J
return 0;
; i$ T9 d p; Z- `, m' a}
# H* H S8 i) h- w" a2 k' e
0 l* Q( I4 Z9 d2 Y8 N# ]- _8 V/ B3 v" Y
函数名: puts 
' m' b% {* w# M2 w功能: 送一字符串到流中 % j4 ?- c0 s7 ^- m& F& E8 h4 @! h
用法: int puts(char *string); 5 R! m& a$ _ o1 \" G' z2 l
程序例: 
4 f" Q( c7 p% I) H5 @$ M9 j#include <STDIO.H>
) m/ d, F3 M: S/ xint main(void)
: J1 r" Q0 s2 k. j, M4 k{ ' ~5 d& F& w T* g( J* C) A. d# V
char string[] = "This is an example output string\n"; 4 K) M" P, X4 U! d$ W3 V
puts(string); N, z* K K/ c; `# _$ J* s D" J
return 0; ( t/ P$ W3 `+ [6 a* ]% Y
} ) ], L% W$ U8 _5 i. `4 k$ K
7 m' P" v' [6 L* N) P4 O6 d- H f
' c: M2 @" S, D, D8 n. ]9 I
函数名: puttext 
; e5 n! \1 F7 r! P5 [0 W功能: 将文本从存储区拷贝到屏幕
* T3 y! r% V; l$ @ x8 t用法: int puttext(int left, int top, int right, int bottom, void *source);
# x2 a* b+ t1 C9 O程序例: 
7 X* k, l/ ~/ b# }#include <CONIO.H>9 _8 {! ?1 Q/ I
int main(void) 0 L4 ?* [7 ?- ]( v8 `
{ 0 s. p1 `7 h8 J5 m
char buffer[512]; , U9 E9 G- f4 \* I5 S6 a1 O6 Q
/* put some text to the console */
- o, Q# n; l$ e5 \1 S& j$ Gclrscr(); 5 X& p* u ?. V# Q9 D/ X) N. W' q
gotoxy(20, 12); 1 k7 `6 I; h! h0 S. w: l
cprintf("This is a test. Press any key to continue ..."); / h3 m! V E* J4 B7 i4 d. m1 g
getch(); 
: {, q- e- O) f& m/* grab screen contents */ 3 i2 \. {1 d/ j( l7 ?
gettext(20, 12, 36, 21,buffer);
* V! d, O* h+ Cclrscr(); 8 \( c' \. {) I+ |# r) o3 d- B
/* put selected characters back to the screen */
- Y) k/ }) c5 B# o4 b8 Zgotoxy(20, 12); 6 @* s" L" k! s" X+ t7 q+ Y9 X
puttext(20, 12, 36, 21, buffer); * F4 P) ^5 a+ j
getch(); 7 e, Q+ ?* u' b q
return 0; " m5 m S- ~: B+ i" V7 f) m
}
/ n5 }2 D) `0 z, _' D! I4 M$ [+ c8 i6 u% L
/ E2 \5 k3 }5 M/ S/ r; v' B5 ?
函数名: putw r' W- H: y& G( T! i
功能: 把一字符或字送到流中 4 O+ _# `' a' P2 q
用法: int putw(int w, FILE *stream); 4 ?. f5 x: K- ]$ A9 U4 D: ?/ D- I
程序例: 
9 S/ q$ m5 I3 |) K#include <STDIO.H>
1 y- b7 i G" v$ ^#include <STDLIB.H>
) e' p$ \. a+ T1 A#define FNAME "test.$$$" , O+ g7 T& E5 v0 ?! Y1 x& a
int main(void)
 K. J7 h' U" {1 F+ b" o3 @{ 1 s5 c6 r6 \/ J/ J) a: R
FILE *fp; 3 U+ C6 f& X! H" h# K- c$ `
int word; 
7 e. ^# d3 D U3 H1 e6 E* o$ N/* place the word in a file */
 ?. [ T6 I, v0 [" Tfp = fopen(FNAME, "wb"); ' A! W7 l+ b8 ~- C
if (fp == NULL)
. D4 l, [1 X+ f8 Z3 {5 N' ?: ]{
/ n; i5 P. F7 _; aprintf("Error opening file %s\n", FNAME);
: o- ~" }# N2 d7 Q, p1 ~$ ^( texit(1); & P0 g) G C* t5 `! i8 H
} 
# K9 a: ~1 m5 x* Qword = 94;
 X& \- s* d; @- N; [0 ~putw(word,fp);
( |0 L# o' U# P& G& l& H( Iif (ferror(fp))
, [$ V5 B% G8 d+ Q% Lprintf("Error writing to file\n"); & h9 e8 l4 l, \1 d
else
& ?" ^1 q; k" ~/ i6 v! A3 Hprintf("Successful write\n"); $ a; D" A2 ]9 i$ s9 k& i$ N" O
fclose(fp); $ Z$ R8 \+ Y9 R5 {* l
/* reopen the file */ " `+ c& m. K* y1 x% ^
fp = fopen(FNAME, "rb");
9 g- _* b7 C, ]! xif (fp == NULL)
/ M, K* ~. ~ b& w' I& j{ + m9 O7 s. g+ R
printf("Error opening file %s\n", FNAME); & a1 E# U1 b E8 l/ C5 K3 j2 l) x
exit(1); f! c2 n6 T1 S k3 r* A* ^# A
} 9 F! D9 a+ [4 q, {$ P, H$ P
/* extract the word */ & s8 v5 H/ ^. ]
word = getw(fp);
0 L7 X0 R2 o2 O0 Gif (ferror(fp)) 3 _, E9 W6 ~3 z b
printf("Error reading file\n");
- |! B0 {9 O: A; c: helse 3 x) E. t5 Q7 k, v' n
printf("Successful read: word = %d\n", word); 
$ t+ A9 L# h* v# ?5 K/ e# m/* clean up */
/ q0 Q! m; T9 a# Dfclose(fp);
4 M6 Q/ X q0 a% Munlink(FNAME); 8 d1 p |% a; k- Q1 ]
return 0;
3 L, n! p1 d* o$ m}