ex5_19.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program kk(input,output);
var
  a,b,c,d:integer;
    procedure ex5_19(a:integer;var b:integer);
    var
     c:integer;
    begin
     a:=a+1;
     b:=b+1;
     c:=2;
     d:=d+1;
     writeln('m',a,b,c,d);
     if a<3 then p(a,b);
     writeln('n',a,b,c,d);
    end;
  begin
   a:=1;
   b:=1;
   c:=1;
   d:=1;
   writeln('x',a,b,c,d);
   p(a,b);
   writeln('y',a,b,c,d)
  end.