Back to exercises index

Program skeleton

Just copy the skeleton and start programming...


Topics: A, B

MODULE M;
<* WOFF + *>        (* No Warnings *)
<* NOOPTIMIZE + *>  (* For the Debugger *)

    FROM IO IMPORT WrStr, WrLn, RdCard, WrCard, RdInt, WrInt;     (* import general procedures *)

    VAR ...;            (* variable-declarations *)

BEGIN
    WrLn;
        ...
END M.


Topics: A, B met 3D-graphics

MODULE M;
<* NOOPTIMIZE + *>  (* voor de Debugger *)
<* WOFF + *> (* geen warnings *)
FROM RealMath IMPORT power, arctan, pi, cos, sin, sqrt;
FROM JJ3D IMPORT StartMy3DWorld, DrawEverything, ClearScreen, WaitUntilQPressed, Delay, WrStr, WrCard, WrInt, WrReal, WrBool, WrLn, RdInt, RdCard;
FROM JJ3D IMPORT Plot, Line, ThickLine, PlotText, Triangle, RectangleXY, RectangleYZ, RectangleXZ, Polygon, Cube, Block, Cilinder, Arrow3D
, Quadrangle;
FROM JJ3D IMPORT RgbColor, Lighter, Darker, RED, GREEN, BLUE, CYAN, MAGENTA, GRAY, BROWN;
FROM JJ3D IMPORT BLACK, BRIGHTWHITE, WHITE, LIGHTRED, LIGHTGREEN, LIGHTBLUE, LIGHTCYAN, LIGHTMAGENTA, LIGHTYELLOW;

  CONST


  VAR


BEGIN
  StartMy3DWorld("Mijn 3D-wereld") ;



  WaitUntilQPressed();

END M.


 

Topics: C,D & E

MODULE ModuleName;
<* WOFF + *> <* NOOPTIMIZE + *>
    FROM IO IMPORT RdChar, WrChar, WrStr, RdStr, WrLn, RdCard, WrCard, RdInt, WrInt, RdReal, WrReal, WrFixReal, RdBool, WrBool, RdLn;  (* import general procedures *)
    FROM RealMath IMPORT sqrt, exp, sin, cos, tan, arcsin, arccos, arctan, power, round, pi;
    FROM Lib IMPORT Delay; (* Wait n milliseconds *)

    CONST             (* constants *)

    VAR              (* variable-declarations *)

BEGIN
    WrLn;
 

END ModuleName.


Topics: C, D & E met 3D-graphics

MODULE M;
<* NOOPTIMIZE + *>  (* voor de Debugger *)
<* WOFF + *> (* geen warnings *)
FROM RealMath IMPORT power, arctan, pi, cos, sin, sqrt;
FROM JJ3D IMPORT StartMy3DWorld, DrawEverything, ClearScreen, WaitUntilQPressed, Delay, WrStr, WrCard, WrInt, WrReal, WrBool, WrLn
, RdInt, RdCard;
FROM JJ3D IMPORT Plot, Line, ThickLine, PlotText, Triangle, RectangleXY, RectangleYZ, RectangleXZ, Polygon, Cube, Block, Cilinder, Arrow3D, Quadrangle;
FROM JJ3D IMPORT RgbColor, Lighter, Darker, RED, GREEN, BLUE, CYAN, MAGENTA, GRAY, BROWN;
FROM JJ3D IMPORT BLACK, BRIGHTWHITE, WHITE, LIGHTRED, LIGHTGREEN, LIGHTBLUE, LIGHTCYAN, LIGHTMAGENTA, LIGHTYELLOW;

  CONST


  VAR


BEGIN
  StartMy3DWorld("Mijn 3D-wereld") ;



  WaitUntilQPressed();


END M.



Back to the top -- Back to exercises index