查看: 2782|回复: 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)
putc(msg[i++], stdout); % G* M0 p5 V2 l7 U
return 0;
1 n! r* z( h# F2 d8 E}
3 ^0 t. X) N; T& Z; d5 E9 l6 @6 F5 d9 ~6 p, f: Y
+ b* ~ i% n- g6 M2 _
函数名: putch 6 I$ U0 C2 y0 G& L$ r
功能: 输出字符到控制台
) u9 @4 g# w" E' N2 A用法: int putch(int ch); " W5 T' g* A; l6 ^
程序例: 
5 V# _- ]0 U# f* v) x+ h: I#include <STDIO.H>: h$ e3 S- k1 t0 r6 s4 {
#include <CONIO.H>/ ^" Y5 b5 M) H3 p8 {& q A1 A
int main(void) 7 F! Y# d, u# e; N3 E6 v/ v( B
{ ( p3 M# p; n. H" z$ T
char ch = 0; % i# |0 m- y" {9 X$ ^2 M" u" I6 h
printf("Input a string:"); ; T* v; i1 y0 J8 m; }; M
while ((ch != '\r')) 3 m, Z. B* I+ F5 F
{ ! {' Z5 ^/ q$ ^5 S
ch = getch(); % i4 P- } e+ E2 x) a# q# F, E9 |
putch(ch); # s* X' J: B; S: \4 K8 @& G
} & o* k0 E+ W! ]6 z |
return 0;
# Y& ?3 u1 T2 @& l! }7 S% k} % A$ c9 u; c" A) L! Z. U' o
: B! u( U4 z$ A% p+ L, x) W

0 f3 s4 Y! x8 f/ j$ a函数名: putchar 
 T- y k4 F$ A, i& O( d3 {功能: 在stdout上输出字符 ! |; F' I# [! m( x9 R! @
用法: int putchar(int ch);
: Q( N1 V: p6 l7 m! T程序例: + a+ l# q ? z: f5 i% F% c$ U
#include <STDIO.H>
1 ?3 K% |+ L: X% V2 o/* define some box-drawing characters */ 9 C* p& z! K; p8 \' A3 _( W* a( S" Z
#define LEFT_TOP 0xDA 1 e4 U7 l2 A" G7 o$ j" R
#define RIGHT_TOP 0xBF + c7 h$ r9 I7 Y0 _
#define HORIZ 0xC4 & Y% R2 i) P7 ^
#define VERT 0xB3
; L) O7 U! C2 p+ B4 }4 |#define LEFT_BOT 0xC0
- M& i: D' o+ O% t/ B1 ~& E#define RIGHT_BOT 0xD9 
, p) V- r# @: ?, H. z9 Rint main(void)
* S K/ I- R6 `, C) U{
! |4 A; U' h% u$ O- t; Vchar i, j; 
4 J& G! S6 x8 F7 V5 |/* draw the top of the box */ 5 |9 `/ I) V1 ^
putchar(LEFT_TOP);
$ C* X7 P- ~, Qfor (i=0; i<10; i++)
& e/ m: b4 Z5 _% m4 x+ Zputchar(HORIZ); 5 i1 H, i3 d1 U$ B$ C% t
putchar(RIGHT_TOP);
 p, Y R& x/ w6 g, yputchar('\n'); 
