QQ登录

只需要一步,快速开始

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

函数大全(l开头)

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

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2004-10-4 02:58 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<><FONT color=#ff0000>函数名: labs </FONT>( f9 T8 z6 G- Z! m
用 法: long labs(long n);
9 r; o4 k" b) O4 x) H程序例: </P>! _& @5 l$ |& Y) \7 f. o6 }
<><FONT color=#0000ff>#include <STDIO.H>$ }4 g5 q/ r4 {- |( d, \3 M
#include <MATH.H></FONT></P>
5 v' H: R  c6 D' P8 j% g- C<><FONT color=#0000ff>int main(void)
& C* L4 S  B0 J0 b& X{
' H+ a5 ^+ J- klong result;
, L; P1 \0 A1 @long x = -12345678L; </FONT></P>& I9 u& @+ @  k" r- p' ]+ p
<><FONT color=#0000ff>result= labs(x);
' _9 l% y8 i5 A* p( [2 @printf("number: %ld abs value: %ld\n", - I) t  H9 U, x" p/ N3 s$ }
x, result); </FONT></P>
, o3 D# S* j4 G" k! U, Y<><FONT color=#0000ff>return 0; : H. W( F1 Y; I- F# b% c; X
} 8 R$ D/ i! y+ W( ^! }. m
</FONT>% E. C; i! S+ Y9 j
3 }( c# k$ a1 }! c8 P- O. G( m/ h
</P>. Z% s' U; L8 @8 _5 R
<><FONT color=#ff0000>函数名: ldexp </FONT>
6 U2 a: N7 @. K' s2 N1 U. T功 能: 计算value*2的幂
# s5 z7 f6 a: y用 法: double ldexp(double value, int exp);
- U4 V  e3 |- v+ c8 \) e3 W程序例: </P>
: o+ g5 g  t" Y- U+ P- n<><FONT color=#0000ff>#include <STDIO.H>+ f' s2 H  D) z# a; @; G
#include <MATH.H></FONT></P>
. P. n8 I# a& L. Z# c6 C7 d<><FONT color=#0000ff>int main(void) ! E" K* L8 m! G6 |
{
% F; b( K0 a4 y1 S! K+ Xdouble value; 7 C+ t, G& ]* Z: ~4 B
double x = 2; </FONT></P>" L* B4 a) ]- [# L: Z5 y7 I/ j5 \
<><FONT color=#0000ff>/* ldexp raises 2 by a power of 3
! \8 `/ j5 i/ C: r: sthen multiplies the result by 2 */ + c& N& v7 T- g( m' u: d4 u6 l6 W4 w
value = ldexp(x,3); 6 D" ?5 |! ?, M1 D4 F) x5 l* |8 I
printf("The ldexp value is: %lf\n", - R5 J, q9 l5 }+ Q+ A; g
value); </FONT></P>
9 T, {) ]0 R( t1 {1 x( x<><FONT color=#0000ff>return 0; ' R, S6 ~* X6 n2 q6 d, P
} ( f' {/ R; n: z* A, `

4 [: n$ b/ y- K- J" q' Y8 w</FONT></P>
5 s1 T5 ^# c7 F* I* u% E/ Q# j" v<><FONT color=#ff0000>函数名: ldiv </FONT>+ u9 r2 z7 {  R: ?$ u, V
功 能: 两个长整型数相除, 返回商和余数
1 U9 f5 ^: G/ B; t用 法: ldiv_t ldiv(long lnumer, long ldenom);
" }% |/ Q  ~* P# M9 A程序例: </P>
: H4 ~% {3 ^& A& G) l3 c& \6 `3 Y# y<><FONT color=#0000ff>/* ldiv example */ </FONT></P>
9 v. k; N( \+ {<><FONT color=#0000ff>#include <STDLIB.H>) Z- {8 p" U- Z2 @5 e
#include <STDIO.H></FONT></P>6 \; \$ K& {9 o8 h
<><FONT color=#0000ff>int main(void)
1 l# ]% S2 K4 R, ^: s{
. C+ w& T# X# p. z7 j+ ~ldiv_t lx; </FONT></P>
% P  l7 x/ Z- q4 T+ B2 t3 @<><FONT color=#0000ff>lx = ldiv(100000L, 30000L); 1 D7 l$ s. \2 C) D
printf("100000 div 30000 = %ld remainder %ld\n", lx.quot, lx.rem);
1 K" |# ?, d6 I3 d+ A" [return 0; </FONT>
! _0 w0 d" O, z<FONT color=#0000ff>} </FONT>
6 \/ S, H* n2 p; k</P>9 ^! h: d7 d9 @' ~( D. }8 g3 F
<><FONT color=#ff0000>函数名: lfind </FONT>+ X& K7 F7 K2 r9 ^! Q# q
功 能: 执行线性搜索 # B/ x! N9 m! J* Z
用 法: void *lfind(void *key, void *base, int *nelem, int width, 4 }% I$ y- w- n4 N6 a
int (*fcmp)());
; N. h$ \, T. _: r  |8 }程序例: </P>
! n+ }3 W2 v2 T3 C! c/ t<><FONT color=#0000ff>#include <STDIO.H>
  @- j, |4 G1 p( N8 Y' @#include <STDLIB.H></FONT></P>2 Y. f' p& r/ e- O% T
<><FONT color=#0000ff>int compare(int *x, int *y) 4 z4 I" r. N9 W1 K) o
{ * {6 s. Z0 k7 f
return( *x - *y ); ' A5 [  S7 k) s$ Y+ Y0 u& o6 K
} </FONT></P>
4 \6 B) m! |; l( P# g! Q  r  y<><FONT color=#0000ff>int main(void)
+ K" n+ n& }; f+ h{ 3 S) t3 G2 _8 o1 P. ?
int array[5] = {35, 87, 46, 99, 12}; : \" S8 p9 ?% r) z6 l1 }
size_t nelem = 5; ( T& c% Z, A' p1 `$ a: E2 w
int key;
0 g; a7 \% Y! U1 Sint *result; </FONT></P>- W2 J; `  d/ Y# D6 h2 j5 U% F  B
<><FONT color=#0000ff>key = 99;
" V: N" ~* z  i: j2 k! K2 Zresult = lfind(&amp;key, array, &amp;nelem, 6 b: n$ E* w# F3 ~* d6 h/ N
sizeof(int), (int(*)(const void *,const void *))compare);
2 a4 Y# B6 n- c, G( |+ x8 Dif (result) 5 H* g9 k4 X* [8 c+ {7 K7 z
printf("Number %d found\n",key); 0 z( M; `/ ~) g# ?% d& z9 G: U, E
else 4 }3 i5 u7 ?: w7 a" G
printf("Number %d not found\n",key); </FONT></P>( n: a# L2 O4 {4 |9 J
<><FONT color=#0000ff>return 0; 6 y( {, {' H$ d% F& h% `/ q
} </FONT># [" k# [5 E' k( M; y

