数学建模社区-数学中国

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

作者: 韩冰    时间: 2004-10-4 02:58
标题: 函数大全(l开头)
<><FONT color=#ff0000>函数名: labs </FONT>
% r: o2 B. O& g* \& t用 法: long labs(long n);
  a# G. D( s( U8 r' D  l% s程序例: </P>
" I' i2 E/ g" X  a. Z7 z) z) a<><FONT color=#0000ff>#include <STDIO.H>1 \0 s7 K; D! D+ ~
#include <MATH.H></FONT></P>0 X' k0 r) |% h+ p1 U7 u
<><FONT color=#0000ff>int main(void) / H% I9 H. z: ^4 ]3 ^2 r, K
{ 2 @0 C) r& P' w/ [3 C
long result;
9 W/ g# v$ q3 D, V1 hlong x = -12345678L; </FONT></P>
8 C  n/ }+ O$ k0 I# w1 Z<><FONT color=#0000ff>result= labs(x); 5 i5 ?8 J5 z: |# h
printf("number: %ld abs value: %ld\n",
; d, W6 n, f1 u6 u" \x, result); </FONT></P>9 z6 u$ m+ i1 @' g( W1 _2 R) ?% J
<><FONT color=#0000ff>return 0; ; [, H; S1 O) a$ m2 [8 g8 N
} & \: d8 ^/ j2 \8 f0 {, r$ y( ?
</FONT>
/ I+ q: h# w, l+ G$ W! `: ~* X+ F. H5 }& |; k
</P>  F% n2 H& E" B$ m+ `4 z
<><FONT color=#ff0000>函数名: ldexp </FONT>5 \/ Z, {5 L7 ]# p& b1 i
功 能: 计算value*2的幂 ' [5 ~( t* R+ X. W$ F# |
用 法: double ldexp(double value, int exp);
1 h7 I9 O$ Z; a! J" [2 _! r程序例: </P>
- P9 Y* Y, G5 S3 n3 @<><FONT color=#0000ff>#include <STDIO.H>
6 ^% `( ~) r1 u6 A4 {#include <MATH.H></FONT></P>
% h% _+ ^( K3 R<><FONT color=#0000ff>int main(void) 4 x% u' ~! @8 u3 l
{ ' k; p8 `1 l7 G0 Q* c
double value;
! t% D' @1 N; d% `double x = 2; </FONT></P>
  R4 T7 k7 m5 H0 M! {<><FONT color=#0000ff>/* ldexp raises 2 by a power of 3
6 H! w' R8 i8 ?* R7 nthen multiplies the result by 2 */
" A. O5 w7 B0 ~) L0 ~value = ldexp(x,3); $ r7 X" H: D4 J7 q
printf("The ldexp value is: %lf\n", / D9 s& o! ?) Y( h* A( _+ G
value); </FONT></P>
' u# m0 c$ o' h+ n4 |- l* w<><FONT color=#0000ff>return 0; / |* M: y% a3 H/ x/ g4 f
}
* j# b+ W2 D$ Y% s  l2 O- a  C/ L# \- o0 l2 b- A
</FONT></P>
; p3 [3 o! S  k$ R- f<><FONT color=#ff0000>函数名: ldiv </FONT>4 s$ N$ A$ c3 X2 j0 }% @1 V
功 能: 两个长整型数相除, 返回商和余数 $ n" z5 _4 x7 B0 Y, s; r2 b2 f, ~
用 法: ldiv_t ldiv(long lnumer, long ldenom); - a* D8 q& }0 [& e6 o
程序例: </P>
1 r" j- h  G% j! o( o  `<><FONT color=#0000ff>/* ldiv example */ </FONT></P>
/ j5 }  ~% J, E/ h* r<><FONT color=#0000ff>#include <STDLIB.H>
  ~) N: `  L5 f& W! w* z/ ]% F1 ^#include <STDIO.H></FONT></P>1 W7 O5 J* [( }5 @* w; c* t$ B
<><FONT color=#0000ff>int main(void)
' d' L' n; y$ u6 @  D0 \. s. t/ U* n{
- z0 Z5 @# r. ~& a7 s- U1 Gldiv_t lx; </FONT></P>9 a9 J. j/ x" M5 d
<><FONT color=#0000ff>lx = ldiv(100000L, 30000L);
+ P- D6 F$ Z$ G+ i* P* aprintf("100000 div 30000 = %ld remainder %ld\n", lx.quot, lx.rem); % {$ w( h/ ^% A8 B4 H0 r
return 0; </FONT>( l% E+ v3 L+ _- U0 `
<FONT color=#0000ff>} </FONT>: a5 T. y. D2 \) T; c! e' i
</P>
- R0 z5 P# G# p( U1 j" I<><FONT color=#ff0000>函数名: lfind </FONT>
8 x, f1 h, m- D- \0 G- i功 能: 执行线性搜索 3 m. T2 i/ y6 B% j  y
用 法: void *lfind(void *key, void *base, int *nelem, int width, 4 A5 ~5 \" e( K2 e( K
int (*fcmp)());
/ I% r- C( g- ~# d. `; O0 ~程序例: </P>/ V! I5 q1 v$ d
<><FONT color=#0000ff>#include <STDIO.H>
, A: I) i" `; @7 @/ ~( l- ]/ a0 T#include <STDLIB.H></FONT></P>
; j0 ^' g/ |/ _( J* s5 c* Q<><FONT color=#0000ff>int compare(int *x, int *y)
" O# `3 e/ \6 `" ]& _{ " R7 R* A6 V2 v6 y; g0 H
return( *x - *y );
# ]! h( S' b1 O6 e9 }} </FONT></P># W* b& u: {5 d1 i! a4 h
<><FONT color=#0000ff>int main(void)
% \: `* [( K( K4 s$ v" g{ * o6 D4 R1 E2 O& q- X; M% V9 t
int array[5] = {35, 87, 46, 99, 12}; % n0 y) a, q2 Q! M
size_t nelem = 5;
7 y% U& ?! `) H% F+ zint key; 0 P' [' B4 H' D* K$ u( ?. c. }! B
int *result; </FONT></P>$ k8 q3 U% ?0 I
<><FONT color=#0000ff>key = 99;
. p8 s6 b5 b7 ]: ^result = lfind(&amp;key, array, &amp;nelem, % a: ?. t" M) k" R% P$ F: [
sizeof(int), (int(*)(const void *,const void *))compare); ; E7 Y6 h" j( s% P3 o3 k; [
if (result) 3 L  F* K, h* w' E8 R6 e3 t- t7 L3 Q
printf("Number %d found\n",key); ; Q9 O' [0 H9 M- @+ x0 E  c* _" r
else
( W3 X: T6 A0 U, t% r: j3 X# \: p4 u" P8 lprintf("Number %d not found\n",key); </FONT></P>
) L7 x; D* [$ ~" v<><FONT color=#0000ff>return 0;
; Z! Y8 B+ p# E# ?} </FONT>
$ ?4 ~4 K$ V/ B
! W! Y) X  ]! L4 w' b</P>
% N0 d3 a% W% W: P  s<><FONT color=#ff0000>函数名: line </FONT>6 g/ t0 `) ?: f0 E6 @  q8 k9 r
功 能: 在指定两点间画一直线
+ Z, Z8 o; W& `用 法: void far line(int x0, int y0, int x1, int y1);   B6 i9 T* o3 F4 E: ^/ g- ~
程序例: </P>5 u( I. L6 _! K1 l* M
<><FONT color=#0000ff>#include <GRAPHICS.H>
/ N7 U" H0 \, {7 \7 B' u9 {#include <STDLIB.H>; d3 N; [# v. P7 o/ w+ x# n+ S
#include <STDIO.H>. f% }+ O; t" [# X" l/ R  Z
#include <CONIO.H></FONT></P>' i, ]0 K% e# ~3 A: k
<><FONT color=#0000ff>int main(void) 8 z, ~0 k) d, r
{ 5 |( f4 r6 O2 a# M( N/ v5 Q
/* request auto detection */ 3 H: {( H' a. F/ f$ [1 P  D9 s
int gdriver = DETECT, gmode, errorcode;
" u0 \, @7 N  Z2 Q6 w+ j# hint xmax, ymax; </FONT></P>& a4 q" v7 Y* U' m: d& Q  @
<><FONT color=#0000ff>/* initialize graphics and local variables */ ; Z$ ~4 C% I; Q
initgraph(&amp;gdriver, &amp;gmode, ""); </FONT></P>" V! G$ s9 H- K/ l$ h4 V" d# ]
<><FONT color=#0000ff>/* read result of initialization */ 9 o' P/ @0 ^1 u" v
errorcode = graphresult(); 3 U, K3 \9 Q/ J- J8 Y
/* an error occurred */
8 s% w; n. C# e8 \6 Y. p3 w% wif (errorcode != grOk)
; B9 I' B( w+ v{
3 Y/ i/ X! \, |4 s# o+ C$ a! Uprintf("Graphics error: %s\n", 9 V2 b& |% E6 {) V6 }
grapherrormsg(errorcode)); 7 C0 E( v; e+ t) e! w( r* s
printf("ress any key to halt:"); ! b. v$ y, x9 J- H- H2 V
getch();
; [" V6 R, d, @) s( k( M" ?exit(1); * e' }, ^# c3 `8 Y9 M1 w/ D
} </FONT></P>0 Y/ @2 j# _/ v% f
<><FONT color=#0000ff>setcolor(getmaxcolor());
8 o- R/ D8 T% h/ }1 v3 u+ R5 Mxmax = getmaxx(); ! X" r) f; [7 L- E' `& q  a
ymax = getmaxy(); </FONT></P>
" P: e" o* V3 N1 {# Y9 p<><FONT color=#0000ff>/* draw a diagonal line */
3 M" O7 Q. W. k. P- q* F; I4 Nline(0, 0, xmax, ymax); </FONT></P>7 C+ n/ P1 v) d
<><FONT color=#0000ff>/* clean up */
, X0 y. I/ Y" @; C( ~% i  }getch();
% E' t7 a) w! H( Q1 V) i, ?! f6 o. Sclosegraph();
: G; V) M. i) x+ |; C, f# k* Hreturn 0; " c- ?* Q3 `. i( W0 l. m! ]
}
/ t) G% C1 M# V/ ?</FONT>" \$ k: I4 e+ S2 y6 z! e* y- W; l1 q
</P>- L' @, k# y2 W  P. u7 o
<P><FONT color=#ff0000>函数名: linerel </FONT>
6 i4 h1 p$ E8 {( s) r) v; F功 能: 从当前位置点(CP)到与CP有一给定相对距离的点画一直线 ( T& u; S- H) b# J- A3 T
用 法: void far linerel(int dx, int dy);
& C2 T/ P, U  u程序例: </P>
, M# U) }6 z' \0 d5 ^) L6 Y<P><FONT color=#0000ff>#include <GRAPHICS.H>; r7 {; _1 I3 y4 U5 i1 b' P7 ^
#include <STDLIB.H>1 {8 ?7 R% @$ U: a' I( x7 y6 Z5 ^
#include <STDIO.H>" ]1 G! T& e: b! y* @( m8 g
#include <CONIO.H></FONT></P>; b4 y( ~$ l, x6 l$ m
<P><FONT color=#0000ff>int main(void)
& f7 H$ c- P: O{ - ~8 r7 M2 u4 @6 }' ]* b  i8 K9 x
/* request auto detection */
6 X8 ]+ ^8 w$ D% F* L* Pint gdriver = DETECT, gmode, errorcode; * J1 f: ~5 x* E3 [4 C
char msg[80]; </FONT></P>
. X0 l9 o# [% R9 W5 \& Q  T<P><FONT color=#0000ff>/* initialize graphics and local variables */ ' j9 Q, d7 M+ T8 H# n, f5 c
initgraph(&amp;gdriver, &amp;gmode, ""); </FONT></P>
/ B+ V( l- C" k& w4 [: S8 @) P. a<P><FONT color=#0000ff>/* read result of initialization */
0 |. X: n! n0 K" F  J4 _: v' ^' ferrorcode = graphresult();
2 X5 \6 G$ z) N6 v7 ]+ r9 Jif (errorcode != grOk) ! `1 p5 u, u- c. y
{
4 F4 s% B6 w4 X$ t8 l  Aprintf("Graphics error: %s\n", 4 p+ p0 ]1 u: g; R: T+ E
grapherrormsg(errorcode));
2 D5 ]" J/ y2 t. ^. l* ^printf("Press any key to halt:");
1 B- [# S4 ~+ R: P/ E0 e/ wgetch(); 4 u2 F' d0 n) v; r; S
exit(1);
6 ?8 o( {3 w- t# ?  a} </FONT></P>
% C0 u2 G/ C9 K- D9 b<P><FONT color=#0000ff>/* move the C.P. to location (20, 30) */ ! N) o% M( m6 \; W6 A
moveto(20, 30); </FONT></P>2 R1 y7 G+ B3 P2 T; _
<P><FONT color=#0000ff>/* create and output a
7 D9 S$ q3 p* K: hmessage at (20, 30) */
, o' M& N* @7 C9 Vsprintf(msg, " (%d, %d)", getx(), gety());
. R% R2 z& w9 M# o+ P; louttextxy(20, 30, msg); </FONT></P>* ~; v( O: d6 @+ m
<P><FONT color=#0000ff>/* draw a line to a point a relative
8 S% M2 B0 ]& L; y, udistance away from the current
9 E* J) b& I8 w: C* zvalue of C.P. */ . I5 A% R% e8 s2 f2 F
linerel(100, 100); </FONT></P>
: @* @: x  S9 l$ C: _' ?' s<P><FONT color=#0000ff>/* create and output a message at C.P. */
4 q  Q( _0 }' f/ o  S# Z# |sprintf(msg, " (%d, %d)", getx(), gety()); : B5 U- ~1 i" L- R7 G% F
outtext(msg); </FONT></P>
2 S& O& a' D# ]$ @7 G0 S# X# I% Z<P><FONT color=#0000ff>/* clean up */
, e9 d4 j" M- u+ ?2 J9 E2 [/ @getch(); , W2 v" Z, `1 v8 |  I! M
closegraph(); 0 `/ J. ~! e  {
return 0;
+ j1 ~9 y+ [5 a2 p: E$ u, l} </FONT>
0 q( S) r7 `9 J</P>6 K% L+ h" L* y! q
<P><FONT color=#ff0000>函数名: localtime</FONT>
' s- V9 j) H+ d7 I功 能: 把日期和时间转变为结构 1 O) a- p' w$ d- e
用 法: struct tm *localtime(long *clock); : n1 ~& m& W( G2 U1 o3 @
程序例: </P># P- Y. l6 n$ i3 {8 E
<P><FONT color=#0000ff>#include <TIME.H>
- r. z$ O8 o% V' x$ V#include <STDIO.H>3 J" o3 Z, w. C- R- w
#include <DOS.H></FONT></P>
+ l$ W: z6 h3 u<P><FONT color=#0000ff>int main(void)
. k6 V# h+ A7 m8 `9 A5 D, M{
2 A5 [2 q( P3 v% y- e5 ztime_t timer; ( \9 P, n5 b, c/ A/ p$ I9 ^8 ?1 E9 e: F3 `
struct tm *tblock; </FONT></P>
/ J5 f+ [- B! l: K& y' y<P><FONT color=#0000ff>/* gets time of day */
: h. ^$ o0 |) W+ A$ c4 o# V- t$ a3 _timer = time(NULL); </FONT></P>
2 e+ w1 g) R" @  |1 U4 }<P><FONT color=#0000ff>/* converts date/time to a structure */ / Z. c" J9 h8 `* J8 Y5 M5 y$ m
tblock = localtime(&amp;timer); </FONT></P>4 F. z7 X0 c! P4 ~
<P><FONT color=#0000ff>printf("Local time is: %s", asctime(tblock)); </FONT></P>. P9 W5 O- L) F# F
<P><FONT color=#0000ff>return 0; ' d8 m! C& G2 A( j) v4 f' j
}
" X" z5 o3 j  F  n6 V: h# a8 R6 k7 m* P! B8 a6 a
9 r* w: }+ ^8 ?3 q# B+ G5 G
</FONT></P>' z3 T! y: G, \4 Q& h
<P><FONT color=#ff0000>函数名: lock </FONT>) ^. g# V3 b( i: H, R0 Q$ s
功 能: 设置文件共享锁 ; e% p# f) D" i* S- f
用 法: int lock(int handle, long offset, long length); % Z3 j: n: f* y3 ~! N* G. S
程序例: </P>8 B) G3 j: N+ V" c7 Y' i
<P><FONT color=#0000ff>#include <IO.H>
! E' X+ R3 j9 O( J#include <FCNTL.H>
+ \! D! c8 o# F. Q  Y* G#include <SYS\STAT.H>- X9 K+ Z: d* P9 p2 A" ~1 @7 V
#include <PROCESS.H>
6 X# a* t" k6 _! n6 \! u+ p#include <SHARE.H>  Z3 z" \, R8 m2 X: H9 s, N6 r
#include <STDIO.H></FONT></P>6 f" g, n& r6 \" O9 [/ d
<P><FONT color=#0000ff>int main(void) 3 b; \+ i$ T! q0 k2 e$ P8 G: k
{ ' \: I% O1 E( H
int handle, status;
7 \  k2 b( g/ f( m: Y7 ^long length; </FONT></P>6 z' S' s% j# Z9 t! a
<P><FONT color=#0000ff>/* Must have DOS Share.exe loaded for */ # B- x; n: S% P! t3 l
/* file locking to function properly */ </FONT></P>
2 A  N1 ~' F! I; W; p. `<P><FONT color=#0000ff>handle = sopen("c:\\autoexec.bat", # M0 K% i6 P! t/ `
O_RDONLY,SH_DENYNO,S_IREAD); </FONT></P>
2 _% _  a) x. g: ~/ k3 q: v7 I<P><FONT color=#0000ff>if (handle &lt; 0)
' y# [/ h  R" [  Q) t, ~$ T{
0 S# ?1 p( S' s5 i1 f- d$ gprintf("sopen failed\n"); 1 @, V2 A; s, Q
exit(1);
9 o$ ]% R( Y# x! \6 @) j/ n} </FONT></P>! I- k( L. a: Y+ X' f2 A+ i6 f
<P><FONT color=#0000ff>length = filelength(handle); 9 S+ ~% e. g  F/ [
status = lock(handle,0L,length/2); </FONT></P>
" r8 ]5 q/ }8 }0 Q<P><FONT color=#0000ff>if (status == 0) ; ?- F( |+ g: B) L. B
printf("lock succeeded\n");
, V; i9 \* \* P; \9 H, J  zelse
; h7 H  O8 w3 rprintf("lock failed\n"); </FONT></P>! P/ ^( y! I' U- ^9 `  G$ b  S
<P><FONT color=#0000ff>status = unlock(handle,0L,length/2); </FONT></P>3 C3 Q+ {. E5 r$ g4 T. p" r- U
<P><FONT color=#0000ff>if (status == 0)   @1 d& Y: W) R4 ~9 k) [% V
printf("unlock succeeded\n");
( m- S" ~3 a" }  C% T+ Pelse
7 U% D: P+ F4 N+ X5 \printf("unlock failed\n"); </FONT></P>
0 s: D/ c1 _. R2 E! U6 t! e<P><FONT color=#0000ff>close(handle);
6 X% N; p) Z/ i  ureturn 0; : W, c8 j: ], q' W
}
8 |7 M& U, F) `3 s: t</FONT>
7 Y) C/ M. Z- B5 \, |7 [</P>( P" d* w/ z2 k
<P><FONT color=#ff0000>函数名: log </FONT>
- Z  [/ Q$ ?& b1 `6 F" q功 能: 对数函数ln(x)
& W6 I( ~5 Y( X( M用 法: double log(double x);
+ ~4 F: y: ^, ~程序例: </P>% T$ N( B4 w& i# Y! I8 A5 }
<P><FONT color=#0000ff>#include <MATH.H>
: k6 {" E4 R  Q3 z#include <STDIO.H></FONT></P>! C0 `8 t4 O) X5 ?0 ~
<P><FONT color=#0000ff>int main(void)
3 z0 M9 j' q% B" m) ^8 X' N+ t3 S{
# u; J1 l% Q- b$ e7 M' v* Pdouble result;
4 m3 A8 h4 |( g2 Tdouble x = 8.6872; </FONT></P>
7 d) h+ F* T0 }* L6 F1 Y0 T7 }<P><FONT color=#0000ff>result = log(x); , L2 k6 Z' K3 L' Q$ |( D! O- \
printf("The natural log of %lf is %lf\n", x, result); </FONT></P>
( W3 N$ K  ?5 l+ s' A6 X7 \<P><FONT color=#0000ff>return 0;
$ s& P! I' R  i# e4 J% l} 7 Z$ F  ^6 K& l+ A; Q+ h7 J
* ^. j5 u$ o+ f
</FONT></P>+ D' G3 U  [) b- J6 H1 d+ X+ E
<P><FONT color=#ff0000>函数名: log10 </FONT>
1 a" _+ Y& u! i* R/ W% H功 能: 对数函数log 9 e1 f' q# W5 Q5 z( _
用 法: double log10(double x);   S( b3 ~" |  J0 v8 `; A3 y
程序例: </P>
5 Z1 C1 l; k- A& A2 t, q<P><FONT color=#0000ff>#include <MATH.H>; I& q9 v: n2 x
#include <STDIO.H></FONT></P>/ s( R4 @; c# W: i
<P><FONT color=#0000ff>int main(void)
+ j7 q4 H6 f; T{
6 j( }- `0 j6 q) vdouble result; & a' @+ u$ D7 B8 E
double x = 800.6872; </FONT></P>4 x8 n! i$ B( Q& j& E
<P><FONT color=#0000ff>result = log10(x); ) Z9 |8 y# c5 ~, `. H
printf("The common log of %lf is %lf\n", x, result); </FONT></P>: J" p6 H, \# a6 [0 L$ @5 o& `) g/ A1 b
<P><FONT color=#0000ff>return 0; / M7 ^& J2 a" \+ p* s
}
- m- a4 j1 w3 |- E0 N5 h) `0 V2 Q6 @: q2 @6 i6 V
</FONT>: Q0 N$ D4 u' Z* {, g! j3 e' ~
</P>' [  t- k2 t/ g- v& T& ?
<P><FONT color=#ff0000>函数名: longjump </FONT>
" F& s, J- p3 g功 能: 执行非局部转移 + c' o( l" }7 u4 }
用 法: void longjump(jmp_buf env, int val);
0 y4 j# _: S* Y% @! Z程序例: </P>+ i3 M; v3 I# [& C0 o. g# ?
<P><FONT color=#0000ff>#include <STDIO.H>
) _; g' ]3 Z* W; z4 Y# L# P2 N+ |4 Y2 V#include <SETJMP.H>
* ]* C" Y5 I: @6 i$ j  i#include <STDLIB.H></FONT></P>
) H# }2 b( W# x: Q7 J3 f) ^5 v<P><FONT color=#0000ff>void subroutine(jmp_buf); </FONT></P>: {8 L1 d  A  x: ]' g$ m! B' z
<P><FONT color=#0000ff>int main(void)
" L; t: h1 D- Z1 `; s! k' {" G. J. x/ D{ </FONT></P>8 F9 T0 l- G2 o1 W
<P><FONT color=#0000ff>int value;
  ^8 p# d) A5 T+ Njmp_buf jumper; </FONT></P>
; `7 i7 G9 T0 A) m( h/ o4 |' u* M' J  {<P><FONT color=#0000ff>value = setjmp(jumper); $ e: h0 y3 J* {7 [% L; ]
if (value != 0)
) R- `! R+ _6 ~, x+ r, ~$ `{
+ d( V3 ?2 Y( v: J$ [) U6 G' Y7 uprintf("Longjmp with value %d\n", value);
; U! z3 J0 x4 T% oexit(value);
. [" B" x8 K4 b* U8 l! J9 a5 e}
2 Q* H9 b7 a# G7 c/ i8 O( xprintf("About to call subroutine ... \n");
' }! ~0 e' h6 J3 usubroutine(jumper); </FONT></P>
% A3 l, g, Q. `4 h/ i<P><FONT color=#0000ff>return 0; ! Z1 t; F( S, z2 f% X
} </FONT></P>
9 g  J* T  e+ G* j<P><FONT color=#0000ff>void subroutine(jmp_buf jumper) : x3 N9 Q5 r" r' @+ F
{ # t. W6 C- i/ L% L: I% Q
longjmp(jumper,1); # _2 j1 g/ q' p% {2 R
}
; I, F% m* [  f: ^
2 c+ q$ i1 i+ |" e3 ?+ ^! A</FONT>5 Z2 g- L- R5 j5 C
</P>
; R/ v- ~( c4 V( d<P><FONT color=#ff0000>函数名: lowvideo</FONT> + e0 v/ ?9 \/ c" c* j5 V0 ]% f
功 能: 选择低亮度字符
- t3 g8 ?2 _$ n+ n! R* y8 b$ w用 法: void lowvideo(void);
& ^! Z! M1 ~! P3 W. e* D- v) F3 z程序例: </P>
4 x# Y4 _& y7 V. P<P><FONT color=#0000ff>#include <CONIO.H></FONT></P>
  B, F$ g4 A* `1 H& a8 l4 Z<P><FONT color=#0000ff>int main(void) / P% R# }. s9 y7 |/ k
{ 8 e2 ~1 _& M% L1 n) Y2 H# G
clrscr(); </FONT></P>
1 R% c2 i- D! ?2 D6 w<P><FONT color=#0000ff>highvideo();
: i5 {4 u3 h6 N+ N5 r: m1 x; |& S8 Ncprintf("High Intesity Text\r\n"); ' R, }) k# N, M5 I; w( a
lowvideo();
/ U1 i: V% \8 g5 H" Ugotoxy(1,2); 2 x1 e6 Q. b& q. Y$ j
cprintf("Low Intensity Text\r\n"); </FONT></P>
8 i/ \& _  t* X  h  s  b0 z* H7 r<P><FONT color=#0000ff>return 0; ) i+ B  m$ _' j( j$ k! |
} 8 K! d8 d% A, Z" D8 v% J
0 |5 J! ?. ^. u9 c4 J6 e
</FONT># O- U9 z3 f4 G' K8 B! w
</P>
. H0 [( l4 ?" t0 a<P><FONT color=#ff0000>函数名: lrotl, _lrotl </FONT>  q" h' p9 @0 [2 {
功 能: 将无符号长整型数向左循环移位
" w$ m. K- ^! q# O  y& @用 法: unsigned long lrotl(unsigned long lvalue, int count); 8 F+ r, H& f+ s# P1 e" R2 m
unsigned long _lrotl(unsigned long lvalue, int count);
% D6 y% @, ]% v# t& X程序例: </P>3 q- \& E8 a; I4 U+ L$ o
<P><FONT color=#0000ff>/* lrotl example */
" W! f: u* J; a* C  T#include <STDLIB.H>, L; j- s  h4 }- |# j& k
#include <STDIO.H></FONT></P>
# S( m$ t9 @# A, i! |/ I0 W<P><FONT color=#0000ff>int main(void) . E4 ]) q* o+ J, f% A' I
{ + u5 x5 r# r: x: d
unsigned long result; . n1 h* z1 s0 n+ d& ?
unsigned long value = 100; </FONT></P>
8 b* |, d% b! O<P><FONT color=#0000ff>result = _lrotl(value,1); ! F& b5 M1 ^7 X; ?7 j$ e
printf("The value %lu rotated left one bit is: %lu\n", value, result); </FONT></P>) z: E# o# i1 w, l
<P><FONT color=#0000ff>return 0;
4 T0 ^, S# h9 {6 \' x}
6 e4 W. l& u" _  i</FONT>
0 Z5 \% l" ~9 F6 N! l3 z, _- U</P>% |  Y7 R1 \0 ]/ M; C/ @  f
<P><FONT color=#ff0000>函数名: lsearch </FONT>: F* g! N2 e$ t& [1 I; I2 Q
功 能: 线性搜索
. L" m$ [( H: [1 U2 V5 a  E2 ~用 法: void *lsearch(const void *key, void *base, size_t *nelem, 4 L$ i' r1 Z; {9 ~
size_t width, int (*fcmp)(const void *, const void *)); 1 O0 m, i. g, l6 o( [, n7 ^
程序例: </P>9 Z- f; \/ }7 |& @+ z5 O0 B
<P><FONT color=#0000ff>#include <STDIO.H>
0 h, E# z9 D% s1 H' O/ O#include <STDLIB.H></FONT></P>
# P# t; ?- W1 @- ^& i/ ^<P><FONT color=#0000ff>int compare(int *x, int *y)
0 Q6 |( m  B" j% Y{
1 `7 Y( r# ?5 }) R+ [4 creturn( *x - *y ); . k2 @2 s: a+ |! c- F+ B) u2 Z
} </FONT></P>
5 O* U3 Y8 H# Q: Z% S# m( O  o% E<P><FONT color=#0000ff>int main(void)
: s1 W! O# W5 [3 _; L{
2 s* r" y" D  s7 cint array[5] = {35, 87, 46, 99, 12};
# v7 b" h' I& B: Jsize_t nelem = 5; 0 E; ^" Y! X' [+ ?9 Y# x
int key;
. Z, P9 `% H3 j' mint *result; </FONT></P>6 ]+ |/ g2 `0 |  X' O/ N+ Y
<P><FONT color=#0000ff>key = 99;
; S% y2 H$ l. oresult = lfind(&amp;key, array, &amp;nelem,
4 N" k( y6 B- Wsizeof(int), (int(*)(const void *,const void *))compare);
9 S3 _/ M5 `- w4 C  B5 I7 ]1 t3 b. t3 P1 qif (result)
- i4 L2 I! j/ a; Z. Z. F$ qprintf("Number %d found\n",key); 6 q9 L" ?* y  \* o* `
else 6 p# E3 c: T1 U  C9 j) J4 |- z. J
printf("Number %d not found\n",key); </FONT></P>
6 i3 h- V. v( y8 Q' D0 L7 p3 A: J1 Q<P><FONT color=#0000ff>return 0;
" Z$ S4 V; M- W# `}   n  I1 y0 d4 E  Z) A9 E2 o

0 N6 f6 n! f) [</FONT>5 Y' {; C% k/ @/ ^6 \
</P># p' t4 q9 V& m6 d: ~
<P><FONT color=#ff0000>函数名: lseek </FONT>
, _2 G$ |4 @; S) b/ T功 能: 移动文件读/写指针
1 V6 _8 y+ w/ r$ c3 h9 W" g: e用 法: long lseek(int handle, long offset, int fromwhere); 7 t* x& r* _! @
程序例: </P>
9 v, h  W1 u- ^. y% V- e( k4 f( H% @<P><FONT color=#0000ff>#include <SYS\STAT.H>
8 U5 y4 P8 K5 f$ c+ s6 a#include <STRING.H>. X% r4 R8 ?. N: n
#include <STDIO.H>6 q$ X- _% r+ f3 j$ p* m7 u0 ]
#include <FCNTL.H>6 k8 f/ @" _1 q/ ^7 {# C% Q
#include <IO.H></FONT></P>' D# X; F  t! `! Q& z
<P><FONT color=#0000ff>int main(void)
9 U/ o, q, N4 M2 T  E+ a{
, i4 N( f: O3 o5 u/ lint handle; 5 w3 Z2 ~- `; {
char msg[] = "This is a test"; , w; K2 \) R+ J0 |
char ch; </FONT></P>
1 v( x7 ]$ R: K; c<P><FONT color=#0000ff>/* create a file */ + J; }9 |1 c6 F4 n) j5 Q
handle = open("TEST.$$$", O_CREAT | O_RDWR, S_IREAD | S_IWRITE); </FONT></P>
# B& \; [7 b/ j* v& e. N<P><FONT color=#0000ff>/* write some data to the file */
; g) K# Y# |, Vwrite(handle, msg, strlen(msg)); </FONT></P>
) h- D1 C% J7 g3 d6 j<P><FONT color=#0000ff>/* seek to the begining of the file */
  R8 i5 Y( ]+ L/ S; t- X6 tlseek(handle, 0L, SEEK_SET); </FONT></P>' C3 n; o- G# k- Q  U& m
<P><FONT color=#0000ff>/* reads chars from the file until we hit EOF */
- \( x1 d# ?; x$ V8 N3 Odo : v# k$ u1 c$ d; t
{
0 s& C- b/ Y! V( U; oread(handle, &amp;ch, 1); 5 k% P7 _) ^+ ~
printf("%c", ch); * R( t$ d5 Y9 _5 u: `4 I
} while (!eof(handle)); </FONT></P>
; \% w2 X0 a, u% A<P><FONT color=#0000ff>close(handle); 5 [4 `( H1 p% ]% e
return 0; ! ?3 o( \4 {& n+ i  ?. y5 \1 v: e
}
+ [& t2 s. @* ~. b2 ~# B! J</FONT></P>( r3 ]3 [- I/ M+ Q/ S) l
<P align=left><FONT color=#0000ff></FONT> </P>




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