查看: 2735|回复: 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) & z( ^) w1 m2 K5 V0 \6 @
putc(msg[i++], stdout);
: o$ P5 B1 E2 r8 C4 freturn 0;
; {+ [5 G4 i) i* a$ i( _4 P}
7 `# w/ B* Z) U2 V6 h. @, y
; l8 t. P! c1 y0 U D% m# l* d. ]/ w2 t4 P, H+ B6 u
函数名: putch . z7 l% b0 _: _) B/ N- J
功能: 输出字符到控制台
8 @& b+ I8 G) V, A用法: int putch(int ch);
% D0 K" @1 c5 T7 K* l- L程序例: 
4 }$ `6 w+ w9 w: e9 q% Z#include <STDIO.H>
" r# M4 y2 I6 S0 E# S# Q$ d#include <CONIO.H>
# j4 P! L% ] Y& R+ ?int main(void) 7 k' V. R! H" w4 @( V1 t
{
# r- l9 o- P' Achar ch = 0; 5 e$ E. R9 z% v7 [$ {6 y
printf("Input a string:");
9 z" r3 t/ `. h; q2 awhile ((ch != '\r'))
( h, r# \- q5 |{ . F: F1 S- C/ j4 H- K4 g+ [
ch = getch(); 5 g* B# k0 _- a T! ~* H3 Y
putch(ch);
* [4 H# C4 y( ?}
* @9 x8 g3 D5 d; creturn 0;
2 [! d6 [0 Z6 d& @0 l8 |, k}
3 ^2 ~! `5 n4 l+ C& U& Z+ D; |( }6 y& H

9 h5 T4 N- C9 N. Q函数名: putchar 
6 p1 s# T, @7 v* b& |' r& \功能: 在stdout上输出字符 9 L3 V+ r% L' Y; d/ i
用法: int putchar(int ch); : V: s7 k8 W4 a+ b4 D# c
程序例: ! l' Z3 X5 Q: Q: g; ?( X
#include <STDIO.H>6 b. E2 Q* v Y" O9 P4 |% ~
/* define some box-drawing characters */
- h! y" h* ^' F; b8 |* S#define LEFT_TOP 0xDA
1 f! W0 I: v6 m# F5 u b& E#define RIGHT_TOP 0xBF 5 t+ Y# e: k& ^
#define HORIZ 0xC4
) m8 E* d' f$ L8 Q5 N#define VERT 0xB3
$ b7 z4 H1 \$ Q. }, P' Y$ I#define LEFT_BOT 0xC0
3 U1 T/ ~3 e) I#define RIGHT_BOT 0xD9 
) D9 O; e1 `% D$ z* o) d l- pint main(void)
 B6 P0 [: \4 s, _; `) ~% n{
$ z/ t$ S; X) t1 l* ~+ U; _char i, j; 
- F! S t- F9 A/* draw the top of the box */
7 [- T: e; r1 s1 {8 n& u! c* a. j- |putchar(LEFT_TOP);
, ?8 }! c" n* a' Ufor (i=0; i<10; i++) - t7 A" f& j7 Z
putchar(HORIZ); 5 M+ D/ R. ^0 y2 g; _- K+ T
putchar(RIGHT_TOP);
+ m" F* ]/ A8 J* r2 hputchar('\n'); 
& U4 s6 ]" e' d$ C/* draw the middle */ 5 `$ k: w3 A1 x6 Z; z$ B( Q
for (i=0; i<4; i++)
/ X: T* p& i1 n) y4 B; }/ b' l0 b{
8 w+ e3 H1 h7 _) J: _( E- bputchar(VERT);
' g& o- M- R- W# a6 g9 v$ {1 |for (j=0; j<10; j++)
) o# s0 J1 b* A$ P6 xputchar(' ');
2 s" b+ g; h7 |: j4 h5 bputchar(VERT);
$ b/ H% t' _3 A2 ?& Aputchar('\n'); & n6 W% O; S4 I! F( Z" L$ o1 A
} 2 ^9 u% j; ~) Q+ S$ T
/* draw the bottom */
! r+ |$ Z4 W( N) M8 w! ~0 I; Bputchar(LEFT_BOT);
' i1 p6 _+ X0 z1 X( X) ~/ A/ ]# ifor (i=0; i<10; i++) R# |& Q4 v; a" R
putchar(HORIZ);
6 n2 N. H8 L* H A- sputchar(RIGHT_BOT); 1 N: H, L! |' t
putchar('\n'); o; p2 `3 Z& F/ B
return 0; 8 F8 n* t" s/ M/ a) u' L/ S8 r
} 9 C. Y5 H$ g t4 A# M" [

+ C& o1 L* l! O1 U' E! X8 \; X: E# a" F
函数名: putenv 
! } b" V! ^( P1 g. t: o功能: 把字符串加到当前环境中
- D9 q8 \9 L% m) X- ^3 f: ], w+ v8 c- v用法: int putenv(char *envvar);
7 p8 s' t% U' k2 U程序例: " u* V5 R% t4 O" K8 r9 {0 [
#include <STDIO.H>
. r. ~& ~& o, k+ v#include <STDLIB.H>
- l; c3 {+ s/ c. U* W/ H: _#include <ALLOC.H>5 d7 G1 k C6 ^- J) s1 a
#include <STRING.H>: L8 x; T) `2 t
#include <DOS.H>
* E- O8 ^. U8 aint main(void)
+ S* P: U; \. Z+ V) ~4 X{ 3 Q( n/ y; T4 O4 }% E1 t
char *path, *ptr;
# o9 @+ |7 ]: x/ w0 uint i = 0; 
2 C2 f |7 @% T- a. B9 L/* get the current path environment */ * N/ q$ E& v2 `$ o1 j2 R6 g
ptr = getenv("PATH"); }7 Q) j6 z" P P& P( H5 l
/* set up new path */
& e/ q! {, w7 A4 Q$ l# Kpath = malloc(strlen(ptr)+15);
. Y2 g, i9 V& a$ O) P/ astrcpy(path,"PATH="); 4 V; [" G4 G( z
strcat(path,ptr);
- |" D7 q) i* G$ X: ^strcat(path,";c:\\temp"); - O: K* ]4 q# T F7 n) u. c9 e
/* replace the current path and display current environment */ / d* e6 Q9 x, D1 N" y2 R
putenv(path);
5 O* k/ w( S# _, ]. \/ J( f, twhile (environ)
5 D1 \( f+ _5 G4 `+ c# wprintf("%s\n",environ[i++]); 
7 h0 j3 N% t0 b: [return 0; ! r. e `, @7 `
} ! ]5 o! c6 X2 r7 l% a; F4 b
( Q' U" z, O2 q$ l: E
 r& [6 V) L- ?7 V8 r
函数名: putimage
6 H; \5 i! e7 e- J' g2 p2 k9 ?功能: 在屏幕上输出一个位图 : e) B; D! g; f) \" h( V6 ]
用法: void far putimage(int x, int y, void far *bitmap, int op); 8 P4 D! n, |- W! t2 ~+ D
程序例: z2 I* i0 q2 E+ X3 v* \5 E! I
#include <GRAPHICS.H>
$ \( G- b7 x0 Y4 e6 R6 x#include <STDLIB.H>6 O. _% H% U6 j! X
#include <STDIO.H>" m" u- a4 |3 r' ]1 K0 s
#include <CONIO.H>
/ H3 F* {$ r3 O$ [$ u% z#define ARROW_SIZE 10 
" x) w/ |% c: B3 b) W! U: D4 Svoid draw_arrow(int x, int y); 4 { i4 H" q% t
int main(void)
% B2 C- n# Q c: v4 U; A$ i{ . o0 H; P1 E6 ?% ?) l& |
/* request autodetection */
& [6 e2 U% A3 S6 N9 i% Hint gdriver = DETECT, gmode, errorcode;
, B; b0 y# \+ M) l4 H5 G5 r2 Svoid *arrow; 4 v) I% T: v$ F+ D7 a9 I
int x, y, maxx; 4 a. Y* @8 s* [7 V0 g
unsigned int size; 
: `/ p' C1 t; G1 R% ?) N* P% J5 x/* initialize graphics and local variables */
/ a0 u |" C) ^3 j2 `; b+ k( Minitgraph(&gdriver, &gmode, ""); % E& u! V b H: A% B5 q
/* read result of initialization */ ' [7 `. e1 w0 Q
errorcode = graphresult(); 0 a, z1 I, n6 ? R c( Q
if (errorcode != grOk) /* an error occurred */ * d5 m% K+ N" D C
{ 9 Y; O1 K" P+ D, y1 _$ w ]/ ?" M& C
printf("Graphics error: %s\n", grapherrormsg(errorcode));
 n! y: |' A* w$ J5 Gprintf("Press any key to halt:");
- D1 Q% g9 I* }+ F/ r- }getch(); * ?9 P* [4 x; C- z8 }
exit(1); /* terminate with an error code */ - k* v$ j' f& Q$ J$ o0 ~3 `& t
} 
. ?6 ?; |( x! l. C6 f& Wmaxx = getmaxx(); 5 {' o3 |2 h% H5 Q( \. Z
x = 0; ! Q) ?8 ]0 O7 b9 Q' C9 ?
y = getmaxy() / 2; 
2 m% t& v1 X8 Y7 u i1 k# `8 X$ b/* draw the image to be grabbed */
3 h5 x9 J5 ~& t# ^draw_arrow(x, y); / p: \8 o2 R% M- E5 M! ]% F
/* calculate the size of the image */ 9 |# l3 f0 g) w) g M! Q
size = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); " {: A3 h t+ \. q: O( z$ D6 p
/* allocate memory to hold the image */ 4 h) `2 i& }4 G9 \, [
arrow = malloc(size); 
 c) j7 k$ l0 q' D& m/* grab the image */
* x }5 [# p4 I6 [+ s e3 t( {getimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); . q; R8 D4 U! s. I
/* repeat until a key is pressed */ ' j7 B8 S9 O7 n8 C3 x/ I
while (!kbhit()) . u( n9 [0 Q( O# j8 v$ a- G2 }
{ . e- k$ e: P, C# @* e- _- x
/* erase old image */
7 ~& l# l! h9 x; \# L' m( Bputimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 3 h6 \" x9 [# a# L4 Y
x += ARROW_SIZE; ' Y+ j/ ^( H( l' g, P6 c) K
if (x >= maxx)
8 e% j+ \/ J) gx = 0; 
& p s& k# d ?- G- c/* plot new image */
' P6 L8 A/ M3 v a) B& k& w% Qputimage(x, y-ARROW_SIZE, arrow, XOR_PUT);
$ m; ~; A: U! P1 n8 r} & ^3 {+ p. p1 _: U+ m' o
/* clean up */ " @! J/ K" p: Y0 g8 e: O$ _: H, b
free(arrow);
4 J. g& e4 l4 iclosegraph(); 9 ?- K0 D+ j6 R; B# T0 E/ t
return 0; ) r* D: m2 s" N2 q: {, O: q! F
} 
( ?& O4 T6 d4 d% ?2 ?void draw_arrow(int x, int y)
, W- w$ @# A( ?& q* T{
* i# L% Z8 b V0 l* @8 K/* draw an arrow on the screen */ . |1 z$ R* X+ @# j; w
moveto(x, y);
' f! D" \) H6 c+ C- c6 s) ulinerel(4*ARROW_SIZE, 0);
3 x) _ }- Y$ k$ |1 m! g1 Jlinerel(-2*ARROW_SIZE, -1*ARROW_SIZE);
, g E5 b* ?7 Glinerel(0, 2*ARROW_SIZE); 3 j& u# u; s7 D' R
linerel(2*ARROW_SIZE, -1*ARROW_SIZE);
, Q! N% e" E. `( l} 9 W" A) O& H4 G% ]( {

5 G& O; o( N! J1 {) W9 f2 L/ J( s% l; L$ A; L
函数名: putpixel 
! s% f( l$ k5 A; G9 _! \* P7 P1 l功能: 在指定位置画一像素 0 ?# P9 R' M$ w
用法: void far putpixel (int x, int y, int pixelcolor);
2 A5 g) a4 F# H% \: K7 ~程序例: 
! X( \' ]( O+ F! Y1 y9 H( [#include <GRAPHICS.H>6 i, I' V0 R/ P1 B
#include <STDLIB.H>9 p' X# [+ Q# _0 [
#include <STDIO.H>. \' }6 Q, V! `& `) l
#include <CONIO.H># t0 @! F- ?0 d' v
#include <DOS.H>/ k# B( Q6 x, g9 ~3 `
#define PIXEL_COUNT 1000
1 D0 P" F( c9 K3 ^: g8 s#define DELAY_TIME 100 /* in milliseconds */ * G% ~8 U c% y! Q
int main(void)
0 r3 g3 K( W+ C3 ~; `' E. L- {' P{ ; B1 g4 J& c* i9 p8 q- ]# R
/* request autodetection */ $ @- R5 W, Y: w6 O0 x) N
int gdriver = DETECT, gmode, errorcode;
2 x+ v+ ?; R [6 Z) Wint i, x, y, color, maxx, maxy, maxcolor, seed; 
7 [; L! w! L. j& M7 x" Q5 ^/* initialize graphics and local variables */ ( q0 q1 O" X/ W1 \4 B8 Y1 s, l
initgraph(&gdriver, &gmode, ""); $ y. Y ^6 k4 Z3 a* w, ^) J& m
/* read result of initialization */ 1 ], Q; q8 _& O* s0 _+ q% C
errorcode = graphresult(); . y( r) V7 S$ k# p: U+ L0 Y
if (errorcode != grOk) /* an error occurred */
1 Y% t9 I6 s0 C2 [4 ]# h4 H{
8 a: Q Y' ]) s" [ k' \. O5 p& Fprintf("Graphics error: %s\n", grapherrormsg(errorcode)); % B" }0 W- }* k3 ^
printf("Press any key to halt:"); # k( @0 B) u, A" {6 F
getch(); " |/ ]. a/ R" g
exit(1); /* terminate with an error code */
# K0 g) j. M0 A} . g8 Y% X' i, W
maxx = getmaxx() + 1; / }0 w' L; } A
maxy = getmaxy() + 1;
* B9 b( j! P/ D4 ?maxcolor = getmaxcolor() + 1; 
& \' N8 m' i5 ~# K" J/ Dwhile (!kbhit()) ! i4 {& @/ y9 U3 M6 } U$ S
{ / m- G6 | Z0 j6 \/ r1 Q
/* seed the random number generator */
& C6 |4 \% H% j7 A# o# p7 H8 _9 Xseed = random(32767); ) m2 L5 I) ]5 U( [
srand(seed);
( r2 m0 Z# V* f( Ofor (i=0; i<PIXEL_COUNT; {
8 ~# p. I" ~* r/ N* Mx = random(maxx); ( C1 H+ J, O# A
y = random(maxy); 4 W% x5 i! W, ?/ p; Q
color = random(maxcolor); 3 H, S, h- G: }3 J
putpixel(x, y, color);
! e; Q; }7 z- d4 H0 M! C; Y4 s3 P: N} " R5 c2 U) Q# G! t: h7 G
delay(DELAY_TIME); 0 S$ {3 H2 `# N) Q
srand(seed);
$ j; E9 u' F# ]7 ]for (i=0; i<PIXEL_COUNT; { / I) \- \+ R7 h2 c; ], I [
x = random(maxx); * G7 A( B U0 D% L! n3 s
y = random(maxy);
7 o) e4 a5 Y) Lcolor = random(maxcolor);
 x& j) J0 U% j! @6 z8 Cif (color == getpixel(x, y))
5 b+ e4 T) t7 b8 Y6 }( Q0 a2 }putpixel(x, y, 0); . `/ k9 Y8 L) L) G2 `/ g
} ( O8 V* F' x, l1 t$ f5 l. M) f
} : n+ L* ]7 _* C, U1 d
/* clean up */
7 _* m) h% z: V! j) L. \getch();
. l5 E9 A; U! bclosegraph();
. }* Q: H: f6 U& [3 l- xreturn 0;
9 k7 t8 I5 C" S$ `5 ^: ]' ]! z6 A9 V}
) A7 O, r" n, t5 p& e4 X- V+ v9 d- f& G Q1 V

