QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 2051|回复: 0
打印 上一主题 下一主题

函数大全(l开头)

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-10-4 02:58 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<><FONT color=#ff0000>函数名: labs </FONT>
  U& p5 }  Y1 _$ `  }* B, p用 法: long labs(long n); ( A- I/ a  Y; t7 t0 B" _; M2 y
程序例: </P>' |  d, f$ }! {0 x) Y7 M* p6 |- r5 V
<><FONT color=#0000ff>#include <STDIO.H>& l; a) F% @0 z  L4 Q8 g5 t
#include <MATH.H></FONT></P>
9 G1 P- \- {' `5 B<><FONT color=#0000ff>int main(void) " T9 V# l& @: L: \
{ + x6 y( p3 e8 D( S
long result; + A" k. m. E5 U1 e3 G! C
long x = -12345678L; </FONT></P>
% f8 _- E3 ?. ~<><FONT color=#0000ff>result= labs(x);
! \' G3 f- K+ O- y& \% Fprintf("number: %ld abs value: %ld\n",
' j4 X/ X3 `8 V. r! }+ {$ |x, result); </FONT></P>
  m  E+ [& d+ \; G<><FONT color=#0000ff>return 0; & }7 [- R, ~/ ?" p# G! i
}
' Y: z8 ]) C! N</FONT>7 D0 Z% K6 \' a) e/ C
, ?: q) b$ ]  H" w; I% ~" E# \
</P>
3 a, a0 Q! j. s<><FONT color=#ff0000>函数名: ldexp </FONT>
' v7 U& Q1 A% J  {8 a) K4 i功 能: 计算value*2的幂 1 x7 X. |3 g5 W/ I
用 法: double ldexp(double value, int exp); 1 m* j1 i0 K0 h3 e7 r, T2 q: L8 \
程序例: </P>
9 Y$ i. f, V' N. i9 i" A' W3 b' _2 l<><FONT color=#0000ff>#include <STDIO.H>
" S  [0 X* a7 ^3 z' A#include <MATH.H></FONT></P>- O% j! ~# w0 s7 [& B& b$ o
<><FONT color=#0000ff>int main(void) / F9 w: D5 D  t/ l. E6 D
{
% \: g2 h& P9 }; ?6 Y: fdouble value; : x% e6 J1 s- m( _7 X+ i% p
double x = 2; </FONT></P>
  g$ p% {! x3 t# B& J<><FONT color=#0000ff>/* ldexp raises 2 by a power of 3
8 y$ M  _4 D0 D1 p2 Zthen multiplies the result by 2 */   W4 j5 e  {, R
value = ldexp(x,3);
& B6 C" y- `- z. x$ K( \printf("The ldexp value is: %lf\n",
3 `0 B% k0 n6 q# ^# Wvalue); </FONT></P>* O7 J6 w  E* a4 ?
<><FONT color=#0000ff>return 0;
3 M/ `& o$ B; ~9 ]}
( I/ ~. R% v4 F
6 j; o; H0 P: f9 o% s, \7 O' `( N</FONT></P>
: T- t: ^) w" q$ P4 Q- {<><FONT color=#ff0000>函数名: ldiv </FONT>
) U" \) y8 H" c0 X' L4 ?* r功 能: 两个长整型数相除, 返回商和余数
: R" \! f. O/ z' }6 ]用 法: ldiv_t ldiv(long lnumer, long ldenom);   Q) }/ m. P- J9 B: ^
程序例: </P>8 ~: y* h/ P, j9 Q; v
<><FONT color=#0000ff>/* ldiv example */ </FONT></P>9 M& W( n; o; U, A6 r
<><FONT color=#0000ff>#include <STDLIB.H>
2 Z( E3 f9 r7 d$ K  q& Y' w9 g" S#include <STDIO.H></FONT></P>8 G/ T- ?7 O* H8 T3 }. M
<><FONT color=#0000ff>int main(void)
- |1 E" @3 j' j1 j- O/ T; U) h{
  F+ S' F2 U( b. k, p' L2 a% i% yldiv_t lx; </FONT></P>
4 p) R; ?. o/ z9 F- w<><FONT color=#0000ff>lx = ldiv(100000L, 30000L); ) I' D$ B. h& a! ]9 v- A4 Z3 n
printf("100000 div 30000 = %ld remainder %ld\n", lx.quot, lx.rem); 8 U- i% \* O/ @. m* g& C, u
return 0; </FONT>% m# p* X6 X. {# P. A; d- o
<FONT color=#0000ff>} </FONT>& d$ Z% ~: A* q0 h8 I6 n
</P>
/ C0 e0 b0 [# R) G<><FONT color=#ff0000>函数名: lfind </FONT>
+ ~: K1 X# T0 B5 [: F) d功 能: 执行线性搜索
1 U2 @8 i5 p, {" [/ B4 B& ]9 Z用 法: void *lfind(void *key, void *base, int *nelem, int width,
( k) \* e" I+ u4 D# S0 V% Aint (*fcmp)());
- C; h) C* M" d, {# A# S" j% B$ ~程序例: </P>
7 a( o2 H" A3 O8 u) H1 F<><FONT color=#0000ff>#include <STDIO.H>
$ N' [! C1 n& u. G#include <STDLIB.H></FONT></P>/ _/ d' {: `; {( N8 Z) Y$ P7 Q9 X, U
<><FONT color=#0000ff>int compare(int *x, int *y)
2 F( U/ A1 `& E- }; Y) z( r( k{ ) y. P" Q1 U( S1 g: ]3 y
return( *x - *y ); # I3 ~1 h  j! K9 f$ v5 z9 ~  ^4 W
} </FONT></P>* d5 x8 B" d  }% K( c6 G6 H) ]7 F
<><FONT color=#0000ff>int main(void) 7 b# j! ~5 m' [7 _% n( G
{
# h) q: I7 j/ q1 A. B, Nint array[5] = {35, 87, 46, 99, 12};
  V# Y3 Q6 n% F% w; V9 ysize_t nelem = 5;
9 H! L8 [2 X+ _9 aint key; 0 d1 s" M' e! B4 [- \* h
int *result; </FONT></P>
% X# g  Y( O- C$ @8 X<><FONT color=#0000ff>key = 99; ) W2 B- ~) l# H) A( y
result = lfind(&amp;key, array, &amp;nelem, 5 ~8 a5 Z' O/ V' J# C
sizeof(int), (int(*)(const void *,const void *))compare); / \  H8 a' k; Z. _
if (result) 5 n+ F+ B( E0 e  a  [
printf("Number %d found\n",key); 1 Y" Z4 {, \1 D! F7 m9 j4 n
else ( M8 {& I9 t- a$ U9 f6 N
printf("Number %d not found\n",key); </FONT></P>4 f# Z- {; P" W$ {
<><FONT color=#0000ff>return 0;
; H. C0 n5 M6 Z. n  C7 ^} </FONT>  Q. W' B$ Y* T
' e6 s4 t) `; I8 w" {' ?, U3 k
</P>3 j7 K# i1 O$ g8 z3 n$ ?+ @: a+ {& F
<><FONT color=#ff0000>函数名: line </FONT>" O- U( F" C% U7 {
功 能: 在指定两点间画一直线
, p* I. @% g9 f0 `3 v+ g用 法: void far line(int x0, int y0, int x1, int y1); 1 D3 G! v9 U: ]0 i7 u9 s
程序例: </P># p( z: c$ A+ n& K$ I# Y
<><FONT color=#0000ff>#include <GRAPHICS.H>
8 v% a. l  y& U! a- r% t+ m#include <STDLIB.H>
9 d  x# V$ C2 \7 q2 ^! q& T3 t#include <STDIO.H>
" E, A' A; f& K3 O  M5 I; Y: Z#include <CONIO.H></FONT></P>
/ d% y7 |, [. P$ [, ]( T6 K: O<><FONT color=#0000ff>int main(void) + x- o4 m/ ]. _7 d7 w
{
5 T  d3 Y# ~3 ]# T0 Z* \# z1 \: k/* request auto detection */ $ P% g* ]8 W! g3 n; F
int gdriver = DETECT, gmode, errorcode;
; A/ n: F' |; L% cint xmax, ymax; </FONT></P>
3 o. _% y4 \1 g! x" Q) A<><FONT color=#0000ff>/* initialize graphics and local variables */
4 N9 h: U# F' j, ninitgraph(&amp;gdriver, &amp;gmode, ""); </FONT></P>3 X: m0 e; r$ k" f
<><FONT color=#0000ff>/* read result of initialization */ 2 u! l; x9 g- o/ t/ {# D+ {! _
errorcode = graphresult(); / s- E+ ]: h: ^+ i9 s7 ]
/* an error occurred */
0 `$ O  H* g5 M, |5 D$ H8 fif (errorcode != grOk) 4 x/ I6 ]4 _, \1 a( j0 s
{ 3 g  W, X4 q$ `- G
printf("Graphics error: %s\n",
" {/ s6 J7 K; b% v6 jgrapherrormsg(errorcode)); " ]( a  q! `" n# ]' R
printf("ress any key to halt:"); ; C6 U6 t$ x' B: x. j
getch();
. i% ?) }( ?# `2 D2 {8 _; @exit(1);
7 t, Y5 j. q8 l3 z5 c} </FONT></P>+ T; W# ]) x( c; N' ~5 \$ x
<><FONT color=#0000ff>setcolor(getmaxcolor());
% i' A0 _1 a; s7 Dxmax = getmaxx();
* y, K+ N( E; pymax = getmaxy(); </FONT></P>' q3 i1 }# R. n4 g
<><FONT color=#0000ff>/* draw a diagonal line */ , @8 r4 p8 [1 k4 X" F5 P
line(0, 0, xmax, ymax); </FONT></P>$ W  t' p* K2 {( D: O
<><FONT color=#0000ff>/* clean up */ , u* }5 g" V- d/ W
getch(); ' I4 d+ H' E3 g7 m1 J3 e% g! t
closegraph();
. M1 ]! O) U2 U/ V' z" Jreturn 0;
2 b  C; `( E; @. {} % E* d8 r3 t4 o' g$ H# c$ n" }
</FONT>4 m  V* k" m$ o
</P>" u  R, }5 v3 M* Q
<P><FONT color=#ff0000>函数名: linerel </FONT>4 U2 B9 O+ U/ L/ s1 v. D
功 能: 从当前位置点(CP)到与CP有一给定相对距离的点画一直线 5 g4 j( J$ F. D- L! s/ K7 j) s
用 法: void far linerel(int dx, int dy); $ |6 |2 E; _" j% L
程序例: </P>* p0 n& |/ p- f% ^' ~
<P><FONT color=#0000ff>#include <GRAPHICS.H>
; {: \/ H2 q' }0 V#include <STDLIB.H>" [6 A" F, b  Q
#include <STDIO.H>$ j6 I/ k- ?3 {- u
#include <CONIO.H></FONT></P>1 M* |2 z2 L. c. h% u  V& T7 m
<P><FONT color=#0000ff>int main(void)   t3 I$ L: w9 _
{ 7 x5 C; p: i; l& r
/* request auto detection */
4 ~5 o) ^. c! q8 ]# d5 N5 rint gdriver = DETECT, gmode, errorcode;
2 x+ a8 q. F/ |4 _char msg[80]; </FONT></P>+ a4 F3 i* b' Y* V+ E! o2 ]' i) \$ U
<P><FONT color=#0000ff>/* initialize graphics and local variables */   M' h. V8 m6 k1 o) ?$ r
initgraph(&amp;gdriver, &amp;gmode, ""); </FONT></P>4 N8 v) }( n5 W( N( M1 ?
<P><FONT color=#0000ff>/* read result of initialization */ 3 |6 r  d5 W) P6 \
errorcode = graphresult();
8 N+ I+ h: ~' w1 U5 P( Wif (errorcode != grOk)
, R& F, ~8 s8 D( ]/ _{
4 d( g% I3 ]0 G: {* wprintf("Graphics error: %s\n", - \! }; A; I* d3 s) b4 E) q# r
grapherrormsg(errorcode));
; D# j2 P. b% H; K$ y. hprintf("Press any key to halt:"); . u4 M# J, w! }: r0 v# W3 B
getch();
9 V7 c6 H8 _0 R$ j) Mexit(1);
8 {5 @1 p* k# ]7 A} </FONT></P>
7 \. M0 z1 L9 i<P><FONT color=#0000ff>/* move the C.P. to location (20, 30) */ * {) e9 Q0 F) \' I0 r
moveto(20, 30); </FONT></P>  z8 E  E8 F% k1 k6 y
<P><FONT color=#0000ff>/* create and output a
# o& x! r  F$ p4 _; t/ ymessage at (20, 30) */ 1 `) M+ ^# x- E+ y
sprintf(msg, " (%d, %d)", getx(), gety()); - t1 ~7 l. L3 H$ X
outtextxy(20, 30, msg); </FONT></P>
8 o( ^( V7 m4 _$ q  h' ?$ A<P><FONT color=#0000ff>/* draw a line to a point a relative , T5 ~& A% o. @  L
distance away from the current
( F, C& l# ^/ }8 S& N6 u  d/ `$ O8 Cvalue of C.P. */ 9 G3 n. C6 X1 A) E
linerel(100, 100); </FONT></P># T4 M) q3 P' S+ M
<P><FONT color=#0000ff>/* create and output a message at C.P. */ ' a+ u. j( g6 H8 r* C
sprintf(msg, " (%d, %d)", getx(), gety()); + {0 J2 Y% O- |5 X" u
outtext(msg); </FONT></P>
9 j8 U: T& d5 |<P><FONT color=#0000ff>/* clean up */
1 o! f$ @% [$ igetch();
- s. W# R- f0 B& t2 B( }' pclosegraph();   z: W" k" X0 S
return 0;
& o8 I4 C  D  ], Y% d4 [9 B} </FONT>2 x" I4 K5 K5 I
</P>
/ H1 b9 x' S# f5 d3 K+ p<P><FONT color=#ff0000>函数名: localtime</FONT>
$ o5 x) m' o" w; [& v功 能: 把日期和时间转变为结构 ; U6 F2 ^7 N/ ?2 M! u: Z+ ?( ~
用 法: struct tm *localtime(long *clock);
. e8 D6 J" w9 x- K6 M% P程序例: </P>* O$ u/ X' D  i! x1 m
<P><FONT color=#0000ff>#include <TIME.H>
( b* C+ V: ]5 w2 @#include <STDIO.H>
- _' y, w7 ~6 X3 X- N/ K#include <DOS.H></FONT></P>
' r& D5 V1 {' s" {: |$ ]<P><FONT color=#0000ff>int main(void) / @3 e1 a* ^% Z- e+ m: r, V) C$ a
{
9 C5 G& e- A7 o' N) Gtime_t timer;
3 c; ^! b' d  k# Cstruct tm *tblock; </FONT></P>
0 z" H% E8 [+ H8 K$ a5 {<P><FONT color=#0000ff>/* gets time of day */
4 P+ w; k2 w. f; H9 {, Gtimer = time(NULL); </FONT></P>' p* Q0 h: Q0 {& K5 @
<P><FONT color=#0000ff>/* converts date/time to a structure */ 6 V. Q$ K. L2 k4 L- P+ n; ^
tblock = localtime(&amp;timer); </FONT></P>
$ i) A- A* R0 W! e  `<P><FONT color=#0000ff>printf("Local time is: %s", asctime(tblock)); </FONT></P># R% J/ l3 c0 D& ^2 B3 e
<P><FONT color=#0000ff>return 0;
0 q# R  I5 f, t# V}
; _& q# A( H' N8 E2 @$ \; ?$ i/ T* D" c8 y
( d' g6 n: ^7 k* L! W" t
</FONT></P>
' n/ T/ ]- v9 c5 t) h' Q( v<P><FONT color=#ff0000>函数名: lock </FONT>4 L4 u) N0 t3 Z0 w' \- B
功 能: 设置文件共享锁 , }+ W; l( n) Y3 e* q
用 法: int lock(int handle, long offset, long length); ) }, G$ {; A9 }
程序例: </P>
0 T  |9 O; _$ t/ t<P><FONT color=#0000ff>#include <IO.H>
: C) s3 T  _; h# l( Z4 t' n#include <FCNTL.H>
/ H" I- f; H8 q7 N1 ~2 ]#include <SYS\STAT.H>8 q& F* K7 t- i
#include <PROCESS.H>
8 d3 Y' f1 a" x1 Y9 m. d% d#include <SHARE.H>$ ?1 L: _0 C  }! ]0 E
#include <STDIO.H></FONT></P>
" H% R$ m! m  x<P><FONT color=#0000ff>int main(void)
4 Q: |& |1 T+ D. u/ q{
& v7 c0 o. k1 @1 f4 qint handle, status;
  G: d( m- M+ }long length; </FONT></P>* b, K4 E! X/ L( A; B5 |
<P><FONT color=#0000ff>/* Must have DOS Share.exe loaded for */ 4 g4 }- e8 [- o/ H
/* file locking to function properly */ </FONT></P>5 n. g- x) k: M8 \/ ?( Q( `
<P><FONT color=#0000ff>handle = sopen("c:\\autoexec.bat",
, a; a( ?  s& ~) b% @1 nO_RDONLY,SH_DENYNO,S_IREAD); </FONT></P>
( W: L# {5 q; Q( t<P><FONT color=#0000ff>if (handle &lt; 0)
( z4 `" K; m0 p5 X) Y* D# u& z{ / \  q' s+ D' q; ]
printf("sopen failed\n");
4 @4 e9 F% K4 L$ F# M, ^6 ]1 s* Bexit(1);
1 d3 t8 Z) T# V* H  [} </FONT></P>
4 h9 j5 z# X/ @( u' ?" b<P><FONT color=#0000ff>length = filelength(handle);
- R. m6 H3 }& P3 M" A& s! x0 H3 K6 `; dstatus = lock(handle,0L,length/2); </FONT></P>
, }$ @+ p/ v7 z  I1 J5 F' T<P><FONT color=#0000ff>if (status == 0)
- a: j0 O' u9 q% q( jprintf("lock succeeded\n"); . O5 T/ j; D% S# v2 f
else $ u9 f0 c0 y, c% {: f
printf("lock failed\n"); </FONT></P>1 s; J3 _( p5 S% j& N& {7 T/ m. d& @
<P><FONT color=#0000ff>status = unlock(handle,0L,length/2); </FONT></P>
* [; o. [5 _& W3 E<P><FONT color=#0000ff>if (status == 0)
& |! k6 x+ Q2 e  _3 r: Bprintf("unlock succeeded\n");
0 i5 d9 x! q- q0 }+ Kelse
; l5 h# a# ]0 f/ l. q$ H# Kprintf("unlock failed\n"); </FONT></P>1 j+ e( K+ C, n; n5 z7 u: N6 u
<P><FONT color=#0000ff>close(handle); 1 g! H  r" r6 M) G" i
return 0;
! p2 m) u# k! Z: C; V# s* g2 E}
, H! x  |0 `! A# u: P</FONT>
- Y  ?8 b5 V2 S4 {/ g" N</P>
# j( P, \! _  ^% U<P><FONT color=#ff0000>函数名: log </FONT>
: Q9 ?$ i+ E/ f功 能: 对数函数ln(x) . |. S. n: n" ~8 r1 v$ C; @- q& z- L: Y
用 法: double log(double x); 3 d! k: R7 |. ^: K4 Y
程序例: </P>
5 S, E5 I$ C5 ^7 V; }( y<P><FONT color=#0000ff>#include <MATH.H>
$ r! ^* k" F8 Q6 _- n. v7 y* W* D#include <STDIO.H></FONT></P>( C& q- y9 k7 B, Y+ P
<P><FONT color=#0000ff>int main(void) - b* m  z" Y+ U% G2 T
{ & s" w9 ~6 @4 d5 D' A* U  ]  b
double result; & V( h4 W# w& Y1 U# x  V- `! H
double x = 8.6872; </FONT></P>
: @$ l) C. Y; Q  q3 x<P><FONT color=#0000ff>result = log(x); ; P$ V0 |& Q: D, D
printf("The natural log of %lf is %lf\n", x, result); </FONT></P>% F  D, B" z+ K" a6 a! C
<P><FONT color=#0000ff>return 0; 6 g; o, D: S* C4 \/ P* D
} " P$ K9 d" f  n* Z6 ^

1 {' A0 P! N3 s. y7 \9 }5 L# V6 O</FONT></P>9 w7 U0 o/ T4 D* n* U
<P><FONT color=#ff0000>函数名: log10 </FONT>
5 m8 d, J: |$ S  Q功 能: 对数函数log # ?5 {; g0 @: V0 u
用 法: double log10(double x);
6 |4 U: n7 B0 [* r# ^7 g程序例: </P>
. f! A/ Q/ E/ E' z5 O<P><FONT color=#0000ff>#include <MATH.H>
! p5 |0 P7 l5 D; _+ U' }#include <STDIO.H></FONT></P>2 M% _; v( Q1 N6 N
<P><FONT color=#0000ff>int main(void)
/ `! h+ _9 @# K# K" F0 k/ t  u. W{
5 f  t! O% K, M" h  bdouble result; : ^+ R, |, l- L8 \/ f1 a& \( a
double x = 800.6872; </FONT></P>: c# Q$ K7 a; B& t( N( ~1 w
<P><FONT color=#0000ff>result = log10(x);
3 z0 E0 p5 n0 Q) o7 }$ {/ Yprintf("The common log of %lf is %lf\n", x, result); </FONT></P>
7 g4 X1 v, B  q) m1 W, @! ~& e<P><FONT color=#0000ff>return 0;
7 t+ H: n8 c, U! i" D0 n; x, Q}
/ h, [( R: I; p$ p
1 d* U# d8 L- H' H! X</FONT>6 v& a( [7 `6 ?; {
</P>/ Q5 C7 V+ U1 I6 S7 g# I! h/ Q
<P><FONT color=#ff0000>函数名: longjump </FONT>+ @0 n, U) E% R4 H2 ?5 Q) w8 b5 j9 q
功 能: 执行非局部转移
6 ~0 Q2 |  j- M6 H用 法: void longjump(jmp_buf env, int val); % W# m+ L: k0 T! S4 Y; Q; O# O" _1 ]
程序例: </P>
9 m1 o: l% G9 s- w- C# P<P><FONT color=#0000ff>#include <STDIO.H>
% J7 \8 ^2 [3 B( C* i: j0 Y#include <SETJMP.H>" y' Y6 ~% |. {
#include <STDLIB.H></FONT></P>
6 ~: W$ g0 y% p- o6 _  H<P><FONT color=#0000ff>void subroutine(jmp_buf); </FONT></P>5 H, R7 a" d2 Z9 p
<P><FONT color=#0000ff>int main(void)
! B- O; J% _9 Z; A; h3 g/ F& O0 B{ </FONT></P>" U$ t# |, X- u' B/ M2 Q8 [& i
<P><FONT color=#0000ff>int value;
4 h9 V3 H& W+ C& Z6 ~jmp_buf jumper; </FONT></P>
: M! L" B+ N; c<P><FONT color=#0000ff>value = setjmp(jumper);
5 }8 t# J( W( `5 yif (value != 0) * ^) X* I1 d* ?" v9 h. Q+ C. p
{ $ s% j* [/ C+ }. s
printf("Longjmp with value %d\n", value);
' P$ j: \, i! o. G& mexit(value);
  v0 j6 d, [! @}
) ^0 H$ h% N$ d5 g6 {) Z, Rprintf("About to call subroutine ... \n"); 7 Y* Y) N+ U8 O7 P
subroutine(jumper); </FONT></P>
- e; V6 D9 W1 @/ I- }<P><FONT color=#0000ff>return 0; ; b( q8 N) \- z; N* A0 r, S8 [6 F& P6 M
} </FONT></P>; h" K- I& I& B! U0 j6 F& ]
<P><FONT color=#0000ff>void subroutine(jmp_buf jumper)
; V6 S% \( G3 h8 j, T{
6 S8 I# Q; f' b7 w9 M0 ]: Jlongjmp(jumper,1);
4 B; |$ M8 J; m' a}
7 c3 K1 |- g* ~. j: p, F
# b3 ?( l% `. s7 @</FONT>7 h: u) \4 z3 B( c) g
</P>
# ~0 Z8 e( A. `( T<P><FONT color=#ff0000>函数名: lowvideo</FONT> , _) W, w1 J  k; U' D1 Y( @
功 能: 选择低亮度字符 7 W7 U* Y: }0 x* ^0 s
用 法: void lowvideo(void);
3 H9 p+ U4 T3 O/ b3 x5 a程序例: </P>; x! Q' z( e8 `* q& h
<P><FONT color=#0000ff>#include <CONIO.H></FONT></P>
" N( n" \7 |( `/ g- a! ]* ?# s# ?<P><FONT color=#0000ff>int main(void)
! N1 N& \( _5 S8 j9 o* V{
+ N0 [5 Q8 n; S- Zclrscr(); </FONT></P>% l1 f! R* [5 n, Y) e
<P><FONT color=#0000ff>highvideo();
$ `* t) Z: b, E9 _/ K. @cprintf("High Intesity Text\r\n");
/ S4 E0 a/ }( y  _* }lowvideo();
7 ?6 o6 a+ ^! q+ l: zgotoxy(1,2); # f* y( K1 V9 G8 L  Y: H. K
cprintf("Low Intensity Text\r\n"); </FONT></P>
1 m: `" M# M/ \<P><FONT color=#0000ff>return 0; , p! S) R+ `2 `6 Z: l5 ?# x
}
) W* ^5 w" k9 [
% g5 n  N1 a& `3 v" t8 d; O</FONT>
3 E3 o4 m  E2 C) T</P>
: R( e/ K8 G5 ~; I9 Q8 m' |<P><FONT color=#ff0000>函数名: lrotl, _lrotl </FONT>
( [! F, x7 }! W5 O5 j' w功 能: 将无符号长整型数向左循环移位   t5 \# @1 m. P' O$ ?
用 法: unsigned long lrotl(unsigned long lvalue, int count); % i7 z4 V! M% a) l" ~
unsigned long _lrotl(unsigned long lvalue, int count); % Z/ u1 d. U. `- x  i# X& A
程序例: </P>. G2 x3 ^6 M% h, b4 a
<P><FONT color=#0000ff>/* lrotl example */
4 L2 Y1 d. W+ k' x' L#include <STDLIB.H>$ `3 x8 I0 `( j0 R: j
#include <STDIO.H></FONT></P>
7 X+ {, ~: x' s9 ?; K9 b" ^<P><FONT color=#0000ff>int main(void)
' I8 q) _: O! X0 s7 j8 j{
! X* D- I" T/ c1 C6 y* eunsigned long result;
6 n% l$ P2 o# ?! m- L2 o- g; junsigned long value = 100; </FONT></P>8 e3 Z& [- M( R' H/ W
<P><FONT color=#0000ff>result = _lrotl(value,1); # [2 C1 ]  I  p# n8 V2 m5 t
printf("The value %lu rotated left one bit is: %lu\n", value, result); </FONT></P>
3 R( V$ I& j* x% \<P><FONT color=#0000ff>return 0;
4 B* ]4 ]3 o0 |+ J}
& y% _- j3 @2 s# E/ o</FONT>0 `, _+ n6 B1 k, N
</P>
* d3 ?6 s& t0 x/ e  O! i+ ~8 Y<P><FONT color=#ff0000>函数名: lsearch </FONT>$ n6 [7 l1 h, H* c8 [: B+ L2 b
功 能: 线性搜索 3 N8 {2 J8 E2 @2 B( {
用 法: void *lsearch(const void *key, void *base, size_t *nelem,
$ Y( a- x% n5 m& b+ w' Ysize_t width, int (*fcmp)(const void *, const void *)); ) m9 Z5 ~# \# v1 N- Q. ~
程序例: </P>
3 g! a5 b' w5 Y8 C. }2 y<P><FONT color=#0000ff>#include <STDIO.H>
, S' N  D! x- U#include <STDLIB.H></FONT></P>  y0 f  `9 P$ l/ {
<P><FONT color=#0000ff>int compare(int *x, int *y)
' x. h, V2 F  Z3 j{ - F% z" J! x! h
return( *x - *y ); 8 W0 o) ^' M. u  Z$ U4 q! U+ p
} </FONT></P>* r* O' ~9 T2 I6 r
<P><FONT color=#0000ff>int main(void) + ?5 U' [" ], R: N
{ ' e2 r$ J! U5 _
int array[5] = {35, 87, 46, 99, 12};   n# q6 t2 X; D" Z2 ^0 ~, \
size_t nelem = 5;
8 c7 H& p/ o. `' {/ Kint key; 9 t) @$ p( g& {+ J
int *result; </FONT></P>3 B* U' G# Y7 m: t* _
<P><FONT color=#0000ff>key = 99;
/ @% I: ^; q2 |result = lfind(&amp;key, array, &amp;nelem, 2 R7 i6 M* i0 l5 {( f
sizeof(int), (int(*)(const void *,const void *))compare); . Z+ C! x! q. x, y0 e7 F9 i
if (result)
, j4 l, k  S" Q" b# hprintf("Number %d found\n",key); 4 U' E& l4 o7 M: c2 ~3 p- V
else
8 `; S. Q/ U4 G( i! }/ d! uprintf("Number %d not found\n",key); </FONT></P>
8 _, w! F) A/ @<P><FONT color=#0000ff>return 0; ; P( t2 f6 D6 K  M  |4 l4 [
}
3 z" U8 e2 h. k3 Z* e, ]0 d  H# F4 x! Z6 N/ E, q
</FONT>
  _' S7 Z8 P9 O/ ]$ }: v5 Y</P>( l, ]* h9 [% V1 t" P7 E
<P><FONT color=#ff0000>函数名: lseek </FONT>9 K* p, c0 Y9 c6 U* p
功 能: 移动文件读/写指针 , x0 E/ i" T0 d7 p1 J7 f% S7 c- O
用 法: long lseek(int handle, long offset, int fromwhere); 2 n  d% |1 }( O6 q$ v% L$ Y, F" j
程序例: </P>
9 |5 S8 W) t6 V! q5 F3 }<P><FONT color=#0000ff>#include <SYS\STAT.H>3 X( K5 H* X% Z( ]
#include <STRING.H>7 ?8 }$ b* A+ d7 E9 f: ^; |* v
#include <STDIO.H>% N1 A+ W! `0 p  w" w
#include <FCNTL.H>
/ W6 c% s( o9 I& h#include <IO.H></FONT></P>
' g; \. n/ y' U# K$ n5 J" F<P><FONT color=#0000ff>int main(void)
3 x( E5 F: M( O& S: s{ 6 d4 c. C2 C) D
int handle;
. {9 ^+ o7 T4 |+ m$ F* Ychar msg[] = "This is a test";
! _1 Z  v2 {$ [2 h% bchar ch; </FONT></P>3 P: N/ L. J# L2 B0 |
<P><FONT color=#0000ff>/* create a file */ $ L4 i; e, l6 k
handle = open("TEST.$$$", O_CREAT | O_RDWR, S_IREAD | S_IWRITE); </FONT></P>
. H5 _0 M" [" @- {<P><FONT color=#0000ff>/* write some data to the file */ 6 P% a( n. c) z
write(handle, msg, strlen(msg)); </FONT></P>
1 E- ~0 ]( _( r, U* F. t9 u<P><FONT color=#0000ff>/* seek to the begining of the file */
" d6 E+ t) W# @; }: _3 T) zlseek(handle, 0L, SEEK_SET); </FONT></P>; E. t+ Z" V: R! D4 d
<P><FONT color=#0000ff>/* reads chars from the file until we hit EOF */ 5 c* Q" p, [  p2 c# U
do
9 X) n0 c7 M, U4 C{ # p# o, R: j1 p) p: s( u+ T
read(handle, &amp;ch, 1); # r8 ^2 r5 k/ ?1 \6 D+ B
printf("%c", ch);
0 H6 z# T3 p: g) c2 T} while (!eof(handle)); </FONT></P>1 D2 y& c! @0 J* D7 f: F
<P><FONT color=#0000ff>close(handle);
# x( Y% B6 m( m3 i% Zreturn 0;
$ w; M. v4 o( a5 b% q}
. w5 D8 }: a/ `. j, W7 g0 D' A</FONT></P>
' A- S1 V6 G" [7 b5 y2 l/ X$ X: ]<P align=left><FONT color=#0000ff></FONT> </P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-4-21 12:04 , Processed in 0.417096 second(s), 52 queries .

回顶部