jsj_pascal语法.pdf

pascal 2005 1 27 09:45 pascal pascal 1 A——Z a——z0——9+-*/=== ()[]{}:=...^ pascal 2 AND ARRAYBEGINCASECONSTDIVDODIWNTO ELSEENDFILEFORFUNTIONGOTOIF LABELMODNILOFORPACKEDPROCEDURE PROGRAMRECORDREPEATSETTHENTO TYPE UNTILVARWHILEWITH 3 8 false,true,maxint integer,real,char,boolean,text input,output abs,arctan,chr,cos,eof,eoln,exp,ln,odd,ord, ored,round,sin,sqr, sqrt,succ,trunc get,new,pack,page,put,read,readln,reset,rew rite,unpack,write, writeln 1 PROGRAM (input,output) {……} CONST pi=3.14159 VAR r,l,s:real; BEGIN write(input r:); read(r); l:=2*pi*r; write(l=,l,s=,s); END; 2 END 1(real) 2(integer) maxint=32767 predsucc []pred(3)=2succ (3)=4 pred(true)=false succ(false)=true 3(char) ord []ord(A)=65 4 (boolean) falsetrue NOT ANDOR ord(true)=1ord(false)=0 CONST pi=3.14159 blank= VAR r,l,s:read cl:char []b2-4ac sqt(b)-4*a*c = 1read()readln () readln 2write( )writeln() real integer write(a=,a:2:0) {a real } if IF THEN 1 ESLE 2 1ELSE ELSE 2 THEN ELSE BEGIN——END CASE CASE OF 1 1 2 2 …… n n [ELSE] END 1 ”“246 “1 ”“10..100 ” 2CHARINTEGERBOOLEAN FOR 1FOR = TO DO 2FOR = DOWNTO DO [ 1] 10 PROGRAM ten(input,output); VAR a,s,max,min,avg:real; i:integer; BEGIN write(please input:); read(a); s:=a; max: =a; min:=a; FOR i:=2 TO 10 DO BEGIN read (a); s:=s+a; IF amax THEN max:=a ELSE IF amin THEN min:=a END; avg: =s/i; writeln(……); END. [ 2] s=1!+2!+ 3!+……+10! program sum_fac(input,output); var i,j,s,m:integer; begin s:=0: for j:=1 to 10 do begin m:=1; for j:=1 to i do m: =m*j; s:=s+m; end; write(……); end; while WHILE DO [ 1] ” program string (input,output); var ch:char; c,s,o:integer; begin write(……); read(ch); c:=0; s:=0; o:= 0; while ch, do begin if (ch=A)and (ch=Z) then c:=c+1 else if (ch=a)and (ch=z) then s:=s+1 else o:=o+1; read(ch); end; write(……) end. REPEAT REPEAT UNTIL [](cha