* ?2 h5 b# t4 W函数名: puts 
/ }4 A+ |4 Z' e$ J+ \功能: 送一字符串到流中 * U* ~* O- F, y' f m
用法: int puts(char *string); 6 @' Q- B: ?3 d5 ?
程序例: 0 E7 H) H5 G0 d- ^/ ~. N( {
#include <STDIO.H>/ R8 M2 ?" {$ z( x; U. g8 {6 |
int main(void)
" P$ ^0 M- i5 [% o/ i3 u+ E5 W{
) T/ x! w D; Lchar string[] = "This is an example output string\n"; . Z5 Y$ z: B) t$ ?5 T
puts(string); / P* ]6 x* D3 v* v! p
return 0; - O9 X/ y+ V- Q0 a4 N, f
} 9 F6 `/ U) E! Z) [
- |9 `' g; f3 q/ V3 X3 b

9 z3 h& j, \' v# f# V函数名: puttext 
2 ?( |& Z/ @. p! D9 K9 O" j$ S5 r1 J5 W功能: 将文本从存储区拷贝到屏幕 ( K4 C+ N- J, N7 _
用法: int puttext(int left, int top, int right, int bottom, void *source);
; W0 u% `; a/ d# `程序例: 
9 Z/ ~7 l& d" P1 j* v#include <CONIO.H>5 F7 m9 g0 M) z6 M' }( _, }
int main(void) & ?' L, B# w2 S4 P( N' |# Q
{
# h" F2 X7 l$ F }# q! gchar buffer[512]; 
& p2 X6 x( j& k7 G' Q, Y/* put some text to the console */
) z4 ]. P! ^5 l4 `( t# U3 P* Oclrscr();
9 }( c' @& j8 }; {8 k! C/ I: J! ]& fgotoxy(20, 12);
8 h' H, m5 y p2 M2 ]cprintf("This is a test. Press any key to continue ..."); & A8 J( m# @. x
getch(); 
+ k) t u* F7 c! g( d3 e8 i/* grab screen contents */
* `6 U$ ?9 @) ?7 y9 ]; m% i, Igettext(20, 12, 36, 21,buffer);
; k! [$ Q- ~- Y. m$ lclrscr(); 
* _# U. B2 |, \9 Q/ p* d/* put selected characters back to the screen */ 2 [1 h) G+ r. s4 }* Z* Q
gotoxy(20, 12); ) Q& W# L4 G$ N$ ~* E$ R
puttext(20, 12, 36, 21, buffer); + S9 G/ P5 ]9 G' c7 M; m
getch(); , S- s. l7 w0 P/ C% o
return 0;
, o" v9 d( T0 p1 n) B' G# a}
0 U! j; x9 {" G. p* M5 g5 k
# o1 c q0 i$ O. Q/ {: s7 w) m: o) x$ c7 t( ?* E
函数名: putw : ]: P2 _1 F! X
功能: 把一字符或字送到流中
- @/ K3 S& O9 s0 U( |$ }- p用法: int putw(int w, FILE *stream); 1 h9 a7 }( k" G. F& M: }
程序例: - B5 S, X4 h: T- f2 c0 S$ {% q
#include <STDIO.H>$ F, i- ]3 f3 f+ D; m' `
#include <STDLIB.H>) g: e) R; M4 n3 N& G9 R
#define FNAME "test.$$$" 
( j9 U" F% ^/ k! Gint main(void) - t: I% V, ^* s' L: Q( N u2 `
{ # I! D: P1 O8 s7 v4 M) I4 Y
FILE *fp; 7 e3 \0 Q" [/ C z6 H; l& O
int word; 5 N% w3 L! y; |2 R4 y
/* place the word in a file */
3 E# T! e# m. Rfp = fopen(FNAME, "wb"); ' N; K4 y( B) Y R, ]8 k
if (fp == NULL) 3 x' c; N8 h+ s
{ 2 ~+ k1 |0 d0 X# P4 f
printf("Error opening file %s\n", FNAME); ( @$ ?$ M( e k2 ~8 m
exit(1);
7 m" k& m! V! n; k$ [} ) q2 E4 G3 P% S$ D F
word = 94;
) p6 F1 `6 O0 i# ]; U% e$ B+ iputw(word,fp);
8 ~( Z+ g) N! V- m3 N) D( x1 n) G ]if (ferror(fp))
; b, B* N8 |5 U: Aprintf("Error writing to file\n"); ! U# {6 W6 P3 E( v* k+ p* z
else
1 a! S8 g* p' H( r/ a+ U! Dprintf("Successful write\n"); 8 B' m- c! m1 F8 p
fclose(fp); 8 \9 x* R6 [& U6 G) W* h
/* reopen the file */ 0 l" N& T. d$ |$ u+ I" |
fp = fopen(FNAME, "rb"); ) I% u, [* p$ ^7 r- N8 z
if (fp == NULL) ; U) `( H& e: W
{
$ k+ q+ O4 K; B3 z- sprintf("Error opening file %s\n", FNAME);
2 H) ]' _# T5 J- c- Bexit(1);
, ^" q# A+ q1 R" J$ @ q$ [} 
+ l5 j, I/ x0 e+ y# w/* extract the word */ 0 J1 `3 Y' u. i5 ^
word = getw(fp);
0 v* e4 r4 R1 e. q' |: N* j6 I5 ?if (ferror(fp))
% @: J- z* A' g ~7 Tprintf("Error reading file\n"); " X5 A& J+ C T4 f& ]8 M0 ~
else
. N3 Q) E+ K Fprintf("Successful read: word = %d\n", word); 
1 V2 S& c d! H' @6 P/* clean up */ . p( s: g6 L; P+ l2 F+ O
fclose(fp);
6 j) @! u7 d0 G. m- t# Cunlink(FNAME); ! E. r! T U5 d+ J8 a
return 0; % U! W8 m. v2 F$ f8 Z9 k5 M$ @
}