查看: 2682|回复: 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) : H3 F6 b5 ]* N# H/ m! l* I; H; J
putc(msg[i++], stdout); u5 [/ i! l# [& l# | z* `
return 0; & J& A; w$ W" L- t2 p
}
; W t/ w1 L4 V; l4 \/ T/ [- V) o' k

; P0 Z# U4 f v* o) N函数名: putch 
, o* C% R2 C3 ~. O5 k1 g5 F* [功能: 输出字符到控制台 0 ?+ F; u) p/ d6 z2 n2 f
用法: int putch(int ch);
6 b1 a( Y1 r6 V. T' }6 R6 q程序例: 
7 A4 D5 S3 F8 X* Q#include <STDIO.H>% ~% `, I( ^ x8 ~. ]7 {
#include <CONIO.H>
) v8 x) o0 x$ nint main(void) & u s V4 s% S* P& o5 T
{ ) T" ]( G7 Q; i0 i; g! w
char ch = 0; 
1 q2 v- B2 C sprintf("Input a string:");
$ j) m6 R) C3 t6 ^6 j* ywhile ((ch != '\r')) ! @4 T8 @2 r7 `& }2 `' P
{ 8 a2 o/ J4 P8 c \
ch = getch();
, @% @) h. n+ U+ U: nputch(ch); 2 a5 [- r4 u/ L
} 6 U& b8 R+ S& B/ ]6 ]
return 0;
3 C" @3 t& V2 ]8 v( U" O}
/ q* t* W# g) P m' U7 h+ a/ O! V( Q) \1 t! j% {1 Y

