S
Sleepy_G
Guest
i'll just pretend i knew what u just said cause its way over my head but cool! :-? what type of game are you trying to make?
Hi!
I have almost finished my 2nd year programming with Delphi (or Pascal as the actual language is called) and it is SO easy! I'm so glad that I took the subject at school! I haven't tried any other languages yet, but they look very... difficult! :-?
xeriouxi.
PROGRAM Mathgame; {Math Fun By Travis...For the good Grade 10/26/98}USES CRT ;VAR SUBANS, COUNT, ADDANS, x, y, z : INTEGER ; choice, W, ANS : CHAR ;PROCEDURE ADD ; FORWARD ;PROCEDURE SUBTRACT ; FORWARD ;PROCEDURE MULTIPLY ; FORWARD ;PROCEDURE DIVIDE ; FORWARD ;PROCEDURE QUIT ; FORWARD ;PROCEDURE START; BEGIN CLRSCR ; WRITELN (' à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à ') ; WRITELN (' à Welcome to Math Fun!!! à ') ; WRITELN (' à Please Select your choice à ') ; WRITELN (' à (A)ddition, (S)ubtraction, (M)ultiplication (D)ivision à ') ; WRITELN (' à Press Q to quit à ') ; WRITELN (' à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à ') ; READLN (ANS); IF (ANS = 'A') OR (ANS = 'a') THEN ADD ; IF (ANS = 'S') OR (ANS = 's') THEN SUBTRACT ; IF (ANS = 'M') OR (ANS = 'm') THEN MULTIPLY ; IF (ANS = 'D') OR (ANS = 'd') THEN DIVIDE ; IF (ANS = 'Q') OR (ANS = 'q') THEN QUIT ; end; PROCEDURE ADD ; begin x := Random (10) + 1 ; y := Random (10) + 1 ; CLRSCR ; COUNT := 0 ; WRITELN (' Welcome to addition of whole numbers ') ; WRITELN ( x,' + ',y ) ; WRITE (' Enter your answer here please: ') ; Repeat COUNT := COUNT + 1 ; READLN (ADDANS) ; Z := (X+Y) ; IF Z <> ADDANS THEN WRITELN ('Please Try Again') ; IF Z = ADDANS THEN WRITE (' Great Job! You used ',count ) ELSE WRITE (' Please Try again you have had ',count ) ; IF COUNT = 1 Then write (' try! ') Else Write (' tries! ') ; Until (ADDANS = Z) OR (COUNT = 3) ; READLN ; If ADDans <> z then Addans := Z ; IF ADDANS = Z THEN BEGIN Writeln (' Would you Like another Problem?? ') ; Writeln (' (Y)es (N)o ') ; readln (choice) ; If choice = 'y' Then Choice := 'Y' ; If choice = 'Y' Then Add Else Start ; end ; end; PROCEDURE SUBTRACT ; begin REPEAT x := Random (20) + 1 ; y := Random (20) + 1 ; UNTIL (X-Y > 0) ; CLRSCR ; COUNT := 0 ; WRITELN (' Welcome to Subtraction of whole numbers ') ; WRITELN ( x,' - ',y ) ; WRITE (' Enter your answer here : ') ; Repeat COUNT := COUNT + 1 ; READLN (ADDANS) ; Z := (X-Y) ; IF Z <> ADDANS THEN WRITELN ('Please Try Again') ; IF Z = ADDANS THEN WRITE (' Great Job! You used ',count ) ELSE WRITE (' Please Try again you have had ',count ) ; IF COUNT = 1 Then write (' try! ') Else Write (' tries! ') ; Until (ADDANS = Z) OR (COUNT = 3) ; Readln ; If ADDans <> z Then Addans := Z ; IF ADDANS = Z THEN BEGIN Writeln (' Would you Like another Problem?? ') ; Writeln (' (Y)es (N)o ') ; readln (choice) ; If choice = 'y' Then Choice := 'Y' ; If choice = 'Y' Then Subtract Else Start ; end ; end; PROCEDURE MULTIPLY ; begin REPEAT x := Random (10) + 1 ; y := Random (10) + 1 ; UNTIL (X*Y > 0) ; CLRSCR ; COUNT := 0 ; WRITELN (' Welcome to Multiplaction of whole numbers ') ; WRITELN ( x,' * ',y ) ; WRITE (' Enter your answer here : ') ; Repeat COUNT := COUNT + 1 ; READLN (ADDANS) ; Z := (X * Y) ; If ADDans <> z then Addans := Z ; IF ADDANS = Z THEN BEGIN Writeln (' Would you Like another Problem?? ') ; Writeln (' (Y)es (N)o ') ; Readln (choice) ; If choice = 'y' Then Choice := 'Y' ; If choice = 'Y' Then multiply Else Start ; end; UNTIL (Addans = z) or (Count = 3) ; end ; PROCEDURE DIVIDE ; begin REPEAT X := random (20) + 1 ; Y := random (10) + 1 ; Z := (X DIV Y) ; UNTIL X MOD Y = 0 ; CLRSCR ; COUNT := 0 ; WRITELN (' Welcome to Division of whole numbers ') ; WRITELN ( x,' / ',y ) ; WRITE (' Enter your answer here : ') ; Repeat COUNT := COUNT + 1 ; READLN (ADDANS) ; If ADDans <> z then Addans := Z ; IF ADDANS = Z THEN BEGIN Writeln (' Would you Like another Problem?? ') ; Writeln (' (Y)es (N)o ') ; readln (choice) ; If choice = 'y' Then Choice := 'Y' ; If choice = 'Y' Then divide Else Start ; end; Until (Addans = z) or (count = 3) ; end ; PROCEDURE QUIT ; BEGIN CLRSCR ; WRITELN (' à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à ') ; WRITELN (' à à ') ; WRITELN (' à Good Bye From Math Fun!!!!! à ') ; WRITELN (' à We Hope to see you Soon!! à ') ; WRITELN (' à Press Q to quit!! à ') ; WRITELN (' à à ') ; WRITELN (' à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à à ') ; READLN ; END; BEGIN START ; RANDOMIZE ; CLRSCR ; IF (ANS = 'A') OR (ANS = 'a') THEN ADD ; IF (ANS = 'S') OR (ANS = 's') THEN SUBTRACT ; IF (ANS = 'M') OR (ANS = 'm') THEN MULTIPLY ; IF (ANS = 'D') OR (ANS = 'd') THEN DIVIDE ; IF (ANS = 'Q') OR (ANS = 'q') THEN QUIT ;end .
EDIT: 2nd year? We're probably on the same course XD
Delphi is Object Pascal, i.e. Pascal with object orientated bits tooAlthough I don't know whether your code would actually work in a modern version of Delphi ... you'd need some sort of Crt unit that emulated the old text mode functions ... probably wouldn't be too hard.
But, seriously - those capitals nearly burned my eyesBeen *years* since I've seen Pascal that used capitals like that, reminds me of old BASIC code...
Edit: Tried it - yeah, it does compile, although I had to take out "ClrScr" since the built in functions don't seem to do that; but otherwise, works fine...
thnx guys your've just put me off programming
![]()
No, don't go that way, use OpenGl. Its portable.Has anyone here done much work with Direct X?
No, don't go that way, use OpenGl. Its portable.