数学建模社区-数学中国

标题: 函数大全(p开头) [打印本页]

作者: 韩冰 时间: 2004-10-4 02:56
标题: 函数大全(p开头)
<

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) 2 B) W- N. l: @% p! Q8 g- O
putc(msg[i++], stdout); 8 S D, D" K7 R* J( K4 ~
return 0;
( C* w+ @; `0 j9 I# t6 ]" `/ l} 8 q3 g5 e. Z+ u0 [. x( w

8 |3 H: Z- P# G% f5 p% S8 ]% a3 g. H
函数名: putch 
" a* Y: b9 G+ D7 T4 Z2 k, h: }4 m功能: 输出字符到控制台 6 t# t! q2 u+ D1 i" G
用法: int putch(int ch); : V+ a3 _0 l3 |( a a
程序例: & r5 C& f) ]( w) j! E: h! V
#include <STDIO.H>
% c+ u# R; U" W! ]" S, D" N. H#include <CONIO.H>: u; k0 y( x$ d9 W8 Q' t
int main(void) . G5 x+ J9 y7 X3 D% q+ b
{ % _: l1 J1 y+ _3 Z& s) ^4 Y( \
char ch = 0; 
: L( n, q/ ?' |8 R$ W: q9 oprintf("Input a string:");
& L# k8 s; q$ s" ~while ((ch != '\r')) 4 S1 K& W4 @8 ^% w$ e2 a" R7 m1 V
{ + t ?3 R. t$ x% _( D" Y% B
ch = getch();
1 b7 L Q/ M( [" h2 cputch(ch); ' S6 y( Z+ e/ f; n: R" K
}
3 \" q5 h0 q% a* M+ preturn 0;
! t& x& `0 ?9 w, L1 W}
* @4 M( t1 g5 |9 h! U3 E- n- P! N M) k1 i: X1 [2 L& J
5 V' a: N! b/ h' v7 C Z* M
函数名: putchar 
& M% p) N& s4 N( f9 T0 G功能: 在stdout上输出字符 / r+ B& R8 C+ o' P7 W, p; b, c3 F
用法: int putchar(int ch); % {8 x( t4 U" ~/ H/ r' m
程序例: 
" ? T; c2 T0 l#include <STDIO.H>" y8 r( }/ @( H1 R" ], C+ e& W
/* define some box-drawing characters */ ! ^- d" Y9 L* v# ?! q
#define LEFT_TOP 0xDA 3 z2 U3 h* F% O! z7 E
#define RIGHT_TOP 0xBF / K) p; ^: F7 F# A
#define HORIZ 0xC4 - _5 y+ d( z: {0 T6 c
#define VERT 0xB3
/ o. t |# y1 e" r5 r1 H! `) e) L#define LEFT_BOT 0xC0 $ n0 O0 l- I/ j* J
#define RIGHT_BOT 0xD9 
/ w% L" t" {* P- F% wint main(void)
) }9 _% h, g/ ~! f! Y ~{ 5 F0 u0 }/ R2 `' [0 y; t" N
char i, j; 
, _) `8 W+ T! ?1 j; ], K/* draw the top of the box */ 7 }) }+ p$ q0 f# [( c
putchar(LEFT_TOP); , f. H |& N3 r
for (i=0; i<10; i++)
4 F1 D" C/ R) H P1 x( V- }putchar(HORIZ); 0 T% C! d8 G3 J9 ?
putchar(RIGHT_TOP); , h a8 a* N( m. _% h- W
putchar('\n'); 
* j$ w& a/ T6 G3 n/* draw the middle */ " Y2 e6 w: N3 ]. F8 d! P5 M
for (i=0; i<4; i++)
' P5 v/ V/ m( C0 B5 {{
6 T: ^% ` d- C1 |# }0 T. Fputchar(VERT);
- Y& g( k2 L# P, k+ v: M, X4 S& wfor (j=0; j<10; j++) 5 V' P5 d' F6 r1 b. X- l( h
putchar(' '); 1 M9 l& J7 b: l# U4 s& @
putchar(VERT); , q6 J; _) V; P: |) z/ d8 }. ~: Y
putchar('\n');
) j/ ]4 e0 D* f9 U1 I} 
! w4 A. z h9 u8 R" {4 @8 k/ [/* draw the bottom */ 9 H, S4 q. k. T9 ~2 ?
putchar(LEFT_BOT); ; |& I9 X- Z8 L) j0 }2 @
for (i=0; i<10; i++)
; F9 `9 I- Z5 |4 G6 e8 Q4 mputchar(HORIZ);
/ |7 z( P; V8 c. Sputchar(RIGHT_BOT);
4 l% ~8 w% V" bputchar('\n'); 
 K0 y2 T6 E# p% areturn 0; ' y- ~ g# s/ M. H
}
9 [2 s, m0 W5 X9 t- p4 [. P% O
+ c) L6 L; Z! B5 m' I
0 T3 l1 m1 i& a5 U8 _, |函数名: putenv 
 I( f, Q0 H/ v功能: 把字符串加到当前环境中
( t8 |" I+ ?& b- i3 Q- z( E+ l8 o: Z5 F用法: int putenv(char *envvar); ( c. ^/ M c# E2 g
程序例: / f% B( e8 f6 a ^6 y- |
#include <STDIO.H>, w+ y: l( P3 v/ g6 J
#include <STDLIB.H>
. q7 D$ A' J/ l2 U% l2 d! J9 [#include <ALLOC.H>
& u9 \) ]* d, j#include <STRING.H>
" o4 y, x$ Y6 V* x' `* p# g#include <DOS.H>
1 A0 k; g# Y5 Z# B# W$ sint main(void) N) m$ c* v; o
{ 4 x3 O. A1 d: N5 T
char *path, *ptr;
7 c) E8 Q, Q* k/ A8 Fint i = 0; 
! R( L* J# N( L8 f; c$ P/* get the current path environment */ # ?- W N5 ]0 l- L
ptr = getenv("PATH"); 
& h" K, c) w6 F s' y/* set up new path */ 3 s X3 e* b- i" n
path = malloc(strlen(ptr)+15); ( _1 {( b5 ]9 B( Q
strcpy(path,"PATH="); 2 |# Z+ g6 |( r- y
strcat(path,ptr);
1 W( M$ J1 j) k' |- xstrcat(path,";c:\\temp"); 5 U! C3 |) a! e3 g4 W- O0 k- w
/* replace the current path and display current environment */
8 B' N7 r: o' v) t) E- v3 _: mputenv(path);
6 _/ g* F" J. G! vwhile (environ)
* l, d& D P" ]7 d* I/ `* h# K+ m, bprintf("%s\n",environ[i++]); 5 U+ A( o+ ?$ J% B7 M: w
return 0; - v, C; O; @& p* j' J7 ^
} 4 P/ K# M3 b( u6 g2 f
& P7 w! `) U$ w6 h) ~) e! m
) X. Q2 P& ?# O. k; g: A
函数名: putimage
1 p( D7 }5 Y/ H功能: 在屏幕上输出一个位图
# v- [! A) o2 p* Q+ N+ w3 f用法: void far putimage(int x, int y, void far *bitmap, int op);
. ^! v# r) ~2 K. \( u) P程序例: 
2 ~- O. T9 S& C3 I- ?, \#include <GRAPHICS.H># i8 d J) O; S7 z5 c: g: b
#include <STDLIB.H>
2 N9 \8 D- a) c#include <STDIO.H>
1 h h) w( ?7 v- T2 j#include <CONIO.H>
+ a1 I- H# E; l: k" i#define ARROW_SIZE 10 
 P0 Q: p2 R) T6 Q* @. svoid draw_arrow(int x, int y); 
 q3 h. l" @# C5 N4 b5 Fint main(void)
" c+ |/ |+ y; y; Z* s{ . p( P2 D& t0 Q7 |
/* request autodetection */
: F. F. L6 h% p/ X1 h( h8 @int gdriver = DETECT, gmode, errorcode;
9 ^" |! F8 z2 T1 Y I$ M7 Evoid *arrow;
% o& |0 v! a" c7 qint x, y, maxx;
( |; [! q z! w! O- U$ e6 }unsigned int size; 
/ q/ l1 C @1 Q) ?- m/* initialize graphics and local variables */ 5 G+ h' L# C- e
initgraph(&gdriver, &gmode, ""); # R% ^4 z' t8 D9 X: d% Y; y
/* read result of initialization */
2 `, y8 P1 K' }$ s( f9 J& v$ Cerrorcode = graphresult();
5 t6 C6 h% }6 h$ |; Z( j3 l- E0 fif (errorcode != grOk) /* an error occurred */
4 k- q8 S& L! V2 c9 N. B{ - A- U$ I4 W+ D- L. l# G9 G
printf("Graphics error: %s\n", grapherrormsg(errorcode));
# X7 Q7 D0 W: x% h+ A* {1 O5 y# yprintf("Press any key to halt:");
7 W4 D0 Q" Y3 K/ Y9 qgetch(); 3 U# M, h- |, P
exit(1); /* terminate with an error code */ 8 P, k9 C/ o7 ^! r
} " `. }# v6 @1 W8 V/ ` }, u( {
maxx = getmaxx();
: g# C5 `( E$ Tx = 0;
9 J# B6 g3 D) y4 gy = getmaxy() / 2; 5 }; b. z& H7 Y- d
/* draw the image to be grabbed */ 9 E& l F; C0 n! B g$ U. z
draw_arrow(x, y); 
3 j0 m8 N( x" z6 Q+ B: J/* calculate the size of the image */
- Y& c9 F4 f: ?4 j- j$ @size = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); ) t, ^; }8 b# o# p5 |- j
/* allocate memory to hold the image */
0 K9 ^ j; B% O. e4 `1 _arrow = malloc(size); , k( U" k1 Y+ R9 d) [4 G: l
/* grab the image */
8 O7 k9 G4 W) D, S5 A7 [getimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); + X( k7 r4 I/ r2 A; ]
/* repeat until a key is pressed */
' a) s& P% D1 lwhile (!kbhit())
; {( C; M' U5 m9 W" F{
! O7 l+ J2 }$ ]" I/* erase old image */ ( ?1 v/ U: `8 Y" \$ K8 d
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); ! x O: w0 `% e d ]3 b, f8 ]
x += ARROW_SIZE; 9 L1 m `( m9 O6 f+ F, o
if (x >= maxx) 5 k m. s, }: I0 M. R8 S
x = 0; 
1 G( b. z8 A$ ~+ G& P! a/* plot new image */ 0 K) w3 f0 ~0 W$ u. ?" S
putimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 9 j0 E* V+ B! d+ ?% e: R
} # a$ Z& U' }8 [9 q9 ]5 m
/* clean up */
" z3 u) B9 h# ufree(arrow); ' N2 f. `' F& x: y. C% e8 E
closegraph();
. Z5 h2 }# c+ Sreturn 0; / P8 v3 |* {! w+ m3 V. f) v; D9 D
} 
$ G2 b) E- g' qvoid draw_arrow(int x, int y)
" g6 A/ p% m7 g& N{
) Z8 U+ j2 {$ c: l3 s/* draw an arrow on the screen */ e8 F# W; j$ m9 o# {/ ~
moveto(x, y);
) q1 b8 S) i2 @6 r' W" Blinerel(4*ARROW_SIZE, 0); 7 X; b5 F7 ^- s' G6 p I
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE);
/ P' k: b# _4 d5 P/ Llinerel(0, 2*ARROW_SIZE); : a$ D: o% K1 d' M- Y. L3 Q
linerel(2*ARROW_SIZE, -1*ARROW_SIZE);
2 C4 F8 j3 _' L. p5 z( T}
0 T6 Q" }8 H, O. q7 C5 r9 W) F& |9 }0 y+ z' v/ P: x

. ]1 Z; u9 _0 `* ~函数名: putpixel 
) ?0 |+ }" \6 A/ R8 Q. a功能: 在指定位置画一像素
* h( m0 F4 \/ ?1 G, o/ E3 ]用法: void far putpixel (int x, int y, int pixelcolor); # H. i) v* J) i$ M% S4 s
程序例: . b; P3 x5 H" Z/ |% ?: N
#include <GRAPHICS.H>
9 h2 d& P' P& U# A; T5 `0 M#include <STDLIB.H> o' D/ ]$ i# Q" S& {2 m) T
#include <STDIO.H>
4 B% }1 |! t$ f$ s6 a0 o4 f#include <CONIO.H>
# O6 _. r; P8 K* }3 v( J#include <DOS.H>
! R" s9 C# L6 D) \- O; U4 Y#define PIXEL_COUNT 1000
: `5 W! O( t+ B! X8 Q' u#define DELAY_TIME 100 /* in milliseconds */ 
, l$ \4 r7 K- A" Wint main(void) ! z7 {; t ^" Q1 A2 N2 v
{ 0 a/ ~) Y3 ^& X& N/ R8 ^9 k
/* request autodetection */ + G! D1 C1 @7 F8 T
int gdriver = DETECT, gmode, errorcode; 9 V; b0 j, D2 c! N% N) w
int i, x, y, color, maxx, maxy, maxcolor, seed; % a- Q8 q& i2 N/ ?6 \
/* initialize graphics and local variables */
/ J6 T+ N& o9 {* Dinitgraph(&gdriver, &gmode, ""); 
+ P& W. N* t) M- X% {8 u3 i6 K/* read result of initialization */ 8 _0 ?$ ~8 w) V# G& [- |
errorcode = graphresult();
: O8 B+ b6 }2 O) U9 ^4 q" sif (errorcode != grOk) /* an error occurred */ 0 k% L% |+ w( d! D
{
, }/ X' W a0 ?: eprintf("Graphics error: %s\n", grapherrormsg(errorcode));
8 W0 p8 w) Z6 [5 m% ?printf("Press any key to halt:"); 6 ]# q8 @" P( M( ]# w
getch();
: y5 j( R) t2 \- `- [exit(1); /* terminate with an error code */
8 r0 k- D9 w; D; O5 W} , p& @' Q6 J+ L
maxx = getmaxx() + 1; + l3 q# x5 c8 M8 G$ c
maxy = getmaxy() + 1; 4 o) e; L% y# Q% C
maxcolor = getmaxcolor() + 1; 
! U" w# a, m" q9 wwhile (!kbhit())
* u* G+ `# ^) b' d0 ~. k) R{ / X' {2 o+ k4 m( y7 @0 V
/* seed the random number generator */ * O( b/ a) M6 q0 ~! ]
seed = random(32767); 4 |7 s c( m5 t
srand(seed); ' |1 R& b# B# N. e9 a- c
for (i=0; i<PIXEL_COUNT; {
8 C/ m% o: {, n7 b8 h+ cx = random(maxx);
, I5 K+ w. R+ }2 `* B0 p/ Fy = random(maxy); 5 H2 i- W2 b) s- S
color = random(maxcolor);
: j8 F$ t5 o9 }8 X7 z# ^' T9 lputpixel(x, y, color); ' l& e4 \( A" W7 E; H( x4 d. J
} 
( e6 r8 Q$ v1 l, Ldelay(DELAY_TIME); 1 ]% p( m3 W f$ k' c
srand(seed);
; [% B& q) i1 }8 R% P& pfor (i=0; i<PIXEL_COUNT; { ; ^& M0 N; d; g9 d! o/ ~
x = random(maxx);
: X( r/ T/ [5 V# `8 B9 w4 Ty = random(maxy); + a* q+ r' g) B
color = random(maxcolor);
- [/ h/ {0 ~, Cif (color == getpixel(x, y)) ; E5 U7 B+ J; R" y
putpixel(x, y, 0);
2 h# B7 M$ H o4 x5 O/ U$ R}
1 r3 c- z( O5 q0 H2 t+ _} # m, I, m3 v( h% z. c9 _
/* clean up */
8 M4 g* d& j0 |, y% ]2 Rgetch();
' \+ L+ s) m9 B6 i7 s! s, \" Vclosegraph();
' v) Y7 ^$ E! j% j5 Xreturn 0; K5 x% U& ^$ f7 M
} 8 ^1 w4 y! [ s' i
, }6 c' t4 B7 ~2 ]( l0 x+ ~7 V
) C! }9 Z0 h( ^/ O# d
函数名: puts ( @) {# U& e- j" Y
功能: 送一字符串到流中
7 `+ M9 p& w, G" ?( \" t+ w用法: int puts(char *string);
9 L" Y: m9 Q q1 B% q; M! x程序例: , }# v4 ?: z" B; d+ n( ?9 Z
#include <STDIO.H>5 H3 C: v! S d& z9 S; g
int main(void)
; f2 N8 b0 w" l- F0 x+ o{
; P) t6 Y( Q! F z" A+ U( ychar string[] = "This is an example output string\n"; 6 }! H8 o# z% |4 w6 R3 F* g6 E
puts(string); w' ]) t( q' o( C
return 0; ' |4 \( Z( B) [" b, Y$ w6 R$ h
} 
. l$ p( |! Z* F( J% ]" m" v* g; e8 q; x' a. c, ^/ A( W2 p
+ R) F$ w/ s+ h. n: R, x+ d3 I) d
函数名: puttext $ G2 ^: Y/ ] q4 Y8 l/ F6 l" Y
功能: 将文本从存储区拷贝到屏幕
/ c! j# z# n4 Y+ z8 Z8 ^& c用法: int puttext(int left, int top, int right, int bottom, void *source); 5 H- p: M! F* T+ T. O" W5 i5 I3 h
程序例: 
0 [4 H. S) `& C4 I+ I3 l, ~. ^#include <CONIO.H>
8 d6 D" n+ e6 z" U: gint main(void) . R8 m4 ?# U8 w, I7 o* k& P: T
{ 9 x; U9 m5 |( K, I" i/ w
char buffer[512]; 
9 U; Y" h: f# s8 I( A/* put some text to the console */
: T, |2 T5 H& hclrscr(); ( w$ m' G7 N! C9 b- j& p4 T0 _2 k) U
gotoxy(20, 12);
cprintf("This is a test. Press any key to continue ...");
- p; {* P' L" e$ z8 H mgetch(); , h4 h" ^# g1 v+ Q. s* ]
/* grab screen contents */ 2 \# h% [& ?: S5 ?( d
gettext(20, 12, 36, 21,buffer);
$ U9 C2 v0 D; e/ c& _3 L8 ~, L$ nclrscr(); 
/ O6 t& E, z. v9 c/ \) [& r. a/* put selected characters back to the screen */ ' `4 _6 ~- L! |
gotoxy(20, 12);
% B8 S. D1 Y6 l( i1 g3 N4 jputtext(20, 12, 36, 21, buffer);
! E- y3 Y4 J& S. v- m" _3 V$ a( cgetch(); # p9 g0 Z. u/ n$ V
return 0; ! e7 ^; k" j1 G5 R* J, \4 n; Y
} - b- c. X# ^. A( @5 G9 x
- ^9 G. ]" d% Q. q9 a! b0 k

8 t- U, Q1 k( u4 Q7 N函数名: putw % r7 } G) ?5 Z8 U" j6 ^
功能: 把一字符或字送到流中 4 E* |% x8 s8 ?1 P! N" d! n
用法: int putw(int w, FILE *stream); 6 a! c& N; N+ k3 w r& Q5 c
程序例: + m+ F5 E5 ^9 d+ c9 K; z+ D# U: L0 c
#include <STDIO.H>/ I% ^/ c* a3 t
#include <STDLIB.H>
% x9 E9 I) r1 B- R& l5 k#define FNAME "test.$$$" 
7 r9 }0 p6 Y6 _# M- N2 y. tint main(void) : v# D, Q$ }/ ]1 f! U
{ 4 i2 J7 r; x z9 w
FILE *fp;
, D' j' x5 E4 P6 c: p& l7 p& X; aint word; ( ~4 a7 p- L% w# H; _9 n
/* place the word in a file */ , T/ g/ C# R* p& B$ @8 R2 v J a
fp = fopen(FNAME, "wb"); 9 T( m* v( [: r5 y. t/ R: w' ?
if (fp == NULL)
. \! P: e# @& S" w: ]. P{ t* p. D7 U$ q' K" u. S2 n
printf("Error opening file %s\n", FNAME);
" C, x6 I- `, a) W/ d' Pexit(1); ! W, O Z1 U4 ?3 p$ v/ u K; h
} I0 \* B$ w- p. M7 g- [ C7 Q
word = 94;
4 b; C( f5 v; J: ?putw(word,fp);
6 \. X; D8 S- _& ]* tif (ferror(fp)) " Y [: U/ j) n1 \) ~% K' g
printf("Error writing to file\n"); 3 s- O8 O+ z8 ?' g$ G M
else
( W$ \5 a& C$ u2 e4 ?printf("Successful write\n"); ! m3 D; j9 Z Z4 g9 m5 T; U, l7 w
fclose(fp); 
8 _' ^0 @% M5 b/* reopen the file */
4 k, `* \* b/ A! y5 Efp = fopen(FNAME, "rb"); , P0 d4 n+ p; i5 g$ ?; D. Z
if (fp == NULL) {; t! i) }3 E
{
) @4 N2 o, h" H/ {, L& u( M# Bprintf("Error opening file %s\n", FNAME); ' u" X O. ]' ^
exit(1); ! I' S; \( W$ K; [6 m4 Y
} ' W2 j+ `5 V! l: ]8 D- T8 b6 b
/* extract the word */ ; K# F7 v4 {/ b1 D& T( _
word = getw(fp);
% q; m0 K" o+ W4 v5 e I1 y( Yif (ferror(fp)) 6 T& d1 J P5 N
printf("Error reading file\n"); % h# ?! e6 \% ]: r D E& a
else
6 g# ~1 Y, w. `2 [) u; U2 pprintf("Successful read: word = %d\n", word); 
1 x& G% |. F5 ^& b. ~$ ?/* clean up */
) i5 I" B) V- e$ e# t! ]fclose(fp);
0 _: Q8 y4 z. D ^4 T$ A6 x4 @unlink(FNAME); + o/ b3 s+ G5 R- ~2 o |; c
return 0; ' B, L* t% p! _7 q% T5 A( b; M7 C
} 

欢迎光临数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5