编译文档中示例源程序.docx
mainadd100;functionadd(x:Integer):float;varresult:Integer.beginifx=lthenreturnX;result:=x+add(x-l);returnresult;end;beginjpl.printint(add(100);end.mainE;varnums:Integer;es:Float;/ArrayofFloat.i:Integer;functionfactorial(Times:Integer):float;varResultiFloat;beginResult:=1.0;while(Times>0)dobeginResulti=Result*Times;Timesi=Times-I;end;return1/Result;end;functione(1.evel:Integer):float;varResult:Float;beginResult:=1.0;while(1.evel>0)dobeginResult:=Result+factorial(1.evel);1.evel:=1.evel-1;end;returnResult;end;beginnums:=2;while(factorial(nums)>=0.00000001)dobeginnums:=nums+l;end;IwantourEexcatlyenough,soitrytofindafactiriallessthanthat.Thisnotverysmart,butmayletyouseemoreJP1.O.)nums:=nums-l;newarrayes:=Floatnums;es0:=2.O;esl:=2.5;i:=2;fori:=2to(nums-l)dobeginesi:=e(i+l);end;fori:=0tonms-ldobeginjpl.printfloat(esi);end;end.mainfibinacci_float;vari:Integer;list:float;functionfunc(i:Integer):float;beginif(i=O)thenreturn1.O;if(i=1)thenreturn1.O;return(func(i-l)+func(i-2);end;beginnewarraylist:=float20;fori:=0to19dobeginlisti:=func(i);end;1 :=0;fori:=0to19dobeginJP1.O.PRINTF1.OAT(listi);end;end.mainpl02;var1: Integer;list:Integer;functionfunc(i:Integer):Integer;beginif(i=0)thenreturn1;if(i=1)thenreturn1;return(func(i-l)+func(i-2);end;begini:=O;newarrayIiSt:二InIeger20;while(i<20)dobegin/JP1.O.Printint(func(i)；listi:=func(i);i:=i+1;end;i:=0;while(i<20)dobeginJP1.O.PRINTINT(listi);i:=i+l;end;end.mainP1.o3;beginif(true)thenjpl.printint(1+(2*4/4)+1);end.mainHelloWorld;constNumsiInteger=20;HelloWorldStrrString=,HelloWorld!”;vari:Integer;functionfund(x:Integer):Boolean;varc:char;beginforc:=,a,to,a,+xdobeginJP1.O.PRINTCHAR(c);end;returnfalse;end;beginfund(Nums);JP1.O.Printstring(HelloWorldStr);JP1.O.PrintStringCzHelloworldagain!z,);end.mainprime;vari,j:Integer;IsPrimeiBoolean;functionmod(x,y:Integer):Boolean;beginif(x%y=0)thenreturntrueelsereturnfalse;endbeginfori:=2to100dobeginISPRIME:=TRUE;forj:=2toi/2dobeginif(mod(i,j)thenbeginj:=1000;ISPRIME:=False;end;end;/ifnot(j>=1000)thenthislineisOK,buti/wanttoshowyouBoolean.)if(IsPrlmE)thenJP1.O.printint(i);end;end.mainTypes;procedureShowType(XiInteger);beginJP1.O.PRINTSTRINGCltisanInteger./z);end;procedureShowType(XrFloat);beginJP1.O.PRlNTSTRINGritisaflaot.*);end;beginShowType(I);ShowType(2.1);end.mainwrongfunctionwrongx():integer;beginx=x+1;returnx+x;endbeginwrongx(3);end;
