procedure.plx

来自「一个PLX教学编译器IDE」· PLX 代码 · 共 31 行

//                 Author  :  Tuwei                                               //
//                 Copyright All Reserved                                         //
//                                                                                //
//                 Function:  text 'procedure' sentence.                          //
////////////////////////////////////////////////////////////////////////////////////

program

integer a;
   procedure cc;
   integer b;
      procedure dd;
      integer c;
         procedure kk;
         begin
           write c;    
         end;
      begin
         c := 3;
         write b;
         call kk;
         end;
  begin
     b := 2;
     write a;
     call dd;
  end;
begin 
   a := 1;
   call cc;
end.