1 h6 V+ N  }4 |  Q5 [</P>+ k" j- k; \7 H7 T2 G
<><FONT color=#ff0000>函数名: line </FONT>
/ c, X* `3 \8 C! n  A9 W功 能: 在指定两点间画一直线 3 S+ A2 d/ y' p- j& z" ^
用 法: void far line(int x0, int y0, int x1, int y1); 7 N8 }0 A4 N' t# k6 z
程序例: </P>5 }: E9 O7 J8 A2 ?$ m6 Y
<><FONT color=#0000ff>#include <GRAPHICS.H>
; h' B( H# V, s$ T1 R1 L" C: F#include <STDLIB.H>, M4 v! d, F$ j+ `# s% v, M; w
#include <STDIO.H>
" L! N3 k4 O# E3 Q: p, `  s$ U#include <CONIO.H></FONT></P>
* P1 C& b" J) t) b) z8 m, r2 W! Q<><FONT color=#0000ff>int main(void)
3 i7 |+ ~; R4 q9 f1 p! U3 W. Z, }{
) t; {- h3 k$ y2 a( Z1 r' J/* request auto detection */
# m: d, ]6 [; t9 j. iint gdriver = DETECT, gmode, errorcode;
( c, ^0 {" Q1 s) u+ q/ uint xmax, ymax; </FONT></P>
& H) G. u+ e$ P& L<><FONT color=#0000ff>/* initialize graphics and local variables */
9 d9 S- T4 @5 M! o2 S% d  vinitgraph(&amp;gdriver, &amp;gmode, ""); </FONT></P>
. I7 x' n9 W" h4 k! i<><FONT color=#0000ff>/* read result of initialization */ 9 j. ?: q1 j2 e2 X' \- ~
errorcode = graphresult();
7 T+ z6 Z9 |/ N* |% L+ V/* an error occurred */ " S& T0 O& p/ e8 A' i0 `2 F) ]- I
if (errorcode != grOk)
) s- M. D2 a# Y# \- @, U' X{ * L) h# d. _. r6 k0 f4 k6 B9 S8 c
printf("Graphics error: %s\n",
% M' T" {2 |9 q$ jgrapherrormsg(errorcode));
8 a& @* D8 r- c$ e) I- o9 ?" Nprintf("ress any key to halt:"); & q; }! V, V# ~* S
getch(); $ h; t" f2 E9 t' b& ~8 O
exit(1); + Y9 H4 h/ H- a4 T$ G5 ]
} </FONT></P>
( n3 G: `+ @) K1 X4 n/ b' ]<><FONT color=#0000ff>setcolor(getmaxcolor()); 7 h% Y& [7 J6 ?6 F. B
xmax = getmaxx(); * F5 D0 R; Z) u/ K
ymax = getmaxy(); </FONT></P>
+ i8 B. W6 u" d! _# N0 \<><FONT color=#0000ff>/* draw a diagonal line */
& B! p3 |$ N! gline(0, 0, xmax, ymax); </FONT></P>* G( B8 h2 J! I/ h. H4 Y
<><FONT color=#0000ff>/* clean up */ 9 i9 U" b: B5 Q: }6 j3 R/ K
getch(); ) I7 K' g  b0 \* O! a
closegraph(); & @9 f1 m3 g' l2 \, m" F
return 0;
, U" p3 Y, J) y( l- |- {}
) S# T) @5 M. E5 A1 N& _7 s</FONT>: f, R( O. M4 j
</P>% d: g0 R) {" q! X3 w
<P><FONT color=#ff0000>函数名: linerel </FONT>3 L9 ]3 e' m1 e" y: ]+ V; G
功 能: 从当前位置点(CP)到与CP有一给定相对距离的点画一直线 7 i$ A$ s9 I# c! D
用 法: void far linerel(int dx, int dy); : r! N3 j" y: A: h% J' n
程序例: </P>  m  L0 A7 M2 P. K# C
<P><FONT color=#0000ff>#include <GRAPHICS.H>
% P- Z( t$ q$ |9 o2 e5 k#include <STDLIB.H>
4 L* q- d; P  H# A0 Y' f3 ^' K3 {- U8 o#include <STDIO.H>8 X: r) C& x) l
#include <CONIO.H></FONT></P>
* ]% y$ A, K1 D/ y& {<P><FONT color=#0000ff>int main(void)
, i) c0 i9 p0 _) p3 B{
, d# @$ T( L) i! n% d/* request auto detection */ " c7 y) h0 [5 i' Z' o/ F3 j* v
int gdriver = DETECT, gmode, errorcode;
  H. v3 G, _5 g4 R5 Ichar msg[80]; </FONT></P>
) E! H5 U) v9 e$ z1 `5 p<P><FONT color=#0000ff>/* initialize graphics and local variables */
6 [  z# U7 X. M! y, R) J$ o2 ]initgraph(&amp;gdriver, &amp;gmode, ""); </FONT></P>8 P0 q+ i1 E  G% W5 V2 v3 o
<P><FONT color=#0000ff>/* read result of initialization */ ) B8 D# v2 f- n
errorcode = graphresult(); + H- `0 I& v! g1 [
if (errorcode != grOk) ! p6 \! Y* A+ Z. o6 ~# H$ N
{
7 E9 l* W1 e- {. @! \printf("Graphics error: %s\n", + N- s5 a7 K- `) M
grapherrormsg(errorcode)); ( ~* G+ q9 B) J: X* g+ i
printf("Press any key to halt:");
( z# i/ S1 n) V/ egetch(); ) x" t0 j) U! q
exit(1); * A9 r* Q+ B9 w& _
} </FONT></P>) C$ A) h5 x8 Q. A) q+ z5 W
<P><FONT color=#0000ff>/* move the C.P. to location (20, 30) */ # [* Z6 y4 R0 y$ U( y
moveto(20, 30); </FONT></P>' ^! J# ~* v; r* x
<P><FONT color=#0000ff>/* create and output a $ A% m7 d; B7 O
message at (20, 30) */
0 \, D9 B: P8 y. rsprintf(msg, " (%d, %d)", getx(), gety());
/ z3 |* H6 W: q8 Q2 wouttextxy(20, 30, msg); </FONT></P>0 |8 `6 V+ o' \& n8 [
<P><FONT color=#0000ff>/* draw a line to a point a relative
% [! I* L& a8 }8 idistance away from the current
, ~1 ?6 ~& Q+ T2 Mvalue of C.P. */
( q0 X# e4 s0 o# zlinerel(100, 100); </FONT></P>
" J7 @$ v' M! K" C) U<P><FONT color=#0000ff>/* create and output a message at C.P. */
5 `/ b& q, o9 P+ i1 C/ z. B2 Hsprintf(msg, " (%d, %d)", getx(), gety()); ( q6 g1 ^9 P$ s! C: y3 }' P
outtext(msg); </FONT></P>
" Y( w. M" }9 N' c) u<P><FONT color=#0000ff>/* clean up */
4 F3 X2 G7 a  K# r* g) Ugetch(); 2 G8 G9 \- Z$ `( I0 R- K" T$ Z/ |6 d; v
closegraph(); " b# U0 V- V: T
return 0;
( G  i  W" w% f2 q% V: w} </FONT>
* \$ o& d" r6 F9 Y</P>) J/ ]) k' ]" b4 I4 Y
<P><FONT color=#ff0000>函数名: localtime</FONT> : U4 J. y0 R$ n0 U6 u9 S: A/ E! T
功 能: 把日期和时间转变为结构
2 o4 m. [, X3 m7 ?% S- ]用 法: struct tm *localtime(long *clock); * n' K/ n1 y6 j
程序例: </P>, F0 r4 Q& S9 O. m$ H; ?" e: q
<P><FONT color=#0000ff>#include <TIME.H>
# Y1 `$ L* Z, X+ _) a2 n$ f#include <STDIO.H>
0 \; V8 H0 f5 `/ q7 B#include <DOS.H></FONT></P>& U. p8 T+ v( a% W7 W- X
<P><FONT color=#0000ff>int main(void) $ F$ b+ J# P2 p
{
) Y0 \' `; Y# T0 stime_t timer;
2 j7 H, H* ^! ]struct tm *tblock; </FONT></P>8 T/ I' P$ w# l9 C4 d
<P><FONT color=#0000ff>/* gets time of day */
7 h% @3 p) ?9 ^) A6 ztimer = time(NULL); </FONT></P>: A$ X$ m/ ?$ a8 q9 v: y
<P><FONT color=#0000ff>/* converts date/time to a structure */   ?- C% t1 g9 k1 U( Y+ Q  I) L
tblock = localtime(&amp;timer); </FONT></P>
% `. l, h* A# c. c! e<P><FONT color=#0000ff>printf("Local time is: %s", asctime(tblock)); </FONT></P>
4 s4 [% U/ l% w<P><FONT color=#0000ff>return 0; * I9 s% c" g2 z' R7 Y  m& ^8 a
}
0 }( H# M9 w! {4 F
5 {9 c& C% Z# u) }: Y/ X% L& g
, T9 J+ t7 Y: O) e# d, k</FONT></P>
) S4 f& }+ v' |  e  s4 l3 @<P><FONT color=#ff0000>函数名: lock </FONT>$ A4 O7 x: r! s* Z' h& R) t6 ^
功 能: 设置文件共享锁
* t! z5 z& n- l/ q用 法: int lock(int handle, long offset, long length); ) T3 H3 u. P4 j
程序例: </P>
4 A6 W* S. A3 f<P><FONT color=#0000ff>#include <IO.H>  g4 h6 x* V$ o6 b/ e
#include <FCNTL.H>
" x: F4 B# z) U9 g( F( i0 @9 Q#include <SYS\STAT.H>
3 q6 Y: k4 r4 ]9 M/ y9 D. `#include <PROCESS.H>" {! O3 F( l, P  I: _
#include <SHARE.H>" \$ U! B$ K/ Q& G; Z
#include <STDIO.H></FONT></P>, w/ e$ p6 W/ n' U
<P><FONT color=#0000ff>int main(void)
4 T* W0 G! g$ W1 ^{
. O: a) A; W" Xint handle, status; 2 S+ J! b( D* T# @4 q
long length; </FONT></P>
$ p* D" v$ t4 a' |2 u4 n8 O. P4 r<P><FONT color=#0000ff>/* Must have DOS Share.exe loaded for */ 5 T# O- t- U5 s% h$ u; [
/* file locking to function properly */ </FONT></P>
) m! i5 T. i# F<P><FONT color=#0000ff>handle = sopen("c:\\autoexec.bat",
, I% b4 c" Z  ^* wO_RDONLY,SH_DENYNO,S_IREAD); </FONT></P>& }  R/ v6 f/ B! |% M1 b0 m! Z
<P><FONT color=#0000ff>if (handle &lt; 0) * U9 y  M0 u4 r# {' ^; C) Y- P" P
{ 3 m! ~2 {8 e2 y, s+ X# Q
printf("sopen failed\n"); % `9 `! {/ u) x; p; U
exit(1); % k! W7 i" {% E; ~0 u! l) h5 v) N
} </FONT></P>+ W* |* B2 P, v7 c% s0 w- n0 h  u
<P><FONT color=#0000ff>length = filelength(handle);
, s6 o  Z5 M3 N! k' o0 J% ~status = lock(handle,0L,length/2); </FONT></P>2 j: j2 {6 N! U8 i0 C. {; f
<P><FONT color=#0000ff>if (status == 0)
( X* i1 I. R7 dprintf("lock succeeded\n"); 7 y) k5 m. D0 B# Y
else
* u  Q& a% G+ |1 A/ J! B) cprintf("lock failed\n"); </FONT></P>
" p6 q' U. {, d2 M) I<P><FONT color=#0000ff>status = unlock(handle,0L,length/2); </FONT></P># ~0 G6 A4 W4 e5 i& ^+ e8 T
<P><FONT color=#0000ff>if (status == 0) 2 Y0 l; ~  U$ w, ?( K, g$ U
printf("unlock succeeded\n"); 5 J  x" m0 n5 [4 A+ V. f3 W
else
4 _2 w4 K" Y' m& z6 O: tprintf("unlock failed\n"); </FONT></P>! d( r2 S: B' E5 ?% U
<P><FONT color=#0000ff>close(handle); $ R! T/ d# r' h! ]- [" H! L8 o! ?- }
return 0;
) ]7 _7 Y6 A( Z  [% R} & u& Y, A9 O  A: j! s8 ]1 R
</FONT>
7 h. J) k8 }) i; |  s* ^</P>/ z; x, v4 M! Z# Y7 F9 w8 G
<P><FONT color=#ff0000>函数名: log </FONT>
/ O! g: ?3 Z) f( o: K  [功 能: 对数函数ln(x)
2 a' X" s1 b4 D1 G( e* H: X用 法: double log(double x);
* \1 O( d8 f3 z( [8 f程序例: </P>
1 f2 F9 t# H) J7 L( b8 M5 I, \<P><FONT color=#0000ff>#include <MATH.H>
: P- x$ Z6 S/ @+ A& H# G8 ?4 ?#include <STDIO.H></FONT></P>
" N5 @* f. j/ j) x! t! ^2 ^' M, {<P><FONT color=#0000ff>int main(void)
6 l) }& g) Y8 Q' O/ f! B; b{
  D5 n- V: o; Rdouble result;
" s6 d' p' M" P* ^$ l' pdouble x = 8.6872; </FONT></P>
: L% S2 B8 i% _# h<P><FONT color=#0000ff>result = log(x);
- I2 ^7 G0 ]0 d* J' Dprintf("The natural log of %lf is %lf\n", x, result); </FONT></P>
, V& F4 H8 [3 Z6 c. n# c& L. ?6 a<P><FONT color=#0000ff>return 0;
  B2 ^% I; a0 P}   [. v2 z: L7 i$ \) w- j# u6 s  Y
% J0 i! J7 V* k# Z3 Y* B
</FONT></P>
2 m8 {! R! Z. r7 }+ F6 ]<P><FONT color=#ff0000>函数名: log10 </FONT>* w7 ~5 A; [3 O
功 能: 对数函数log   n! O: f: ^) C8 R1 k: W+ s6 S$ L
用 法: double log10(double x); . j: j' ]; p# ~
程序例: </P>
! z3 J0 ~+ L8 V% L  b<P><FONT color=#0000ff>#include <MATH.H>  D; n+ d7 X* o; `/ r; ^
#include <STDIO.H></FONT></P>: Z3 \5 A! X1 J; p8 `" B
<P><FONT color=#0000ff>int main(void)
) ^1 \: Z5 v+ c# W: s6 p" J: I{
" x4 _  Y$ ^! ^' U+ T( Z9 U% u# {! Rdouble result; ! t2 S" w! e: M
double x = 800.6872; </FONT></P>0 W0 W& ]* R' x, K7 l0 g% E8 m
<P><FONT color=#0000ff>result = log10(x); , K, f# h6 M# {! b" D( a
printf("The common log of %lf is %lf\n", x, result); </FONT></P>
( U, Z/ R; ^1 v. O5 t<P><FONT color=#0000ff>return 0; : B/ T' E  D- Z: A
} " x7 e' N0 ?3 S  K, o8 u
2 [# A2 j4 b; P7 a' @. e
</FONT>0 O" E9 v# \4 M- T
</P>
- C3 g' q( J. @9 ]& t<P><FONT color=#ff0000>函数名: longjump </FONT>
5 N- ^: E' l; f  t& _, U功 能: 执行非局部转移 6 L: Q/ G% w) \$ ?- S
用 法: void longjump(jmp_buf env, int val);
" \9 P' I+ ]# q( k, L5 R: H程序例: </P>
$ b; _& t$ D" M; R<P><FONT color=#0000ff>#include <STDIO.H>
/ G  D6 A& l7 e6 f#include <SETJMP.H>
* M& N- g0 a4 f' p2 M( t) c#include <STDLIB.H></FONT></P>
9 A3 O2 B6 `* t8 T: x<P><FONT color=#0000ff>void subroutine(jmp_buf); </FONT></P>* \( m3 n, V# \* l6 k1 M' a
<P><FONT color=#0000ff>int main(void) / y, R* m) g! z6 `0 z3 R
{ </FONT></P>
6 A1 j' i  ^5 u- D<P><FONT color=#0000ff>int value; : E9 b  ]" u* c& x* p
jmp_buf jumper; </FONT></P>
6 V1 W8 k0 R. K8 _. D9 A- }<P><FONT color=#0000ff>value = setjmp(jumper);
, w9 a5 D: n, a0 X1 M5 Lif (value != 0) + Q/ z/ G% J$ M- v" v# ]8 R; ~
{ + y- b* `, |6 S# [/ c- z
printf("Longjmp with value %d\n", value); % A8 n4 `' A8 l; r
exit(value); % w3 D+ @7 @8 j/ Q3 x5 Y
}
! S# q1 c) c: a$ ~4 h' \+ Iprintf("About to call subroutine ... \n"); - x8 U& g' d* J. _# `7 `
subroutine(jumper); </FONT></P>
. a) Y, y; L' R# n" s' ]; W7 e# }<P><FONT color=#0000ff>return 0; ) A$ p. J5 Q1 f1 T, P" ~8 ^1 ~
} </FONT></P>! W! C) F3 G0 A. F! D: d+ {- O
<P><FONT color=#0000ff>void subroutine(jmp_buf jumper)
; W; y& Y4 \$ o# h& Q, u6 H{ 6 A* ]2 e# J( Y, q7 b- u: t
longjmp(jumper,1);
2 {# X  L, A) B6 {}
; f( W5 C2 F! u# ^, b! x" }3 g+ Z1 B& Q
</FONT>/ w$ S" N' {( z
</P>
8 C" J  x% D& f) `0 h$ Y<P><FONT color=#ff0000>函数名: lowvideo</FONT> 7 V2 b* I+ @* j0 t
功 能: 选择低亮度字符 - O6 {  o! b& g5 u# ^
用 法: void lowvideo(void);
8 F5 d( o: {+ F, s/ [1 [程序例: </P>
3 t  A2 b7 ~2 m0 s9 b( [/ l. G$ t<P><FONT color=#0000ff>#include <CONIO.H></FONT></P>4 \' ~( T4 T* L# D7 i  t% g
<P><FONT color=#0000ff>int main(void)
8 F6 l6 V$ H3 D& i, q1 t{
/ A7 t$ H7 ^+ y  n+ U/ O% Q6 X' d: F& uclrscr(); </FONT></P>; B4 L" R! f$ y
<P><FONT color=#0000ff>highvideo();
7 Y3 R: i* y, u3 A. C; j+ Bcprintf("High Intesity Text\r\n");
. c  L3 R6 o- J0 C7 Xlowvideo(); 1 r( N$ Q0 o3 y/ W; f4 ?: r
gotoxy(1,2);
3 d( }; D* z% `1 U  qcprintf("Low Intensity Text\r\n"); </FONT></P>4 y) T4 @1 x) C$ l1 i! B: o
<P><FONT color=#0000ff>return 0;
& R/ j5 i2 G* X5 j* {}
# a* X  z/ P  i$ T% p
9 r, f. ?9 ^$ s% Y% O3 U</FONT>
7 b+ i. e- X/ `. D</P>
0 C$ c4 t2 K) ]; l<P><FONT color=#ff0000>函数名: lrotl, _lrotl </FONT>( x& r" g6 T6 v; |  D4 n+ J5 U
功 能: 将无符号长整型数向左循环移位
8 z9 W1 [! d+ P2 z用 法: unsigned long lrotl(unsigned long lvalue, int count);
" m+ [" M) h# j! gunsigned long _lrotl(unsigned long lvalue, int count); , O# q/ G6 [7 g4 w# Z1 ]. c+ j
程序例: </P>
0 |3 A) Y0 j7 ?<P><FONT color=#0000ff>/* lrotl example */
- e3 B! E/ ?( o/ {" Y/ _/ W& h#include <STDLIB.H>0 G6 |. b5 l1 X2 Z+ \9 O5 B* S
#include <STDIO.H></FONT></P>2 a# w/ I; g. y9 a4 t0 d
<P><FONT color=#0000ff>int main(void)
' L& W) S& v& A( `# P3 @{
, J/ \+ E% K+ @2 q1 K# gunsigned long result;
. r( M( f4 @2 Junsigned long value = 100; </FONT></P>
* U* O! w1 W- n<P><FONT color=#0000ff>result = _lrotl(value,1); 3 [1 _, Q5 n9 y  H2 U) J* d& g
printf("The value %lu rotated left one bit is: %lu\n", value, result); </FONT></P>* K3 G7 _) x% X
<P><FONT color=#0000ff>return 0; , l6 X) ]; S" D3 j
} 3 F  T6 F! B: ?# H$ h/ o
</FONT>+ p1 H* y8 i2 t5 l6 D
</P>
( R9 O( s2 T) R$ M  }# `" \7 |<P><FONT color=#ff0000>函数名: lsearch </FONT>
, H4 i4 w7 d4 Q7 ^1 J: q. [+ }: r, a功 能: 线性搜索
2 g) J1 ^- d) M) @用 法: void *lsearch(const void *key, void *base, size_t *nelem,
+ v, W+ `( [3 T; l! \. b: H/ usize_t width, int (*fcmp)(const void *, const void *)); & B; k9 E; x' }0 m9 {9 R5 S8 W
程序例: </P>
' L4 k- o6 C& `( z+ a<P><FONT color=#0000ff>#include <STDIO.H>
8 U8 o1 M- X% G1 a7 H0 U1 ~/ d#include <STDLIB.H></FONT></P>0 L0 o( x' D9 @4 T. C; ]" g
<P><FONT color=#0000ff>int compare(int *x, int *y)
5 }: s6 g  H6 D9 ]( z" t% G{
/ s( l/ R7 X& r% ~* C9 Ureturn( *x - *y );
2 ^/ j- b/ @/ X. Y% f' _% _  x} </FONT></P>3 R4 Y! E/ e8 H9 @
<P><FONT color=#0000ff>int main(void)
* G$ H) {8 S2 e1 g* `6 \{
$ t" [6 x6 U3 Q. n3 Dint array[5] = {35, 87, 46, 99, 12};
; W! \* M  t6 Y& Asize_t nelem = 5;
- u1 g* I* G) kint key; " z+ }& S9 n5 ?
int *result; </FONT></P>
; `+ ]4 d0 h( ]% M# b; T: v<P><FONT color=#0000ff>key = 99;
" ?) P# w6 B  y" gresult = lfind(&amp;key, array, &amp;nelem,
( d6 \% {9 u. Xsizeof(int), (int(*)(const void *,const void *))compare);
0 V: g- g+ _6 w  g& R4 k9 eif (result) - Z5 g2 s/ }6 k+ H2 ?% \
printf("Number %d found\n",key);
4 ~; {8 d/ z- b, L  N9 @else
* ]7 a: W- E8 _( {1 ~/ Gprintf("Number %d not found\n",key); </FONT></P>
" {6 p! S% Z) }( i( }<P><FONT color=#0000ff>return 0; ( w0 w  ~! T2 R$ T
}
* `4 E1 p  p$ N8 Q% x
, X* E) F4 `& |+ |1 H</FONT>
, b" ^) ^( V9 F5 s" Q, [8 {" @</P>
+ _- ?2 N, p" x2 N<P><FONT color=#ff0000>函数名: lseek </FONT>
0 G" ~- Z# X. v! Z- R- g! \+ j/ m; R% W功 能: 移动文件读/写指针
3 d' E( G8 `7 ?5 D用 法: long lseek(int handle, long offset, int fromwhere);
6 a" W+ D3 V* Q3 |& o程序例: </P>
5 e8 C$ W8 M  G" i9 M7 K( s<P><FONT color=#0000ff>#include <SYS\STAT.H>- V" \. t' ]# G! g
#include <STRING.H>
/ u! A$ s' Q2 M/ W, E8 T- n#include <STDIO.H>) @. J5 m! D& m; Z; {$ a5 j
#include <FCNTL.H>
- J6 E6 N  I- x: Z' Y. g+ t#include <IO.H></FONT></P>0 F4 c9 K+ t: B1 O7 t  R+ \
<P><FONT color=#0000ff>int main(void)
7 z/ a, B$ B" T" a/ a4 k{
6 s1 R# m! i. Q: u- kint handle; ; \$ j+ o1 c4 U0 v
char msg[] = "This is a test";
( ?2 C" G$ Q; i2 Nchar ch; </FONT></P>
& B' b5 L: w1 p! j8 k<P><FONT color=#0000ff>/* create a file */
  V# {2 I4 q/ h6 H, x8 Vhandle = open("TEST.$$$", O_CREAT | O_RDWR, S_IREAD | S_IWRITE); </FONT></P>+ N1 s9 `  s' @7 U( y; |8 E- S
<P><FONT color=#0000ff>/* write some data to the file */
# j7 P; z& ], X5 X' pwrite(handle, msg, strlen(msg)); </FONT></P>+ B3 w: ?+ D) g, e
<P><FONT color=#0000ff>/* seek to the begining of the file */ , y- o* J% B! D  {
lseek(handle, 0L, SEEK_SET); </FONT></P>4 h/ r- y7 r+ _- t1 T! ]
<P><FONT color=#0000ff>/* reads chars from the file until we hit EOF */ 5 k' ~7 g' k4 n
do 5 t5 g4 u1 {$ n- J4 Y4 a' N7 k4 B
{ : d4 V8 L+ H2 Q/ K  ^
read(handle, &amp;ch, 1); $ r% d5 t7 G+ t
printf("%c", ch); 3 T. Y( K/ I3 s
} while (!eof(handle)); </FONT></P>8 s2 S& D1 ?7 r! \
<P><FONT color=#0000ff>close(handle); & O2 U/ M4 S/ T- y2 L
return 0;
$ e5 y. M* R3 d9 [, k( K} + Z* R) o3 X- \2 C
</FONT></P>
( v7 \/ F. A* |; Q<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-7-21 05:13 , Processed in 0.291579 second(s), 51 queries .

回顶部