查看: 2684|回复: 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)
: K" S4 B1 D6 V' zputc(msg[i++], stdout); " t5 w1 Z3 V5 f7 ~% v' ~
return 0; 7 f0 f6 n5 s( \* c" e5 H
} , V7 G; G, E# O$ J+ \8 L
3 l. L& a0 F( Y& \- n2 a+ \
, Y* l8 G& G) b3 [4 S
函数名: putch 
4 y/ u% N" ~1 d) X" [功能: 输出字符到控制台 + S% @7 N, U1 M" O- p! E; _
用法: int putch(int ch); + n+ D) e% p; g( s; }
程序例: - U4 w' }: A+ u: b% m4 ~
#include <STDIO.H>
; _6 [. x" @4 q#include <CONIO.H>
2 I3 ]/ I6 o: R6 k( v" A+ Qint main(void)
& f% H4 x0 } v& d3 f# g3 t{ 8 O4 t. v: ]; i/ w" z
char ch = 0; 
, K v1 Y5 V, C, \3 P3 A/ ^printf("Input a string:");
# d* \2 {& e9 ]3 V" Xwhile ((ch != '\r')) 4 {3 p! Q: g# }' F% D5 L1 u
{
! u0 G# H# l nch = getch(); ) B$ s+ L: C0 S
putch(ch);
+ ]2 O* n5 M5 J. k$ ?) k& A7 S* Y7 [}
3 v( K K# J/ vreturn 0;
7 |; f! c, `. I( W" x' S# i} % U8 T& N- d& X/ f

6 K' }7 a! j. O: `2 `6 a4 s0 t& m2 c. b( f
函数名: putchar % I9 d C Y9 ]4 D. J" F
功能: 在stdout上输出字符 , I" x/ L6 [1 Q! L8 t
用法: int putchar(int ch);
 [: `8 r" t% u7 j程序例: 
1 d4 l1 r; @6 B: }3 n$ i( @#include <STDIO.H>
- b% O2 G; D* t% r. N1 `/* define some box-drawing characters */
8 p$ v+ h$ h* l#define LEFT_TOP 0xDA 9 a0 ]1 S3 _; k& R
#define RIGHT_TOP 0xBF ; j$ E- u9 `4 ~
#define HORIZ 0xC4 ( e) |7 Z9 V4 ` b
#define VERT 0xB3 / g- O1 O- `: M, u; o p
#define LEFT_BOT 0xC0
0 C/ y' G) e0 p7 g#define RIGHT_BOT 0xD9 
5 A- T( t" }( }+ L; sint main(void)
+ ?+ T# V( T) l' v% u, J{ - K8 T. ] K8 C( L( q1 x* X9 u
char i, j; c! e* l( |) v$ x' d' q
/* draw the top of the box */ ) _ X4 b4 y! g: [! D; r
putchar(LEFT_TOP);
5 f3 y- |: \$ s% ~9 Afor (i=0; i<10; i++)
; k' m+ Y+ x: R J6 J7 i/ Fputchar(HORIZ);
! z. q% u8 b7 M* ~3 B0 M" \8 wputchar(RIGHT_TOP); : \: N5 w8 c+ E, o- l6 k
putchar('\n'); 
" Q( z4 H8 C& Z' r( r0 T; k/* draw the middle */
+ p5 p, Q/ I" D( N5 Cfor (i=0; i<4; i++)
9 j2 V8 s1 C9 }3 E2 c% ?{
( Y% s: u3 k ~. Fputchar(VERT); 5 U0 O) e3 q5 `/ Q" y2 w
for (j=0; j<10; j++)
, T" J; v- K# B$ s6 n: Nputchar(' '); 1 L$ X6 z3 S* d* ?# @. v$ w( N( c
putchar(VERT); * |( [" F1 |( {' b$ p
putchar('\n');
3 _2 T! V' {/ y% f9 x: n2 B} ( ~2 b1 D4 Q/ [. w6 q q+ }
/* draw the bottom */
1 \8 a1 f5 m. ?) B( H4 x/ [putchar(LEFT_BOT); : s8 T. I7 O) S4 g; q6 W
for (i=0; i<10; i++) & [$ i. f8 H2 w8 R1 {$ F2 B
putchar(HORIZ); # ]' S% N% Q/ }" c& N% W9 j4 X
putchar(RIGHT_BOT);
- A1 l N* Q/ _% V/ ~6 U- h; Wputchar('\n'); 
4 H G8 v# H; w. R$ K" v5 Jreturn 0;
6 C4 G# s6 Y) M% B& U" C} 0 |- v9 G5 N6 @, E! x

& ]9 S1 O3 l5 X0 R7 w+ [7 h. g6 v7 N+ I1 ^% D
函数名: putenv 
( T0 o$ ] K$ u+ a功能: 把字符串加到当前环境中
 i" c% ^* Y; f' |0 p o B- K用法: int putenv(char *envvar); . ] t( A: B% _% W& h( t! _4 Y
程序例: 3 q0 U$ w9 u* F0 ~
#include <STDIO.H># m9 _' B* b: u# k: [3 _
#include <STDLIB.H>. k& \0 X3 y1 V6 q% r
#include <ALLOC.H>
2 X1 b+ t# ?- R+ E [#include <STRING.H>
4 Q! V# r& _* a7 K' [#include <DOS.H>
6 D7 |1 u! Y; ~; }8 ~5 D8 @ Qint main(void) 7 p- s% ~2 B/ X4 t
{
4 B$ v3 j6 Z% `* Uchar *path, *ptr; 1 e. U, O8 d# H f
int i = 0; & T" ?! w( W+ A3 D. n& L5 [
/* get the current path environment */ 1 D5 m0 H) T% W) _( @
ptr = getenv("PATH"); ) q7 J% K- R+ E
/* set up new path */ q$ ?$ d7 E' n
path = malloc(strlen(ptr)+15);
; ^6 { {7 `$ W; ]! g! I- vstrcpy(path,"PATH="); " O& E/ Y) S% m$ T- y3 B1 \
strcat(path,ptr); : I4 i7 x% \3 n- d2 w0 A
strcat(path,";c:\\temp"); 6 l/ J. {& Z( I7 n
/* replace the current path and display current environment */
; j, k6 W3 H& }& T9 ~. zputenv(path);
/ x, B0 t( m6 b3 Ywhile (environ)
& K4 W& S$ }) v5 [4 yprintf("%s\n",environ[i++]); 
: m! j+ o) m. S* ]* U* k3 mreturn 0; # A8 E: c# p8 p
} ; h7 M: j. y$ t, g

% c9 G7 Z9 @3 `; k# f, A3 j. }. D5 f( l9 Y' y* O7 \9 v
函数名: putimage % Q% O8 o% q% z ~4 [! o
功能: 在屏幕上输出一个位图 $ m' n0 k0 V" O
用法: void far putimage(int x, int y, void far *bitmap, int op);
" H/ b; v% m/ V; y2 Z* S; n% L程序例: , B, o" `* e( U
#include <GRAPHICS.H>
$ r1 |$ e2 J. Q2 m9 h2 j#include <STDLIB.H>
* V& _/ a) q5 t#include <STDIO.H>1 V& T3 ^1 E6 R# g/ b
#include <CONIO.H>
* c* b& h6 h' N7 E* L#define ARROW_SIZE 10 
( e/ b5 ?) a% K3 D3 G+ h8 b6 j! Evoid draw_arrow(int x, int y); - |% y8 C: G8 {; K' \. w# q9 e
int main(void) : u* }! L1 t/ v
{
& W8 b% x& G" F4 l/* request autodetection */ $ A: A2 M U2 A2 k
int gdriver = DETECT, gmode, errorcode; : c* j: Z% R9 |9 g9 g) O
void *arrow;
9 N3 r5 w- X6 _+ v2 Q V7 Q; Kint x, y, maxx;
" m p! E( u8 m9 a: ?# hunsigned int size; 
 m, G- j! P0 B5 W/* initialize graphics and local variables */
7 W. r1 Y% U/ N% U1 l8 V0 cinitgraph(&gdriver, &gmode, ""); 
# M: J- q0 _; w; k8 o; a; W/* read result of initialization */
errorcode = graphresult(); ; y; C# H8 _3 k
if (errorcode != grOk) /* an error occurred */
5 s& i6 F8 h! j5 P' I8 }{ ! G5 T$ \& \" H b
printf("Graphics error: %s\n", grapherrormsg(errorcode));
5 [: d e2 i5 E0 aprintf("Press any key to halt:"); * u. x3 s" Q g
getch();
' B* Q& {; I( d2 l- s4 texit(1); /* terminate with an error code */ ( L: G$ x3 K) J+ m( l% P3 b7 t+ ]+ f' o4 E
} , u) U) l8 r6 s* Q
maxx = getmaxx();
2 i% @ f' m- J: @, j g, y; vx = 0;
+ G' }( ]' i& \: b" y6 [+ n6 Fy = getmaxy() / 2; & u* h8 ]5 r, }* [3 t7 F
/* draw the image to be grabbed */
0 u2 d2 g o/ y/ w! _draw_arrow(x, y); - R# t- B# L+ j$ `2 w' P( V$ Q) J( S
/* calculate the size of the image */
5 ?* T: z5 e9 C+ ~; l+ fsize = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); 
$ k9 I' q( K, r. e5 j/* allocate memory to hold the image */ - c+ o- V' y) M+ U
arrow = malloc(size); 8 J0 ~% ?3 q; N- E5 V, B7 i
/* grab the image */
- D; k, P( F3 l" i' f+ q- |* Ogetimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); 9 Z$ n v6 M2 Y; O! g4 i- f
/* repeat until a key is pressed */
2 [0 `4 y" Y |7 bwhile (!kbhit())
 h# _* a! K' F* {& @( ?& E{ 9 Y* S" M) {) P, C1 R2 Q0 u
/* erase old image */
1 {+ m- a: z5 F( @ d* F: tputimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 
; B! I/ j1 z* x* m1 O% J' |9 {x += ARROW_SIZE; - G- g: p4 T3 Y5 z
if (x >= maxx) D, o$ [) l( n0 K( N
x = 0; ' s9 ?+ `6 {' d) k n
/* plot new image */
% n' B8 g! } D' E! uputimage(x, y-ARROW_SIZE, arrow, XOR_PUT);
" Q, u9 b! Z5 K2 m! g7 `$ R( _} 
/ @# e0 o% V$ w. ` V: G/* clean up */
! W5 r# ^6 u" N1 B, t9 L+ A Mfree(arrow);
7 C& j% s% d: S+ P& d: @4 a4 `closegraph();
& H1 _$ O/ J2 x: X( G# ~return 0;
" d l( o3 Y! L5 F$ o% a4 b} 4 p$ W' ^2 A9 D& t D5 Z' r/ u' s
void draw_arrow(int x, int y)
' O, {! D; I1 Q0 q1 k{
4 L5 ^) m5 I* I- z/* draw an arrow on the screen */
& s0 F5 o& @& S8 Xmoveto(x, y); ! k$ P1 W% V8 i: D
linerel(4*ARROW_SIZE, 0); ; u, I" p; U7 j; X$ ^, _0 U5 D+ H
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE); 4 ]- i9 c7 E6 J+ W' J
linerel(0, 2*ARROW_SIZE);
; u4 A* |+ P5 v( Q3 L6 Flinerel(2*ARROW_SIZE, -1*ARROW_SIZE); * F# B5 Y( b9 L- `1 R7 O+ Y* n
}
+ q5 U$ @0 t+ v# W8 w1 S7 O0 k+ E, k6 S. @1 u! a6 h
( q- l: I4 Q/ E, s% h; J5 I
函数名: putpixel 7 ]7 u$ f( t6 J1 L3 P
功能: 在指定位置画一像素 1 b, _) o6 o- e- \
用法: void far putpixel (int x, int y, int pixelcolor); * @2 h8 T6 A4 T- C
程序例: 
+ l8 f1 q- j" X; {, ^#include <GRAPHICS.H>
- \) {; _ E7 T* Z9 H5 W#include <STDLIB.H>
" c) x- F# d# o1 t1 C6 v3 {#include <STDIO.H>/ x* b" Z3 V5 K% |, |
#include <CONIO.H>/ Z% h0 x- J+ K: y9 h* f
#include <DOS.H>$ d* E1 E) s5 p. a% [: ?: y
#define PIXEL_COUNT 1000 1 N9 n" r7 X& U0 B, r ^$ \
#define DELAY_TIME 100 /* in milliseconds */ 
; @% J) b! ^. [' v B5 e6 u0 tint main(void)
1 w$ h1 h0 B6 T4 n u4 {# t# R{
0 {* L. h3 _/ S) P/* request autodetection */
% s. H% D# R& [8 v- Zint gdriver = DETECT, gmode, errorcode;
* q) ?4 s6 g6 t Sint i, x, y, color, maxx, maxy, maxcolor, seed; 1 N' b W. H+ n$ f- {. B9 Q( t: x- J
/* initialize graphics and local variables */ / e. o2 L# m; Q- p, W5 J
initgraph(&gdriver, &gmode, ""); 
( o$ V6 N8 s' Y* w& P1 g! Y0 w/* read result of initialization */
0 a9 J& ^+ V+ b" H9 @1 r: q+ }errorcode = graphresult();
5 |8 C I9 B/ u: G8 }7 yif (errorcode != grOk) /* an error occurred */
5 j3 y8 N) S% c) g2 Y0 ?" j9 E5 a{ 3 B8 M& A v2 E+ m5 b; m
printf("Graphics error: %s\n", grapherrormsg(errorcode));
1 o* `7 @) {- b' S5 Cprintf("Press any key to halt:");
; g( O& C# K ?getch();
( G* Z N( ~& P! jexit(1); /* terminate with an error code */
2 ]0 X0 ~6 ^* z0 m} 6 t+ n9 C9 j- h& c0 ~6 D# l* X* p
maxx = getmaxx() + 1;
# d( u* R4 B9 P! [1 G( D, C; P5 o# r2 Qmaxy = getmaxy() + 1;
: q9 C. O; ~ M; g( k+ `maxcolor = getmaxcolor() + 1; 1 Y' c; V, E6 s6 j; P( Q+ b% \% _
while (!kbhit())
1 j) X# _$ P& k2 {{ 7 o- h0 m, U9 U) j* S9 ^' n/ b3 X- I
/* seed the random number generator */ % h3 N8 { w2 u' i( n8 A. ]( q
seed = random(32767); % e4 t/ Q: C; V
srand(seed);
. Z" C( {; I k! |9 ?for (i=0; i<PIXEL_COUNT; { : V! V; a0 d4 E2 l8 f
x = random(maxx); 5 Z* E4 f$ y7 g7 }+ S1 ?; f+ \' c
y = random(maxy);
3 K: E1 w9 O: O0 D, h- k/ _color = random(maxcolor); 6 Y8 L& W) U$ O5 e r
putpixel(x, y, color); ) O/ ]& m( H; e
} " R5 y7 N. T/ F1 D' y y* p# e
delay(DELAY_TIME); 8 B" m1 x1 ^9 f
srand(seed);
, i1 s/ X( E: c) ~7 |for (i=0; i<PIXEL_COUNT; {
" [2 j' i, O0 Z4 l- mx = random(maxx);
# W4 E* I; i! n, {5 Y# |, n1 p xy = random(maxy); 3 g1 T( l6 E7 t7 B
color = random(maxcolor);
/ \! V3 k4 y; p* \2 t( l# Jif (color == getpixel(x, y)) ) ^7 y% F# W# v& b& m% h
putpixel(x, y, 0);
! M6 Z" u# b. V+ s; G% a}
% b* c' S4 }# j/ m* o6 Q+ }# h% S} " | G% Q ^- U v0 P6 @
/* clean up */ $ D4 y8 X: k: B. x/ O" D: W* i7 q
getch();
+ j& v! A5 G/ I0 m. {closegraph(); 6 x0 ?1 |; J0 s, D
return 0;
( b4 ~" D) O7 F- M% i, C# m8 b} ) k4 q; T7 C! M0 y0 U. \7 p
3 f3 i6 x+ x" g) Z! x1 P

; ?6 E5 z# R' z4 g) u3 e函数名: puts 
# b' W! o& } E/ `功能: 送一字符串到流中
* Q+ x' _+ Z# \6 }& Q# u用法: int puts(char *string); " w: E8 L7 P0 A5 W
程序例: 
/ w0 ?7 M2 M' R9 H7 k#include <STDIO.H>
int main(void) 3 g+ s* _7 D% ?
{
! c3 R6 Q' e& T' e2 y; x: Ichar string[] = "This is an example output string\n"; 
+ _5 \* K$ P3 h q& |, Aputs(string);
, F z5 m; {* a8 z4 E- z; U% vreturn 0; + o. P3 `( o L& q
} ' S" y) C: s' ~! X" B- s

# ]) b& e1 E' I$ e* m" e
& O. y }) l& b* z$ D; S函数名: puttext 
' e8 a& V7 L5 k1 U5 P功能: 将文本从存储区拷贝到屏幕 8 _8 d% T& \8 c4 m$ H) m2 P2 g
用法: int puttext(int left, int top, int right, int bottom, void *source); $ q$ W% d. D( \9 n4 Z
程序例: 9 y$ `1 n$ m8 b, @* X# K+ Z$ U
#include <CONIO.H>4 c* E, m$ Z! b8 S7 B7 k3 S; A
int main(void) ' S u/ ]0 F( `2 D
{
0 ]4 d, V3 M, g4 R8 f2 S9 gchar buffer[512]; * { }0 q/ a: C7 q9 s' H2 J
/* put some text to the console */
- Q: ]1 _$ M1 s* m) jclrscr(); 7 x" G# i4 x4 `' C J3 E0 N6 k
gotoxy(20, 12); ( N% @- w. S0 o7 C
cprintf("This is a test. Press any key to continue ..."); / C+ n5 T& i- `1 ^" G2 d8 {' U
getch(); 
" Q3 ~# _$ Z' D/ q/ k; B/* grab screen contents */
gettext(20, 12, 36, 21,buffer);
 c2 U" J5 t( k. wclrscr(); 8 C9 I3 |: A+ [" M2 Q# M5 d, d, Z* l' a
/* put selected characters back to the screen */
7 f2 k }. _3 H2 igotoxy(20, 12);
: y, l. H1 p$ ^# Xputtext(20, 12, 36, 21, buffer); 6 \7 L6 X- V( K3 I3 G$ \' R! U
getch(); $ j/ P4 e8 M- n: h8 E1 w
return 0; 4 d; C: n. o& Z# b( u
} 9 R% m5 Y# [) f6 {
2 d' x2 }7 D8 f& B. w
8 l3 T5 w% ?7 F7 W5 r
函数名: putw 7 X7 F4 D: o( p+ Y( U5 ?
功能: 把一字符或字送到流中 : b2 Y7 e, \5 Z5 N% r
用法: int putw(int w, FILE *stream); c( t0 x: `. W! g+ i8 ^
程序例: 
$ ~1 A6 [0 U0 k#include <STDIO.H>0 B( p% W, {5 R+ w( P6 O# V! X
#include <STDLIB.H>
& q; [" |4 I9 D: B#define FNAME "test.$$$" 
& |7 D6 u/ [$ p y, O+ L6 w' cint main(void)
{
% s) G2 x# |! `9 ?0 GFILE *fp; 1 \) z7 i2 J* e. p% Q
int word; 
5 Y2 V7 i* ^0 Y; L* o/* place the word in a file */
4 {7 S9 V M3 z# ~, e, _! Efp = fopen(FNAME, "wb"); : r" X# \$ {& D. t v, n
if (fp == NULL)
4 ~& B! f9 N1 r" W3 r4 T{
* l- N1 Z6 q4 j2 k4 M! Tprintf("Error opening file %s\n", FNAME); : b( S6 w. ^& R0 A
exit(1);
- T9 L6 q; K# o} 
" W# h4 Z0 ?# `2 _/ y) E* [word = 94; % V. F$ R5 k, z2 M+ V9 z
putw(word,fp); ! C3 J/ J) G/ k; O) a8 L- c
if (ferror(fp)) 0 D3 K. j0 f2 m' }4 z
printf("Error writing to file\n");
, d9 ]! _) O) E2 G1 D* I9 Jelse
+ B4 h6 ^# j* l! h! O! m+ _% Aprintf("Successful write\n"); ! j( V7 O! k5 C4 L+ }) S
fclose(fp); " n; u0 I/ Y( T. ]+ L" T
/* reopen the file */ 3 Q* j# @( { e0 p5 M, B6 p
fp = fopen(FNAME, "rb");
3 c7 h0 O7 v' D1 d) ~; Mif (fp == NULL)
6 j( D H/ s; S+ ]3 B" x; l7 B{ 6 i. e+ X4 x: O, p
printf("Error opening file %s\n", FNAME);
1 h. L: g' p& Q* B0 f4 Wexit(1); $ U' g' W6 ^. y: A7 ~9 Y; b. Y
} $ Q) G! H7 k. o9 e% ?- n; J
/* extract the word */
. e7 J7 h% t0 Fword = getw(fp); 0 T, M$ t! E2 f" r/ c: a' a
if (ferror(fp))
; i$ o( r7 J: dprintf("Error reading file\n");
* A- `5 k% P$ f$ H5 J$ qelse
/ w) }4 K8 u8 ^: ~7 |printf("Successful read: word = %d\n", word); . w- f& G8 O0 B Q! ?: a' w9 R
/* clean up */ ) d" g f* {& L; O1 S) V/ ~
fclose(fp);
" r1 B4 s# D2 a I7 qunlink(FNAME); + ~2 a& l8 K, Q
return 0; 2 V. v" E s9 [' `: L
}