Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  EAGL
Language: C/C++
Code:
Program P119;
 var z : real;

function F(x : real) : real; forward;
procedure P(var x : real); forward;
procedure Q(var x : real); forvard;

 function F;
   begin
     F:=2*x
   end;

procedure P;
begin
  x:=x+1
end;

procedure Q;
  begin
   x:=x+2
end;

begin
  x:=1;
  P(x);
  Q(x);
  writeln (F(x));
  readln;
end.
            
Comments: