数学建模社区-数学中国

标题: 函数大全(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)
% o3 y! w# l8 ^0 w) J( Dputc(msg[i++], stdout); 7 u8 n& b! j. Z( R5 @
return 0; ! V- D* l: U6 Y
}
7 |! r# \* A) I6 a: B0 L
9 X4 c& O5 x5 n7 Q! O9 l+ D
( _: p3 F9 }) T函数名: putch ) W! Z) k! P: K; B1 b" [
功能: 输出字符到控制台
* L, }7 ~* {3 q0 {5 K+ h用法: int putch(int ch); + Y8 H! T- K9 q! f5 W
程序例: 
8 D' T" \# E. n% s#include <STDIO.H>
+ Y S" O K: J2 | K1 ^8 y0 @#include <CONIO.H>
( [, S4 R& A& G# T, cint main(void)
9 Z) K8 x4 ~9 ~( M* R1 E' o{ 7 v6 Q; u: }( ^0 }, D9 g$ U8 \
char ch = 0; ! f' J( [9 J& Y* q+ h
printf("Input a string:"); , W' Q. Z$ P# \: [% Y: o! `
while ((ch != '\r'))
% O6 {3 ?9 W4 o' z, {( G0 y{
2 c6 U/ J9 T {6 D( z1 c ]ch = getch();
8 s3 B8 _7 v: e1 G( p8 Wputch(ch); 5 K) ^5 \! k8 m. H" `
} 8 P& v8 j& E0 S1 @# H/ h3 a) X
return 0;
: D; \. n) q% s& q% ^7 _% u}
6 q. I9 N+ {; d8 ~0 J+ L, U! }3 z1 }8 }$ a9 L) ]9 K. z( S6 M

9 K' K% n* e( C! c) |+ A+ Q- @; ~函数名: putchar 
1 r: `! I/ ^2 X功能: 在stdout上输出字符 / q, {$ \7 q8 Z6 N
用法: int putchar(int ch); ' a# F% _: s1 D" h- Y5 S
程序例: 5 H! g& P p: J# U
#include <STDIO.H>
+ V6 h& u* \7 Q% Q/* define some box-drawing characters */
1 O7 t1 h6 y' k0 z* V8 I#define LEFT_TOP 0xDA 4 b) \4 K6 v/ r# c" s
#define RIGHT_TOP 0xBF
1 W. |" c: }! T7 \! p, G- J#define HORIZ 0xC4
6 {. {. |6 ~5 I, |1 `( q0 b#define VERT 0xB3
$ }( g; V* ?5 b u/ x#define LEFT_BOT 0xC0 + G: ?5 _5 B3 n9 F0 R, e- s
#define RIGHT_BOT 0xD9 3 n" F# i. ^6 Z% f
int main(void)
1 |9 d: k- C% n; d$ p% c{
- f' c2 m7 n# R' Y' {2 n! P5 H1 gchar i, j; 
3 ?7 k/ ]. ^# v7 V/* draw the top of the box */
 L1 L z% u. w3 _7 Z' ?% hputchar(LEFT_TOP); $ x" \$ u) E2 E8 a. M- h8 ?$ ?
for (i=0; i<10; i++)
0 l% T6 n4 ]% y! fputchar(HORIZ); ) g1 J' ]2 h8 }
putchar(RIGHT_TOP);
: X- V6 D. v8 ~1 M$ {( Wputchar('\n'); 
; N l4 o! w8 r$ J/* draw the middle */ ; Z' a6 v2 y' F( U- r7 f; w |" c
for (i=0; i<4; i++) # E+ C! g: g( P F
{ 3 \* v9 v8 k1 y: P4 Y
putchar(VERT); / r" s7 R' m+ i4 S- Z }( G+ o
for (j=0; j<10; j++) ) p9 J' B# n: ~. M0 H% l9 R* Q& D
putchar(' '); % j1 u3 b0 r# v
putchar(VERT); ' P/ l! F1 d% k9 ]: v
putchar('\n'); 6 F; C, t: ^2 U8 U7 y9 k
} + N! q3 @ S/ h
/* draw the bottom */
, |4 l: V( ?1 W6 Jputchar(LEFT_BOT);
: G5 ^, N7 B2 y1 \' L# p* ~for (i=0; i<10; i++)
+ I) W4 ~$ j. {$ E3 O5 Bputchar(HORIZ); 1 C) P }* L* M- B9 Y! M
putchar(RIGHT_BOT);
, ^* O+ L. h" }: y- \& M0 [0 v: hputchar('\n'); 
) ?# V }, J) ?! ~. greturn 0;
+ h# ~% [; {, w8 h8 t3 C}
! H3 ~0 m+ L% J$ H: b
$ C0 O/ O/ o, [. e; j# Y
1 e' ?2 j" U# T" F0 y函数名: putenv 
 B' z& z1 R$ u4 \7 L- [功能: 把字符串加到当前环境中
& m$ [% y* Y7 c7 ]( X用法: int putenv(char *envvar);
 V: ~- `' n' i% s& O; M程序例: 
7 B6 A+ D# }% s- O- u6 P#include <STDIO.H>
( [4 R5 Q" L2 S8 u+ q#include <STDLIB.H>( e5 A* |5 E: |! m% z! ~
#include <ALLOC.H>
0 b/ [% }5 [6 E/ B% s# F#include <STRING.H>5 S. X+ T, N0 _7 {
#include <DOS.H>
; @0 {6 b( J' e0 ]/ }9 y$ qint main(void) + G: r' ~; x1 y% F
{ 1 ^2 p" F! D1 B4 p, F8 b. J# J
char *path, *ptr; 4 j6 E, f) [# }. e0 N- K' ~
int i = 0; 8 w& G) R, S3 \0 C/ R, o
/* get the current path environment */
$ R) U/ ?" J( a9 C7 U' Jptr = getenv("PATH"); / I. Y2 x$ z+ O: ?4 w! K
/* set up new path */
$ w3 o- w8 ]8 m* F' V$ ppath = malloc(strlen(ptr)+15); + g$ K* W- G- z( {
strcpy(path,"PATH="); 1 I- `# V$ [! W" d+ |% X
strcat(path,ptr); # h1 P: b3 K( z- `
strcat(path,";c:\\temp"); 
3 P1 Y8 @0 R- p0 g* F m2 ^/* replace the current path and display current environment */ 9 I O: B# Z1 q2 s3 D. _( I/ r6 A/ w1 o
putenv(path); 3 y+ ~* r4 x& n
while (environ) ' U" t% u$ W: w( Y$ w) ^
printf("%s\n",environ[i++]); % t1 f) t% n% d; n. E4 Y
return 0;
. ^, Y+ o& a# t3 C2 p+ l7 }! Q2 f}
3 i# }5 ?1 V( B% d. n1 ~9 I9 l; W$ X

" r. s2 X3 }5 @函数名: putimage 0 w$ x1 m1 }% U6 N5 q5 \
功能: 在屏幕上输出一个位图
$ o9 w3 C0 B9 ]2 Q9 {& m: ]5 M用法: void far putimage(int x, int y, void far *bitmap, int op); , h+ k3 c& ~" u; `$ A4 L8 [
程序例: 
/ M. t% Q6 L3 ~4 O8 V#include <GRAPHICS.H> e% \0 F8 q4 s/ a8 \
#include <STDLIB.H>" N) \! A( _4 C+ t
#include <STDIO.H>; q' G5 {" X J! W
#include <CONIO.H>3 F1 k, l& y7 o( q5 J5 W
#define ARROW_SIZE 10 
 ^$ _+ ?3 n' y7 c) ^void draw_arrow(int x, int y); 
; A' x2 @) j- J' F# _$ I( C- k8 Fint main(void)
% s% D, J, @( b4 k9 w" Y{
/ A5 c* z7 W) X6 }) x1 C$ }; l/* request autodetection */
. n8 R5 R6 ^$ G# t8 W. Hint gdriver = DETECT, gmode, errorcode; 8 u7 O& I+ L7 i, P& L0 Q: d
void *arrow; * [. v4 N) O+ ]' j1 @4 B
int x, y, maxx;
; j1 h j4 `7 b! {: |unsigned int size; 
3 {% N, A: n4 x+ O/* initialize graphics and local variables */
8 r+ K" [4 K0 }: dinitgraph(&gdriver, &gmode, ""); 
* S( X m v: ~% o$ I4 G* R/* read result of initialization */
3 l% E' q) H. D# D* ferrorcode = graphresult(); % D* _* ?1 t. }6 l
if (errorcode != grOk) /* an error occurred */
2 @- A7 f8 S) H1 g% f{
3 J6 H+ _% h% ?( F! \printf("Graphics error: %s\n", grapherrormsg(errorcode));
0 w) J- _- l" I3 vprintf("Press any key to halt:");
8 Y2 T1 I2 J; s5 U$ V9 t* X0 i+ ygetch();
: X! T& O: _- ~; N1 kexit(1); /* terminate with an error code */ 4 V J* W( ], d: V8 j) a# p" V# K: W
} 
. w) u! x1 T/ b/ T) O* }8 \maxx = getmaxx();
: X* i; d3 \( r; W' `" Q* F( Qx = 0; / m0 E5 |6 L g3 f+ A
y = getmaxy() / 2; ) x# e, _( H! E) @8 u
/* draw the image to be grabbed */
2 z7 N: P5 r2 N U1 i) o+ v5 |draw_arrow(x, y); 
" O6 @% k& v7 W/* calculate the size of the image */
- T8 U5 Y7 l s9 N# isize = imagesize(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE); 
! T6 o2 B! a* t$ g- n* |/* allocate memory to hold the image */
& U) z3 ~2 @! k8 Q2 |5 xarrow = malloc(size); 
/ O; y/ J( I+ g B0 l( y* n/* grab the image */ " S7 [2 s& [7 W/ ]( m
getimage(x, y-ARROW_SIZE, x+(4*ARROW_SIZE), y+ARROW_SIZE, arrow); 
, D4 y' t8 l0 N% S- R% {# v' Q/* repeat until a key is pressed */ - y0 @& T' M9 e
while (!kbhit())
1 X4 R$ y3 B4 v9 }( S' c e) ?{ 1 Y3 w3 a$ _# `; {6 ]( Q! }0 A. H
/* erase old image */
& W/ l7 P( i6 ]: S* G$ j# T/ mputimage(x, y-ARROW_SIZE, arrow, XOR_PUT); 
8 V$ \; d5 ?- @7 m" f$ v8 hx += ARROW_SIZE;
/ }; Z6 F H B- g' I) tif (x >= maxx) & w( ~1 W* P6 E3 b/ p
x = 0; ; s' i2 _ L+ l* O& w b' o
/* plot new image */
8 ?6 G- X R" c7 C" z0 Pputimage(x, y-ARROW_SIZE, arrow, XOR_PUT);
' r" _3 o$ Q* J1 j( {} 
7 r) {* U- z5 q& C4 f( e" l/* clean up */
/ u) W6 v$ h/ S% |6 O1 ^: N, ^7 sfree(arrow);
3 V$ o, ?% F) H# Q9 }, C h$ jclosegraph();
8 G+ \/ R0 I- @4 s+ u! nreturn 0; , i% R7 o! N7 S* x: r0 u4 `: D
} 
& i. g; o- A2 S j( Svoid draw_arrow(int x, int y) ! e& l- q) J* U9 S
{
6 T+ N( C! w* t( S/* draw an arrow on the screen */
: D3 l% D8 p) P& p l9 Kmoveto(x, y); 8 R" P- e) m3 V. K- U" N% X
linerel(4*ARROW_SIZE, 0); 2 I2 s$ J# @) r* i# o+ n9 Y, s" ?
linerel(-2*ARROW_SIZE, -1*ARROW_SIZE); ) B9 E6 c- J1 G, J1 H
linerel(0, 2*ARROW_SIZE); 9 T; L+ _' R4 y
linerel(2*ARROW_SIZE, -1*ARROW_SIZE); - M8 [8 e# F" C4 P/ K
}
, o5 ~# F( _4 D; k! O X, a# G! S, k+ |4 i) X8 r3 K

+ L* _* h* y$ O; B# c函数名: putpixel y( Q! c# \- w5 H8 o5 \3 Z% ?
功能: 在指定位置画一像素
& Z7 i) |9 J2 T用法: void far putpixel (int x, int y, int pixelcolor);
/ @; g- S& y/ e9 }程序例: ' C! |: U! y- G) k3 c* f
#include <GRAPHICS.H>
- J4 e* i5 I" Z#include <STDLIB.H>% s3 ]% H1 q8 J1 p! P
#include <STDIO.H>) d4 d3 R8 _' X$ ^ v0 j0 t* ~
#include <CONIO.H>% b* J7 a7 B, K( ?/ a
#include <DOS.H>1 N* [* v. Z' G' [) G( f4 d3 X
#define PIXEL_COUNT 1000
" P3 y0 D$ @; U. i5 \6 v#define DELAY_TIME 100 /* in milliseconds */ * [0 G _! [! K: c# D ?7 u" J) d
int main(void)
' Z X) N* [, v9 _- C9 \& x2 ?{
& [, F9 D" L4 v" ~, Y6 o% J* }/* request autodetection */ 1 `% d7 R. ? t# d, o
int gdriver = DETECT, gmode, errorcode; 0 o* { w% V7 l0 u
int i, x, y, color, maxx, maxy, maxcolor, seed; 4 N; O3 c+ r( W/ e1 @
/* initialize graphics and local variables */ ) e7 f p; ], s1 `* a" |
initgraph(&gdriver, &gmode, ""); . P& e* j# h+ a# [) k' B. U
/* read result of initialization */
$ Z) J* g, W+ werrorcode = graphresult(); 3 X8 r5 L2 i0 N. w! b7 ~* ^) E
if (errorcode != grOk) /* an error occurred */ % s$ Z3 x% l5 p
{ 5 P" Z4 D3 o! I. n
printf("Graphics error: %s\n", grapherrormsg(errorcode)); " J+ T F! \4 @8 \/ U" h0 ~ J* O
printf("Press any key to halt:"); c! L7 Y5 P. ^# D C! Z, }
getch(); ; \& P6 o5 v8 d5 w# |( }
exit(1); /* terminate with an error code */ $ ]+ b( t- X; \+ u4 `
} 6 K" f4 O1 s- [5 Z
maxx = getmaxx() + 1; ; ]; d. B7 k0 q/ |
maxy = getmaxy() + 1; / W/ i( _+ V0 ^/ V
maxcolor = getmaxcolor() + 1; 
( l) ?$ g6 J1 ]while (!kbhit()) % c8 L- s' P3 W$ s8 [
{ 9 w1 F; Y0 j( @4 F0 j; A2 ~0 V
/* seed the random number generator */ ( K, d6 w" E8 F% D+ B2 ~- H; a- u
seed = random(32767);
% E5 L6 d3 o3 }) h/ lsrand(seed); ) W1 ~9 r7 P1 [' e7 `5 [
for (i=0; i<PIXEL_COUNT; { 2 X* t/ B5 o% c3 c/ R# P! P$ _
x = random(maxx);
0 r; Y5 q' i; T0 Jy = random(maxy);
$ H( R0 |! U/ n6 r3 R6 y! `' ]! lcolor = random(maxcolor); 8 r& Y) x4 j& e/ q6 U
putpixel(x, y, color);
" X& t" ?( L) A$ o} 
2 j! @% Z' B2 idelay(DELAY_TIME); " f u1 s& f5 ~
srand(seed); 3 P2 s" [% o1 P: B
for (i=0; i<PIXEL_COUNT; {
$ K4 o5 a {( q* d2 n+ ix = random(maxx);
) p$ Z% C* ^( C1 I/ I; m* hy = random(maxy); s' j: F4 B; K
color = random(maxcolor); , w; z7 S' v) k
if (color == getpixel(x, y))
4 o6 S- I1 i+ L) P. {2 kputpixel(x, y, 0);
! B3 n- m* f& _9 y) b}
3 I, [1 M- ]: B j* v. R} / w! B* d& S$ d: o
/* clean up */ - F! A; G8 J- d( [5 i6 E
getch(); % |% @. g* _4 o6 f8 m7 J3 F; I
closegraph();
$ G6 k3 l# F! P- ^+ Areturn 0;
' q- H& u/ r+ o. V- P}
9 x2 s P2 g- n" h U% u
& e' D! z, P4 x+ s. \" ~. ~8 c, O8 Q4 A- }, x5 o
函数名: puts $ G- Y& E8 W$ \3 I7 H+ f! \
功能: 送一字符串到流中
+ S$ d. Z9 a P( `/ ]& P: X用法: int puts(char *string); 9 s4 \5 h# R: {/ H$ L3 I9 w& g
程序例: : Q7 d/ C$ F+ I7 M9 b% K/ y
#include <STDIO.H># y C- p6 r I
int main(void) N; S$ d( P1 X
{
1 v* B4 _% O4 g! A; lchar string[] = "This is an example output string\n"; 2 h. M# l+ D0 e. b4 }' T5 I
puts(string);
 G8 X( l0 f/ u* creturn 0; 4 R" {% {2 L+ c+ t% M
} 7 \/ N; c& c2 I/ k

( N1 \9 E8 ]9 m7 {# P
0 N0 v; L; g1 I- R" x函数名: puttext 
* L% L! ?$ K( ?. o. ], V+ \3 ~- U功能: 将文本从存储区拷贝到屏幕 ! }5 @, U& ?0 D. d4 _9 [& T' C; P
用法: int puttext(int left, int top, int right, int bottom, void *source); 4 o0 k0 m' b" \# {! z# y
程序例: 
; l8 |8 x( w+ M% f( L#include <CONIO.H>
 M3 l) r* K3 F+ Yint main(void)
) ]) S% A h$ n# F( ~+ ]1 B. q{ : Z' s; |* ~1 I% T/ g0 F. o
char buffer[512]; 
2 a! A b( h, a# V& _/* put some text to the console */
$ C; w, n2 w0 x# L/ rclrscr(); 1 N+ \; I7 B& s" E
gotoxy(20, 12);
, {3 H# Q: `/ f: w- r0 D5 ], h1 [) ?: Vcprintf("This is a test. Press any key to continue ...");
# y/ F4 z z! k& P. o. B/ Tgetch(); 
% k. j8 w6 N* \6 m# Z' M/* grab screen contents */
$ U3 w* Z. m: L' jgettext(20, 12, 36, 21,buffer); ' H1 a5 k/ Z* Y1 I( C
clrscr(); 
) d2 ~2 S' c1 m5 ~7 R8 M/* put selected characters back to the screen */
1 O# e1 l( a# E# N8 t# ~gotoxy(20, 12);
% f3 v1 A+ i1 L! g5 }, Y+ tputtext(20, 12, 36, 21, buffer); - ]4 i* c# v9 h; S' Z
getch(); 5 E0 k4 ~$ T% T' E
return 0;
7 K% }( N5 b' o+ ]} : B+ e7 N; q+ n6 _( L9 d8 u6 n
8 F4 `7 W2 x B7 t/ B4 K
1 @2 v; }: P9 s" R3 r( U3 k$ Q
函数名: putw 
) K- M; V0 b# y. M+ @# ` P功能: 把一字符或字送到流中 * h0 p+ t' ^& {* l( S% x+ E# c# S
用法: int putw(int w, FILE *stream); 3 L2 V% D* V5 y6 R! y* u0 i* z
程序例: 
8 J. _& L5 [& ?: Z! \8 i; k3 Z#include <STDIO.H>0 S2 \+ L) A3 o
#include <STDLIB.H>9 L- U. m! q3 c7 o$ @
#define FNAME "test.$$$" 
, ^9 m0 Z# B; r; G0 v8 ~int main(void) & D# p0 d9 n# i, {: N
{
9 b6 K+ a6 d2 n5 H3 d4 DFILE *fp; 7 I6 [, B3 O$ n
int word; $ t1 j( x% L7 W* Y3 o
/* place the word in a file */ % v# @2 b3 @7 y, a. z4 N
fp = fopen(FNAME, "wb");
% w* I1 Q, r: {) ?# \if (fp == NULL) ) K6 z5 K) e: \6 U' a2 p
{ # s9 w) M1 q5 m% h$ Q# ]3 S% b
printf("Error opening file %s\n", FNAME);
( H8 N) T- ?+ v- e) ^exit(1); ' j6 s- d- X# H! z
} 
9 i% Y9 ]# d: Z$ L8 Z4 a+ W* hword = 94;
6 d8 C$ o- {" G. s T4 Q6 jputw(word,fp); 4 b3 i) _% w% S0 b3 ]) S, N7 p% ]; P1 G
if (ferror(fp)) : |6 w$ i9 E T7 n+ `" ^$ [& R( }
printf("Error writing to file\n");
; ]# s+ ]; C, C) a. G @+ velse
: S# b; {- e' ^, V& w4 vprintf("Successful write\n");
 b3 V1 V2 ]2 U' G$ E3 ifclose(fp); 
 Y4 ?/ \: {; }& ?. C# A2 K3 \/* reopen the file */ : q2 |' ^% y8 y4 A- l. R" Y3 N8 a
fp = fopen(FNAME, "rb");
* |4 r' j8 S* e/ O- nif (fp == NULL)
- c' p, S6 i0 D4 [( U% P. a{ 2 H' k% ~; z4 X) |
printf("Error opening file %s\n", FNAME);
* q: F' }6 [+ h2 gexit(1); 0 [9 Z; h7 ~$ [5 f
} 
4 Q9 A O- s$ x/* extract the word */ / C4 z! X: i) r/ Y/ P) f
word = getw(fp);
6 \. L1 X0 J$ w! S0 q7 ]- kif (ferror(fp)) 9 U+ \" K. Z# ~- R
printf("Error reading file\n"); 1 Q" W3 ^2 J+ Q
else " m: t$ y0 V& Z# t
printf("Successful read: word = %d\n", word); 
- n( e7 D; ]; i1 ^& t. T/* clean up */ 0 j$ T7 e& k& x7 R: v
fclose(fp); ; c# v! R- |: m6 H/ N1 }
unlink(FNAME); 
" N7 `- F. b) `" S, w6 m, Ireturn 0;
) D! ^9 F8 m' M6 v- Q4 }& }} 

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