pl源程序.txt

c语言实现的PL/0词法分析器

1c
fangpeng
var s;int64; 
i;integer; 
begin 
s:=1; 
for i:=1 to 12 do 
s:=s*5, 
writeln(s) , 
end; 
program jiou(input,output) ; 
var a,b; integer; 
begin 
write( ' please in put a number: ' ) ; 
readln(a) ; 
b:=a mod 2 
case b of 
0 : writeln ( ' it is a ou shu ' ) ;
1 : writeln ( ' it is a ji shu ' ) 
end; 
end.
program example1;
var x: integer ; 
begin 
readln(x) ; 
if odd (x) = false then writeln ( ' oushu ' ) else writeln( ' jishu ' ) ; 
end.