b7.txt

来自「编译原理课程设计,语法分析.学校的课程设计,好象还有点用吧」· 文本 代码 · 共 34 行

program example(input,output);
var x,y:integer;
function test (a,b:integer):integer;
begin
test:=a*b;
write(test);
test:=b/a;
write(test);
test:=a mod b;
write(test);
test:=b div a;
write(test);
test:=a-b;
write(test);
test:=a and b;
write(test);
test:=a or b;
write(test);
end;
begin
read(x,y);
x:=x+y;
if x<35 then
begin
 x:=10;
end
else
begin
 x:=x+y;
end
write(x,y);
x:=test(x,y);
write(x);
end