代码大全

'** ' find the arithmetic maximum of Argl and arg2 '** if ( Arg1! > Arg2! ) then Max! = Arg1! else Max! = Arg2! endif end Fun ...

'--------------------------------------------------------- Function Min! (Arg1!,Arg2!) '---------------------------------------- ...

begin end Case goto C Fortran 18.9 C Pascal Basic begin end Ada ...

...

19.l 19.2 19.3 19.4 19.5 19.6 : 18 PDL—— 4 5 31.5 32.3 19.1 —— —— ...

19.2 for i 1 to Num do MeetsCriteria[i]:=True; for i:=2 to Num/2 do j:=j 1; while j< Num do begin meetsCriteria[i]:=False; j: ...

19.2.l IF ELSE ...

19.3 Socrates THRASYMACHUS CALLICLES —— GLAUCON ISMENE SOCRATES: : Thrasymachus Callicles C Pascal Glaucon Ismene Socrates Calli ...

Ismene ——— Callicles ! "Callicles Thrasymachus Thrasymachus Socrates Thrasymachus Callides! Callicles? Acropolis IV Socrates Cal ...

Socrates PDL PDL Glaucon Callicles Ismene Socrates Ismene 19.4 {write out sums 1..n for all n form 1 to Num} Crnt := 1 Prev := 0 ...

{compute the square root of Num unsing the Newton Raphson approximation} r : Num / 2; while ( abs( r - ( Num / r ) ) < Tolera ...

Fjelstad Hamlen 1919 Fortran C C ...... ...... C XPOS..... X C YPOS..... Y C NPCMP..... =0 C = 1 C PTGTTL.... C PTVLMX.... C PSC ...

C / GIGATRON.C Dwight K.Coder 2014 7 4 EvaluateCode() ...

PDL PDL PDL PDL 19.5 MOV AX,723h ; R.I.P.L.V.B Rest in peace. Ludwig Van Beethoven. Beethove 1827 723h 723h Basic for EmpID = l ...

if BonusAmt >= MgrApprovalRequired then PayProgrBonus( EmpID, StdAmt() ) ‘pay company std. amount else PayProgrBonus( EmpID, ...

Boundary: Integer; { upper index of sorted part or array } InsertVal: String; { data elmt to insert in sorted part of array } In ...

{ find ‘$’in InputPtr } { find the command -- word terminator } FindCommandWordTerminator() Find$InInputString() CheckEachcharac ...

/* if allocation flag is zero */ if ( AllocFlag == 0 ) ... / * if allocating new member * / if ( AllocFlag == 0 ) ... 0 / if al ...

/ copy the strng portion Of the tab1e along the way omitting strings that are to be deleted / / -------------------------------- ...

WriteData(Data NumItems Blocksize) Blocksize 500 499 501 Blocksize 500 WriteData() Blocksize 500 BolckSize := OptimalBlockSize( ...