1 r( i( W: a( ~0 X: _! O# `函数名: putchar 6 ?# q1 Z# Q7 d" t _$ z( v
功能: 在stdout上输出字符
0 B1 q" L4 I. ^! N用法: int putchar(int ch); ; E4 |: l2 G' u) D4 O) @
程序例: 
4 m; ^: e5 F% J4 O) y/ C9 j#include <STDIO.H>
: o# G$ d. F) g: x7 K# `/* define some box-drawing characters */
4 h2 M' n- x- h' y- m& w$ l F. o#define LEFT_TOP 0xDA
3 r/ Y1 E* K. X+ V U8 \#define RIGHT_TOP 0xBF
/ e& I/ y* K$ O8 B# ]$ M# O& Q0 Y9 ^#define HORIZ 0xC4
* u* [) J1 [$ I) }+ ]$ R9 u#define VERT 0xB3 1 ^/ ]5 K' C/ C; r* q
#define LEFT_BOT 0xC0 # b1 L+ a1 n% @
#define RIGHT_BOT 0xD9 
- A5 g ~1 _% v6 Kint main(void) % t5 u- a$ C9 ^2 [
{ 5 o4 e( G. F4 j _2 b
char i, j; 
4 x( r) q' y3 x k `7 M% @: U/* draw the top of the box */ % u7 L# P9 v4 I' H h
putchar(LEFT_TOP);
6 v8 a( d" s$ c( t; ]0 Efor (i=0; i<10; i++)
. K) h' h( w$ @putchar(HORIZ);
; m( Q; i- c2 ^- ^1 W' \- j" Jputchar(RIGHT_TOP);
/ [1 v) |8 Z0 I2 Eputchar('\n'); & `/ ?' p/ {: [. T0 j
/* draw the middle */ ( w) R" n$ j; t! Z3 w9 m! F
for (i=0; i<4; i++) 7 @" t% u# D- `9 @
{ / k! K+ {4 S7 |8 D7 i1 R3 [
putchar(VERT);
 F) z+ \- b, z: t+ d0 `for (j=0; j<10; j++) ) T' m0 ]& {* S Y& u8 _" u
putchar(' '); 7 u) [% {% o9 W
putchar(VERT); 5 ?7 b1 s: O' v/ X4 b7 n
putchar('\n');
; o* r6 h( @2 p} 
7 o# |, H w- j4 W" I( i/* draw the bottom */ : I% |' u; c9 Y- [8 Z% Q
putchar(LEFT_BOT);
: s% a g7 f% Tfor (i=0; i<10; i++) " Q& l% v$ f' \$ Z0 R9 V( K' B, K
putchar(HORIZ); ( X1 C- r9 u4 C3 c5 r/ r
putchar(RIGHT_BOT);
) w( D( Y0 z( }; {putchar('\n'); 
( W; s6 h1 f* A4 g7 Zreturn 0;
% h- K1 `# @% L$ u9 b) d}
( \% O( N9 E! r- Z' K. g! W$ N! I) s" _
0 _; L8 I- j) o: h$ g- K4 P, _8 x1 J: M- A0 O, Z2 G; A. a
函数名: putenv ) _- \1 o/ W R- D4 I4 K u1 ?9 s
功能: 把字符串加到当前环境中
/ b5 f1 G- j8 ?+ c4 H' R用法: int putenv(char *envvar); 9 {; ^% f- |( b/ c# p
程序例: 
) j. ~ t) [; t" M2 u$ p0 V#include <STDIO.H>
. i9 V* e; e3 |% ?' q#include <STDLIB.H>
( j1 a1 _ f4 d2 u0 e+ [6 G#include <ALLOC.H>
) W, T; S' |! Y# K: K#include <STRING.H>
6 ?. L! c$ Q3 q#include <DOS.H>. B* t9 s+ I6 P% f, d7 ~2 Y
int main(void) , r4 B8 \1 W4 v9 T# s/ ]0 `3 L
{
6 d7 i4 m# D( schar *path, *ptr; ' i& E H9 K# ] T4 K1 v8 s
int i = 0; 
$ X3 x" O2 i3 v/* get the current path environment */
/ u( b9 s. [# Q0 h4 Zptr = getenv("PATH"); . \: d& Q4 z% \) Z. [1 J: D
/* set up new path */ ' r' n2 Z( l2 N% K! [
path = malloc(strlen(ptr)+15); / z" i4 C% P% h4 T
strcpy(path,"PATH=");
) p; Q/ X" p- R, t5 g$ J. b4 vstrcat(path,ptr); 3 |7 q! Y2 ?: `: o. j* f
strcat(path,";c:\\temp"); 
( |0 K* X# M" Y t/* replace the current path and display current environment */
- l9 |( K7 ]3 L, Z7 c2 \' Jputenv(path); 8 W! C3 X1 w" \
while (environ) ! l: r A- U) h' k6 G
printf("%s\n",environ[i++]); 
" N! @1 h' }/ v* l# P# Y$ sreturn 0; 9 t9 @# B6 ^; @( h
} 8 `, Z' a6 V+ y6 k

/ ^. _6 e; `( V, Z- F% S
$ |( _3 R3 T4 \7 F6 u函数名: putimage
! @+ P+ e- t ^( o6 f$ y$ D功能: 在屏幕上输出一个位图 # |3 A& s2 ]) @6 {! C' H0 N5 _% j
用法: void far putimage(int x, int y, void far *bitmap, int op);
9 a' i4 p4 V" C程序例: 
( D5 d' c3 O& \0 R. S#include <GRAPHICS.H>
! P. C0 @3 x5 `5 P4 h#include <STDLIB.H>
& _% Z* e* L: y) }) s#include <STDIO.H>
# D& W& d1 V9 v/ z K#include <CONIO.H>' N8 u9 ^( t* I
#define ARROW_SIZE 10 ) J3 `( S/ D$ j0 d4 A: ^
void draw_arrow(int x, int y); c# E- h3 d& B6 ?$ v3 F
int main(void) 8 E4 u: Z; f6 u# y3 u* u
{ 3 p0 t) O d+ ^0 w
/* request autodetection */ , z: ]7 k# b# N# Z8 q+ z. ?0 G
int gdriver = DETECT, gmode, errorcode;
( H8 t& n5 ]" N' lvoid *arrow;
7 K9 F( m+ r: ?* @7 ?int x, y, maxx;
+ q' n8 r. N$ b7 A* ?# Vunsigned int size; 7 o+ F1 v/ C4 s, d C
/* initialize graphics and local variables */ ( K% s) k! \# @0 Q# ]
initgraph(&gdriver, &gmode, ""); 
# i& W# Q8 b" l2 M0 e/* read result of initialization */ ) G: c# J5 E A; w# o8 x& [ N
errorcode = graphresult(); % D: Z; t# ^2 j9 `1 A! ?
if (errorcode != grOk) /* an error occurred */
) }- a+ l' F" H6 Z) u5 |' \{
3 _% ^9 Y' f; l. |" t. z/ xprintf("Graphics error: %s\n", grapherrormsg(errorcode));
0 W- ^* f$ P6 s2 O' `+ S' tprintf("Press any key to halt:"); 5 m i3 W2 G7 q$ f$ D- _
getch();
5 y, @- }# u9 D, o# Iexit(1); /* terminate with an error code */ 1 q7 B/ ]. }0 e* p( x" N( z3 t
} ) q3 F5 F% u3 Y. R
maxx = getmaxx(); 4 F3 E' }. {" J" T: v
x = 0;
5 o; E8 p/ j7 |8 ~: iy = getmaxy() / 2; + T8 j4 B* s [; {
/* draw the image to be grabbed */ ) D. a1 {6 {! e1 u/ F
draw_arrow(x, y); 
* ~, {6 [1 u) G ^/* calculate the size of the image */ 5 [6 w5 q; z) T- c$ E, t! i0 @' ~
size = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); 
1 G, \6 z7 \; X; Z; X* Z/* allocate memory to hold the image */ * V, Q* x/ S+ `
arrow = malloc(size); 
, M% d# N5 R& x, Q, t1 K/* grab the image */
8 U* }8 [$ `( W7 B* Vgetimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); 
& K4 ^4 f! m" C4 j/* repeat until a key is pressed */ ' A1 }$ u8 j9 {% p% }1 R
while (!kbhit()) $ T$ P. f1 d/ ^7 `
{ : w) Y1 t( c7 Q4 e- A6 l$ Q
/* erase old image */
6 F" k9 l5 Z9 n1 cputimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 
9 P8 N# f% h" x6 m" b9 rx += ARROW_SIZE; % p: M: k. e3 O9 V: ?
if (x >= maxx)
) b& i% B) X3 Gx = 0; 
7 ^ U+ F) h$ Q% G. ~! h% {/* plot new image */
, D; \! ~$ c2 p5 L, ~putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 4 P/ h7 ^- H& d) u& S/ A) {
} 
/ z N9 S% Q! X2 R# e9 W/* clean up */ & _% c! U+ w" E1 b) _5 \$ D) ~
free(arrow);
: E. J3 L0 P" `0 K0 [closegraph(); $ s7 }$ P( ]1 t0 Q% w
return 0; ) Z! r6 Y$ s* u$ `
} 8 `4 w: z2 E9 O! q
void draw_arrow(int x, int y)
6 h9 l6 w2 C1 f* v/ x{ 9 ?7 u; K# G! t# ~
/* draw an arrow on the screen */
' I8 j! y! X$ V0 P& s: Amoveto(x, y); " w, i, J+ w T6 }! A0 N
linerel(4*ARROW_SIZE, 0);
, v# ^8 z1 e) ~% B P4 R0 [linerel(-2*ARROW_SIZE, -1*ARROW_SIZE); + G, v$ Q' @: U" \. D) g( F
linerel(0, 2*ARROW_SIZE);
% I. ?+ h+ \8 ]3 @% qlinerel(2*ARROW_SIZE, -1*ARROW_SIZE); 5 f$ F$ N3 D: n- O3 W2 H5 T
}
9 [2 z0 d& k% ^6 k: J' H
* Y* k* o% X" g# x1 _7 t$ p, M( W4 l; l `1 F8 C+ j
函数名: putpixel 
- p0 E3 M5 u# \- [+ M" ?功能: 在指定位置画一像素
: `( m" q6 B0 V2 U. b$ A用法: void far putpixel (int x, int y, int pixelcolor); ) `. f8 @% w1 L" P; o2 v/ k
程序例: 3 C, I [( V( N2 v7 \
#include <GRAPHICS.H>
( s4 D7 k6 B: z8 G#include <STDLIB.H>
$ j3 } L# J4 w9 c/ }#include <STDIO.H> u% n, y& p- D( }) |8 q7 S! j
#include <CONIO.H>* S) R2 m+ V" X
#include <DOS.H>( L# b# M& m. ]% D, z' v
#define PIXEL_COUNT 1000
: s" o# V9 D# r# h/ y#define DELAY_TIME 100 /* in milliseconds */ 
2 m$ a" q. G' u" ]0 ~5 Z" Wint main(void) - K/ K* i3 W7 ], i% j) C1 ?. a6 P
{
, O k* H/ ~+ f3 v% t8 O/* request autodetection */
& D0 L% q- |+ S" lint gdriver = DETECT, gmode, errorcode;
" `9 z5 a: y6 \& @6 fint i, x, y, color, maxx, maxy, maxcolor, seed; / i0 R1 y( Q# d" L/ i
/* initialize graphics and local variables */ , I- [/ ~' n! i
initgraph(&gdriver, &gmode, ""); 
" Q5 d* |0 @7 h5 l0 w/ ?. b0 M/* read result of initialization */
; [) d2 J+ z! ]errorcode = graphresult(); 8 c: g. h# N7 p8 j4 @- ~! y
if (errorcode != grOk) /* an error occurred */
4 [. Q0 S* s) M( s! ^# _{ 8 x3 v' b) ?- m% b/ G
printf("Graphics error: %s\n", grapherrormsg(errorcode));
+ R# l9 e) T2 dprintf("Press any key to halt:"); ) y0 K; O4 I% `0 t
getch();
5 N7 s3 t F/ n! B! Sexit(1); /* terminate with an error code */
( E* C! b* u% b: E A} 
( i1 }5 E x) U' E. mmaxx = getmaxx() + 1;
/ O5 H A- J4 R$ f5 _1 C, kmaxy = getmaxy() + 1; / d5 j. A4 r9 `+ h
maxcolor = getmaxcolor() + 1; 
; m2 ^3 w) i) C: Q6 i4 c( F# }& w, Ewhile (!kbhit())
4 {& H. n; R3 S$ y{ ; b- y5 f, X% d1 Q8 {
/* seed the random number generator */
& P5 Q& v# d- pseed = random(32767); ( s" d: X# \( m5 {1 D/ h
srand(seed);
0 ~2 B! \$ s5 H* Y" ^1 \for (i=0; i<PIXEL_COUNT; { K# e0 ^( N- N- W4 _
x = random(maxx);
4 W" D0 l( x1 H: e* W L5 h% m5 ry = random(maxy);
* T1 d* ]" [) r3 u7 ?& Z. ycolor = random(maxcolor); ! I \- c: w9 q4 u4 ~0 y
putpixel(x, y, color); ' m5 }" x1 u. W3 Q
} ( {6 m* p0 d! j# C0 M
delay(DELAY_TIME);
8 f* l5 r+ |6 D9 S2 s9 w+ Esrand(seed); 3 G' T: \+ m* Z0 E4 [9 z
for (i=0; i<PIXEL_COUNT; {
$ L/ O$ V1 x1 @. w2 \8 d2 i7 `x = random(maxx); % p2 N$ Z5 `" \' l1 f
y = random(maxy); / z& F3 |0 Z0 z9 Z# k
color = random(maxcolor); 6 k) r. ]' L* c6 |; |. O/ {
if (color == getpixel(x, y))
. F1 a/ x( S! V5 N7 M" v7 Uputpixel(x, y, 0);
. e4 s, f& _' J+ z/ {}
% ] a4 z# @5 h1 w- T} 8 X3 P" B8 d& L/ A" q4 D
/* clean up */
6 w' `& W2 D: J7 ^" a; J8 Ngetch(); " d. @! C5 H3 \9 H
closegraph();
* s+ \! E) S# L% ~return 0; 0 s+ o3 Q% x6 I1 |0 h( o( }4 B
} $ E( _/ G2 e% k! F$ M
7 A0 J8 K% k. I* l
! G1 a2 u; R5 \: D/ i
函数名: puts 
/ O) H# i: l, ?# N6 [% |- a& j功能: 送一字符串到流中 " U( R4 l6 a w( q( R$ _
用法: int puts(char *string);
$ [- o5 C d- O I1 {% e程序例: 
 i4 P# S- h* l#include <STDIO.H>
" N/ x' k' P# D) N' L+ vint main(void) , E' N7 z" L% z1 ]
{
3 n( U) l7 U& P I7 ochar string[] = "This is an example output string\n"; 
puts(string); 1 e& n4 A- ]9 Q/ }& o6 L
return 0;
' @, I3 S4 _$ Y6 t2 G} 7 f8 D G/ V7 m4 `

' m6 o% h- R; _7 L
1 A8 u3 E# \0 S6 \函数名: puttext 
1 P$ Q! x# D( m/ O0 S' T" a( p功能: 将文本从存储区拷贝到屏幕
) X+ z( Y6 k l o用法: int puttext(int left, int top, int right, int bottom, void *source);
5 D8 C% b' P' k7 L1 s程序例: 
1 s, ]" H2 L' N) ?+ ^ l5 L#include <CONIO.H>
4 E4 F! ^* \$ D5 ?: Aint main(void) 4 }% R9 a3 o# T9 a
{
; T( d+ i# f8 \: d8 ^char buffer[512]; 
1 @, ^# \% M7 D- t& u/* put some text to the console */ ( ~8 D9 }* W" F M
clrscr(); + H$ o6 C9 [8 s
gotoxy(20, 12);
$ \+ k* v$ c. }- X* x s& U7 pcprintf("This is a test. Press any key to continue ..."); ! Q. n/ e6 ^9 b7 `3 a
getch(); 
: i! Y7 g3 m8 W+ h# a/* grab screen contents */ / j; k" \( _2 \! @6 m/ L
gettext(20, 12, 36, 21,buffer); 9 k X: N2 {3 X+ }) u T
clrscr(); 
7 ?2 F7 I6 \# S; M/* put selected characters back to the screen */ 3 A! p' G7 P0 b5 C$ g, l
gotoxy(20, 12);
4 ~: D d1 ?8 E! _- q2 gputtext(20, 12, 36, 21, buffer); ( X/ H' l; l7 Z$ A
getch(); 
& g/ |* e& [; Dreturn 0; & u' V, v, _+ F5 V6 L5 e/ l
}
% W/ e* C1 c3 q% w8 r }0 a+ ^+ b% G& Q% W

* \ X& H; Y1 Y2 U, V, _/ n函数名: putw ( n& R* P u+ f" S: K0 N/ M
功能: 把一字符或字送到流中 * a/ `8 u3 J( _+ G2 Y4 ?
用法: int putw(int w, FILE *stream); + O8 g9 J. N w# x8 S& ^. h
程序例: 
4 E' N# V0 v! N& d' p. G#include <STDIO.H>6 ~- x9 a1 \& L3 H4 n& x
#include <STDLIB.H>
8 R. K6 x8 C7 ]4 [1 b#define FNAME "test.$$$" 
 y* T" `. t J0 r) Iint main(void)
- o' c( \9 H6 D4 R$ w1 Y8 _{ + f m% M: q" S
FILE *fp; . E/ { z$ O. O
int word; 
6 Y% u( @6 c% [/* place the word in a file */ ! L3 {4 I4 Q: d' W, @
fp = fopen(FNAME, "wb");
$ d" G- j; }& p8 J9 Zif (fp == NULL)
/ Y' I; n7 l$ f$ _ ]{
 H1 B) \- q# x, }; uprintf("Error opening file %s\n", FNAME); & l+ W6 s. o/ W% r' A) F% b
exit(1);
- M W- ?: {. Q6 ~" }} 
9 p; f' }! D+ C4 e# Oword = 94; ' O. o; u! n3 z6 A1 _9 M6 j
putw(word,fp); ( ]2 c: K7 ?8 ]8 w r, d
if (ferror(fp))
& U7 @7 ~ j8 rprintf("Error writing to file\n"); * u6 [% ~& m! |5 `* U. k# r$ |
else $ Q- A& y# ?- |1 g6 `0 O
printf("Successful write\n");
9 m. M$ w4 n( f' ~( f' w: ^0 S$ gfclose(fp); * Z) ~1 |8 a' C- ?; w i
/* reopen the file */ ; Y9 w% r7 C0 i& {: |$ S9 Y. S1 @) `
fp = fopen(FNAME, "rb"); 4 k9 r* s# O: ^9 g; }( I
if (fp == NULL)
7 d; A! g+ G' \7 v$ u% e{ 9 s! T' _5 P5 A; B
printf("Error opening file %s\n", FNAME); - g1 G( j+ @$ N% z# \* W! ^- f
exit(1);
6 m+ V9 x$ v: n/ j} ! {. ?& A+ _5 ~1 e9 }' g" _# `5 l
/* extract the word */
& N( }2 T" t# C. L$ T, kword = getw(fp); 5 w2 \5 c0 k" T- Z
if (ferror(fp))
6 ?2 J' O0 X- g N3 P8 dprintf("Error reading file\n");
. G, ~: i, s9 q- l! |: ~3 Lelse # t; x4 M2 ]% f6 C6 ^7 y0 A O: p6 R" h
printf("Successful read: word = %d\n", word); 
8 L% b6 c! Z* i' u- j4 p' q- x/* clean up */ % \2 s& F6 Y4 [' u( D+ U
fclose(fp); 8 `- L: o" g: ^* ~% \5 s6 \; a
unlink(FNAME); 
return 0; - j" k8 z# j9 w1 C: A4 R
}