& C8 c0 b. W( Q9 h2 ?1 k- |/* draw the middle */ 4 k! l7 i# s* E' E# t
for (i=0; i<4; i++)
* W; _, e) M6 U6 Y$ t{
$ J: I0 B6 l) e E: W9 S" `. yputchar(VERT); 0 K h& s; U* Y0 h7 V
for (j=0; j<10; j++) . i0 Q" u) f% S4 Q# m
putchar(' '); " B9 }0 O. T) G9 P/ N6 X* j6 K
putchar(VERT); : A7 W" G) J) Q5 R8 T( M
putchar('\n');
6 n9 W5 u3 a7 H/ t( D0 p8 N} 
1 o! t/ L' M7 q# K9 N: f. {/* draw the bottom */ ) `- E+ e `& g" p
putchar(LEFT_BOT);
* l5 b6 o& y- R( ~2 Q4 ffor (i=0; i<10; i++)
7 u- K$ D3 O$ J+ R0 p9 \putchar(HORIZ);
8 j( o( V9 |8 Z0 ^6 Zputchar(RIGHT_BOT); - X% G4 X( T) P. B# d8 x
putchar('\n'); 0 \7 w: ~. l$ c7 _& F
return 0; . f% ]' `* O! k* V' A4 V5 z
} ( b$ t3 {9 ]1 q
# e/ J+ h' s$ y3 e# f
& M, m) h8 l+ ^- e# ]
函数名: putenv 
6 P" y8 A; N9 ?" C4 @) }- ~功能: 把字符串加到当前环境中 5 q3 D9 T. q" x
用法: int putenv(char *envvar);
6 K- ~# t; F" i1 b程序例: + f2 s( r7 f# b. }
#include <STDIO.H># R* i& U) k8 a1 p2 k
#include <STDLIB.H>
8 B/ o% K4 `" B/ S#include <ALLOC.H>
, _+ ]" |+ Q. \/ b+ L v' y4 Y2 p#include <STRING.H>
4 _+ v& R2 i& p: M#include <DOS.H># [" m! w2 D0 ?; H; Z' X) G
int main(void) 8 g1 v* S9 q+ W0 G1 h% e
{ j+ O5 ?) W0 k$ O/ K
char *path, *ptr;
9 f8 c; m' a6 A: v( Y, Z# gint i = 0; " ?" C$ Y+ S' h6 a3 g% @) d, S' z
/* get the current path environment */ & K$ S5 \2 Q5 L
ptr = getenv("PATH"); : b& k; J; d6 Y; y# W% Q/ U( E
/* set up new path */
+ {( {% ?$ T5 f/ v! \4 hpath = malloc(strlen(ptr)+15); $ L0 _) e! Y+ _' Q7 s) O
strcpy(path,"PATH=");
$ v Y& e, Q# I5 ~strcat(path,ptr);
: h+ I) P/ l/ i! l4 M' B+ y) Istrcat(path,";c:\\temp"); ' ?& [- G2 _% n3 x4 A
/* replace the current path and display current environment */ ! \+ n0 i: ]% F( Q* Y* S( |
putenv(path); 5 u# W3 {: y" X5 t! ?0 k
while (environ)
, r3 e& |+ e+ c: J/ {! A- u) a1 ~printf("%s\n",environ[i++]); 
6 q- G: N+ W8 u! x% [ L8 Oreturn 0;
/ q5 s4 ?) l1 |/ ^} % F1 k: B1 S3 a/ \$ W, i, p
 l! u: B& X- f

+ \) j% t& C0 W3 v( _函数名: putimage & ~6 k, ?& U& Q* }* K9 c
功能: 在屏幕上输出一个位图
+ g- ~: U) z: j+ T用法: void far putimage(int x, int y, void far *bitmap, int op);
+ w. C( }1 |$ p% G; R8 F程序例: ' M B ]; X& l
#include <GRAPHICS.H>3 w0 R2 u' v" P6 ~
#include <STDLIB.H>- t Y% D1 P5 q K
#include <STDIO.H>- N$ Q, q4 j( K$ I& R
#include <CONIO.H>3 {' G+ x2 e4 j# l( [7 U
#define ARROW_SIZE 10 1 j* w8 @; [8 C1 I% @
void draw_arrow(int x, int y); ! ~1 e4 _+ Y% N; {
int main(void) 7 E* \6 c' b, N- D" d$ H
{
" ^ }0 l+ o, D& d) d9 h z/* request autodetection */
" b2 ~2 `1 \1 e4 V- uint gdriver = DETECT, gmode, errorcode;
7 z' k; i, r; ~; b0 u avoid *arrow;
2 v0 _8 @7 L( q* q# Uint x, y, maxx; . `( f3 V% g* l) B1 t" Q1 [
unsigned int size; 
5 R0 x0 [$ _5 Y/ i/* initialize graphics and local variables */ 0 _( t; T1 t. w
initgraph(&gdriver, &gmode, ""); 
3 m& ~) o. _4 F2 i! V" G/* read result of initialization */
0 P2 G* {: I6 l- l6 zerrorcode = graphresult(); 4 y; ]7 r7 f+ a) _9 c5 Y7 ~) r
if (errorcode != grOk) /* an error occurred */ ( l& V$ w; Z! ]6 ]6 X
{
, F* O9 A, a3 ~/ |( C6 _# [, R+ U. ~printf("Graphics error: %s\n", grapherrormsg(errorcode));
: C9 Y h# r7 o/ Yprintf("Press any key to halt:");
$ B; M% B8 A, j( T' zgetch();
' J8 Z: j: a0 X0 d" ^: lexit(1); /* terminate with an error code */ 2 w/ @7 |" ]2 |: _; e q
} 7 s/ o& m3 t0 Z) E# l
maxx = getmaxx();
9 v7 M; f: I; w( u( A7 k' j5 Mx = 0; 4 C+ s( E& I7 c
y = getmaxy() / 2; 6 \4 q6 [% \. C) Q' i* ~
/* draw the image to be grabbed */
9 a0 g* |. ~' K9 q' Rdraw_arrow(x, y); & m' L0 N/ I4 @6 R
/* calculate the size of the image */
6 r. f4 P t1 y7 Hsize = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); 
/ P7 d5 ?8 t a% k4 _0 p; D5 ]/* allocate memory to hold the image */ 7 \9 l1 M2 x, m9 [
arrow = malloc(size); 
+ q- \1 [3 j5 O8 ?; S# D# g/* grab the image */
& T7 ]$ E/ Q q4 m: h+ _getimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); 
8 P% l B4 v; Q$ s6 h+ p/* repeat until a key is pressed */ 1 X6 e9 P% M, w9 j' F0 X q0 d0 [2 J
while (!kbhit())
! L( F1 M G9 F" x8 `{
% ~; T1 J; @8 h: A- S1 g/* erase old image */ & V: ?, ?8 t, I9 r- `$ l# h9 L
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 9 e8 j$ M% w( L9 Z
x += ARROW_SIZE; ' \8 S2 ]- a0 \9 F7 v; U9 C
if (x >= maxx)
# W3 J4 i2 d! U% Wx = 0; 
9 @9 Q) g7 X/ e0 I/* plot new image */ - {( w$ f4 C2 x& X! s' V6 z
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); . i E# g1 D0 _. {
} 
6 S1 J, P1 n- S) v! V7 s/* clean up */ & k. s5 C) n# F- P1 B, x& E
free(arrow);
closegraph(); 9 G0 x" Q! C: ^0 s5 j
return 0; ! t/ N3 V8 T! P; p
} 
2 ]; F: \* l2 m4 yvoid draw_arrow(int x, int y)
% a: W8 I$ b) b2 U! ^. d' y$ I{ 9 P: d2 Q2 k" W/ C7 u
/* draw an arrow on the screen */
" y6 R3 W5 Q" J) Z @# x; g9 amoveto(x, y);
' g) p; V! k' T- l) `linerel(4*ARROW_SIZE, 0); & Z7 f/ Y% M. P2 X3 [
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE); ! h) v4 J" \& l. o
linerel(0, 2*ARROW_SIZE);
; b2 w2 |: w$ a" ^- R0 A6 x% @/ `4 k( [linerel(2*ARROW_SIZE, -1*ARROW_SIZE); 1 D% x8 h/ a5 J9 T, |0 v" ]
}
$ v4 p' P- I1 W! p/ Y; b: l# L+ ^
( A4 U% O& }3 A; T4 Z2 s8 [; H7 S9 i- o8 k6 Y1 F/ e
函数名: putpixel , t% f' _1 a. W, R: s% Z( ]
功能: 在指定位置画一像素 q8 | k* t* y" Y
用法: void far putpixel (int x, int y, int pixelcolor); 8 o, p& N0 C$ s# f4 t
程序例: 0 B* c4 z0 a/ ?! r6 W
#include <GRAPHICS.H>- T: F8 e! Q1 V% O* ?) I
#include <STDLIB.H>
1 B: h) Z. K% A4 J#include <STDIO.H>/ i5 Z, Q$ w$ H+ I4 s( d. a) n
#include <CONIO.H>' t0 i# \2 n# m* s
#include <DOS.H>. P1 a, G& ~- i& |4 h7 a
#define PIXEL_COUNT 1000
1 s6 _/ _1 I4 ~# P7 q#define DELAY_TIME 100 /* in milliseconds */ + d1 Q, B! x% e
int main(void) - j# t4 g( P7 X6 x7 _& @
{ ' c1 L" W1 R9 c5 I* i- x
/* request autodetection */
6 b) R2 ^; m6 I7 g% |int gdriver = DETECT, gmode, errorcode;
* \3 H" ?( }# _! V pint i, x, y, color, maxx, maxy, maxcolor, seed; 
8 U* w! j. r* K1 i% T/* initialize graphics and local variables */ : _3 z/ o! |# z9 A) I8 S
initgraph(&gdriver, &gmode, ""); 
9 m C3 {8 U& n' \! f4 \: ~8 ?" W1 c/* read result of initialization */
6 O% u( H7 T7 [7 d$ }% d4 E! perrorcode = graphresult();
' N4 K# ?" p' xif (errorcode != grOk) /* an error occurred */ 0 _; z/ s8 W) |# y4 @) i0 {
{ 5 Z# G2 t) S* H. l, x
printf("Graphics error: %s\n", grapherrormsg(errorcode));
- N8 M/ B1 A. ?printf("Press any key to halt:"); ' p; T% Z Q' a: X
getch(); 6 g; a& T& U, C" p3 T' ~8 C# m( x
exit(1); /* terminate with an error code */
; N. j- r7 b; u4 ~& Y} # [, v5 y/ c V. G$ l# i* u
maxx = getmaxx() + 1; . x) w# k) Z1 q! y% i
maxy = getmaxy() + 1;
# d* T- S R8 W5 y! ~& Emaxcolor = getmaxcolor() + 1; , C; \% U9 {3 t$ U- T
while (!kbhit()) 8 u4 c) a; X7 `$ O; r& t0 b/ `$ h
{ * q2 t4 ?5 S7 Y6 ^+ {
/* seed the random number generator */
, z, ~ y; i! Q& useed = random(32767); 8 V5 O; q- Q/ i. s
srand(seed);
7 i" d% C8 O6 L- W4 _" dfor (i=0; i<PIXEL_COUNT; {
/ S- M6 j0 w3 O! b1 t! Sx = random(maxx); 7 K# Q7 r4 ^0 z+ C6 {
y = random(maxy); 6 E8 I v$ G9 f# M! |
color = random(maxcolor);
 z+ }/ {9 P' Q; I2 ~, gputpixel(x, y, color);
. B8 K: f. q( K) z5 @% u} 
% @- u, Q$ U# q3 O o2 e |delay(DELAY_TIME);
% g' |' F, |; T2 K, tsrand(seed); * z9 `3 G: e9 ~+ ~7 W- G
for (i=0; i<PIXEL_COUNT; { , H, P0 h0 G1 f# Q: Y, Q! Q
x = random(maxx); * {, R5 L; ^8 T$ A
y = random(maxy);
( D. L5 K: Y( f) [/ J/ wcolor = random(maxcolor);
8 X* b" h3 c% e5 E0 \5 z) Gif (color == getpixel(x, y)) 3 Q1 ?' K7 f- A2 h+ ] y% m2 w
putpixel(x, y, 0); 3 K' r$ ^0 @) F! N/ Y
}
0 e/ @/ g0 m0 Z9 k# _) ?} 6 r/ @& Y& k9 P
/* clean up */
4 W: G" Q4 r+ L" Vgetch();
 [* Y3 |7 R4 |- u: oclosegraph();
/ I4 `8 k# w7 O2 {5 Lreturn 0;
* d7 x, J$ E5 S9 ^} & {4 _3 _* T3 P) H" f
2 p0 P4 \9 m: ^! N, g7 \

1 ~6 g" G% o/ C1 T( j# R) c5 j) ^函数名: puts 
2 D6 T* t, u- z! _- a) A# b功能: 送一字符串到流中
8 p+ C- V0 R; }5 v用法: int puts(char *string);
" b' ]% F) Q1 o. w( s3 p程序例: 
2 ]6 ^# k( z) D$ C& i#include <STDIO.H>
7 R6 v$ o% d( _ xint main(void) 9 o' D: W- \/ A; o: a: q& z* j% r
{
" l# T1 Z- y5 Lchar string[] = "This is an example output string\n"; " _5 }2 K8 H1 @6 m
puts(string); 9 a( k6 W; R, Y& n% N
return 0; ! Y, b' T5 d* t7 H% k5 G; V
} . `" v% Y+ U7 F% J
0 e! r# F9 y2 q; e

) G+ f: ^4 m, w; C7 h* v函数名: puttext 
6 b2 d, r, l% [4 Y! G( y功能: 将文本从存储区拷贝到屏幕 : L0 ]& W% w% d% P2 z5 b7 m
用法: int puttext(int left, int top, int right, int bottom, void *source); 9 A) G% M: F1 S. n: L/ ]4 _
程序例: ; |$ ?5 N! o8 y V5 x, Z
#include <CONIO.H>2 j: M2 Y. P6 k/ V/ u3 ?& a
int main(void) . c4 S; O$ X( m% b$ d; M
{
* `2 \6 h8 R/ t* L: _char buffer[512]; 
6 l. }" D( v3 c7 a6 b% v B) ]/* put some text to the console */ 7 Z- ]" @0 f' J0 f G. e/ w
clrscr(); ! Z0 K* ~# v9 m. g \
gotoxy(20, 12);
# F7 F8 @# \: J7 m% v9 H lcprintf("This is a test. Press any key to continue ..."); $ _! Y d- G0 `/ l) d) K
getch(); 
& g u+ C6 B1 U9 n. }" @* ]/* grab screen contents */ ; {) E, m$ [0 ^8 H& h% r6 ?
gettext(20, 12, 36, 21,buffer); + \9 T& E2 a d/ F6 }, u8 S
clrscr(); 
# I7 P8 u( W2 z8 o8 _" H/ T/* put selected characters back to the screen */ 9 E$ @9 r* u5 u
gotoxy(20, 12);
9 ]( z& _; o( t# ~. A) m, C2 Y- iputtext(20, 12, 36, 21, buffer);
0 V* e* U' c: s4 ~3 p! o, F* ggetch(); 4 Q. M I9 e4 R1 X; x1 T
return 0; + `4 Z, o! `' @. _ a
} # D- G. t0 C# b1 Z) B* \1 F

+ M3 q* r ^6 {& q& S! O9 W. I# u) q, s8 [
函数名: putw , i! H: _" C; z/ \0 @7 y
功能: 把一字符或字送到流中 7 }* E2 Z- c( x
用法: int putw(int w, FILE *stream);
! e1 ~- N" c+ c1 @ r# N% y7 y程序例: 
; |. M1 H1 C4 a( z0 {1 A0 b! {#include <STDIO.H>3 I. u4 n% F+ w) H; e% j. y
#include <STDLIB.H>
9 u' }0 b+ N, w/ u& w#define FNAME "test.$$$" - w: L' e; M: ~; i3 N
int main(void) N9 }% _0 \3 N" f+ X+ U: z
{ 3 }# a6 ~* `7 [1 j- S8 b6 k
FILE *fp;
4 D. y( e" z1 T5 j9 S4 w+ `int word; / d$ }2 g* G( k$ Y/ `9 V) M
/* place the word in a file */ ( E3 d7 } `( V9 X
fp = fopen(FNAME, "wb"); & o# I; M( d9 {" a) O/ P3 |
if (fp == NULL) + B9 _5 X2 Q3 I; [( V! F
{ / Z5 t+ Y: O3 s) s) t
printf("Error opening file %s\n", FNAME);
$ R/ h% T" w8 J$ s ]* P' mexit(1);
: {8 d: `+ t; |8 G5 g} * e; {% g$ E0 O* j/ Q, s
word = 94; ' [. m' |+ A( e0 ?7 v/ _ c5 Z. C
putw(word,fp); 6 Y- U/ _1 W2 j; w* \* |. p
if (ferror(fp)) " n8 _; J1 u+ e: Z! }1 m2 j* @9 y) i
printf("Error writing to file\n"); 6 q) I+ H" ? l0 w* \) x
else
/ V# k# r+ @* wprintf("Successful write\n"); 5 [, L4 ~1 j! Q# w- K! g) o
fclose(fp); 3 U4 H; R; h# m1 m9 i7 e2 M
/* reopen the file */
( U. x- I) `% x: x) s4 nfp = fopen(FNAME, "rb"); 4 E0 `/ \) v9 g5 G5 n0 W0 G
if (fp == NULL) ; X7 Y! M4 r. {( C( }
{
0 g$ e$ r( R8 M1 P1 [! fprintf("Error opening file %s\n", FNAME); , L1 k9 |7 B) C- T
exit(1); * ]0 b) c \- X3 d. x
} & w- b8 a9 M1 Y3 F9 f" @
/* extract the word */ 3 N. G' h8 G( p) Y% E4 s
word = getw(fp);
% \; i B3 o- G1 x$ {( xif (ferror(fp))
3 d9 c) t! l; v. f% g# p; y& Aprintf("Error reading file\n"); 4 q- P4 F5 |. f' R3 ]
else 3 m+ F. y, y' H& i& T- i2 o
printf("Successful read: word = %d\n", word); 
. `1 U8 ]+ I1 l: B$ R/* clean up */
* S+ b1 C1 |- l# u: ifclose(fp);
& M: _4 F, _/ }9 N' vunlink(FNAME); 
" t% f& X; b4 L+ t) ?return 0; ( j9 I6 m, D( p( q1 @! O
}