case.pl

这是我们的一个上机题,做词法分析和语法的,希望对大家的学习有所帮助

program pp;
var n,p:integer;
var a:array [1..8] of integer;
procedure p1(n:integer; var p:integer);
begin
     case n of
     	1: begin p:=n; p:=p+5; end;
     	2: begin p:=n; p:=p+5; end;
     	3: begin p:=n; p:=p+5; end;
     	4: begin p:=n; p:=p+5; end;
     	5: begin p:=n; p:=p+5; end;
     	6: begin p:=n; p:=p+5; end;
    	7: begin p:=n; p:=p+5; end;
     	8: begin p:=n; p:=p+5; end;
     	9: begin p:=n; p:=p+5; end;
     	10:begin p:=n; p:=p+5; end;
     	11:begin p:=n; p:=p+5; end;
     	12:begin p:=n; p:=p+5; end;
     	13:begin p:=n; p:=p+5; end;
     	14:begin p:=n; p:=p+5; end;
     	15:begin p:=n; p:=p+5; end;
     	16:begin p:=n; p:=p+5; end;     
     	end;
end;

begin
  call read(n);
  call p1(n,p);
  call write(p)
end.