Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- papierkorb:test1-2.blk [2025-08-16 17:50] – ↷ Seite von projects:test1-2.blk nach papierkorb:test1-2.blk verschoben mka
+++ papierkorb:test1-2.blk [Unbekanntes Datum] (aktuell) – gelöscht - Externe Bearbeitung (Unbekanntes Datum) 127.0.0.1
@@ Zeile 1: / Zeile 1: @@
-=== MID TERM EXAM 2 ===
-<code>
-Screen 0 not modified
-\                                              13:36JWB02/16/86
-\ Last change:   Screen  011                   20:25JWB02/17/86
-
-                      MATHEMATICS  495
-
-
-         INTRODUCTION TO THE FORTH PROGRAMMING LANGUAGE
-
-
-                       MID TERM EXAM
-
-                     FEBRUARY 18, 1986
-
-                     TOTAL  MARKS = 25
-
-
-Screen 1 not modified
-\ QUESTION 1 ( 5 MARKS )                       13:45JWB02/16/86
-Show the resulting stack after return is pressed.
-
-Example:   54  21  13   SWAP  DROP
-  Answer:   54  13        <top of stack.
-
-a)  13  17  23  31   ROT    ROT
-
-b)  13  31  17  23   OVER   OVER
-
-c)  23  17  13   2   PICK   2  PICK  2  PICK
-
-d)  11  5  -14   5   /MOD
-
-e)  25  50  10   */  5  +  10  /
-
-Screen 2 not modified
-\ QUESTION 2 ( 5 MARKS )                       16:13JWB02/16/86
-Design the FORTH word EIGHT that will draw  the outline of the
-number eight on the display.  The outline must use the
-word  WHITE  ( or WW )  from the CHECKER-BOARD  program.
-
-: WHITE   177  EMIT  ;                        XXXXXX
-                                              X      X
-The word EIGHT takes no stack parameters.    X      X
-The output should look exactly like the      X      X
-figure at right except that it will not       XXXXXX
-be made from X's.  To obtain full marks      X      X
-you should demonstrate your knowledge of     X      X
-factoring (ie  your definition of EIGHT      X      X
-should not be one great big word!).           XXXXXX
-
-
-Screen 3 not modified
-\ QUESTION 3 ( 5 MARKS )                       16:15JWB02/16/86
-A closed rectangular tank has a square base, b cm by b cm,
-and is h cm high.
-a) Write the word AREA that takes two stack inputs base, and
-    height and leaves the surface area, a= 2bb +4bh, on the stack
-    AREA  ( b h   a )
-b) Write the word VOLUME that takes two stack inputs base, and
-    height and leaves the volume, v=bbh, on the stack.
-    VOLUME ( b h  v )
-c) Write the word TANK that takes two stack inputs base, and
-    height and uses the words AREA and VOLUME above to produce
-    the following report when executed as shown below:
-    4 5 TANK
-    The surface area is  112  square centimeters.
-    THe volume is   80  cubic centimeters.
-
-Screen 4 not modified
-\ QUESTION 4 ( 5 MARKS )                       16:49JWB10/27/85
-a) Show how you would create a FORTH variable called  VALVE  .
-    The variable VALVE will be used to contain the percentage
-    that a valve is open ( 0 is closed, 100 full open).
-
-b) Design the word  STATUS?  to display the current valve state.
-    ie  STATUS?    displays:   Valve is now  XX percent open.
-
-c) Write  INITIAL-SETTING   that sets  variable   VALVE
-    to the top stack number.
-
-d) Write the word OPEN which adds the top stack number to VALVE
-    and word CLOSE which subtracts top stack number from VALVE .
-e) Can the value of VALVE ever become less than 0 using CLOSE ?
-    Can the value of VALVE ever exceed 100 using OPEN ?
-    Fix OPEN and CLOSE so that VALVE is always between 0 and 100.
-Screen 5 not modified
-\ QUESTION 5 ( 5 MARKS )                       16:19JWB02/16/86
-a) Create an array called DATA that will hold 50 16bit numbers.
-
-b) Write a word called CLEAR-DATA which initializes
-    each cell of the array DATA to zero.
-
-c) Write a word called COUNT-DATA that counts the number of
-    non zero entries in the array and saves it in the variable N.
-
-d) Write a word called SUM-DATA that leaves the sum of all non
-    zero entries in the array DATA in the variable SSUM  .
-
-e) Write a word called SUM-SQR that leaves the sum of squares
-    of all non zero entries in the array DATA in the variable
-     SSQR  .
-
-Screen 8 not modified
-\  32 bit square root KS  4TH DIM V4N1P9
-
-: EASY-BITS ( drem1 partial.root1 count   drem2  partial.root2 )
-     0  DO  >R  D2*  D2*
-            R@  -  DUP  0<
-            IF    R@ + R> 2*  1-
-            ELSE       R> 2*  3  +
-            THEN  LOOP  ;
-
-: 2'S-BIT ( drem2 proot2   drem3  proot3 ) \ get penultimate bit
-      >R  D2*  DUP  0<
-      IF   D2*  R@  -  R>  1+
-      ELSE D2*  R@  2DUP  U<
-           IF   DROP  R> 1-
-           ELSE  -    R> 1+
-      THEN THEN ;
-Screen 9 not modified
-\  32 bit square root KS  4TH DIM V4N1P9
-: 1'S-BIT   ( drem3 proot3   fullroot )  \ remainder lost
-      >R  DUP  0<
-      IF    2DROP  R>  1+
-      ELSE  D2*  32768 R@  DU<  0=  R>  THEN ;
-\ 32-bit unsigned radicand to 16-bit unsigned square root
-: SQRT     ( ud     u  )
-         0  1 8 EASY-BITS  ROT  DROP  6 EASY-BITS
-         2'S-BIT  1'S-BIT  ;
-\ Display square root of 16-bit number with 3 decimal places.
-: .SQRT  ( n   -- )  \ n  must be < 4096
-         16 *  62500  UM*
-         SQRT  0 <#  # # #  ASCII . HOLD  #S #>
-         TYPE  SPACE ;
-: TEST  100 0 DO CR I 5 .R  SPACE I .SQRT  LOOP ;
-
-Screen 11 not modified
-\ ANSWER TO QUESTION 5  ( 5 MARKS )            20:25JWB02/17/86
-Show the resulting stack after return is pressed.
-
-Example:   54  21  13   SWAP  DROP
-  Answer:   54  13        <top of stack.
-
-a)  13  17  23  31   ROT    ROT              13 31 17 23
-
-b)  13  31  17  23   OVER   OVER             13 31 17 23 17 23
-
-c)  23  17  13   2   PICK 2 PICK 2 PICK      23 17 13 23 17 13
-
-d)  11  5  -14   5   /MOD                    11  5  1 -3
-
-e)  25  50  10   */  5  +  10  /             13
-
-Screen 12 not modified
-\ ANSWER TO QUESTION NUMBER 2  ( 5 MARKS )     20:25JWB02/17/86
-
-: WHITE   177  EMIT  ;
-: .TOP  ( --  -- )
-         SPACE 6 0 ?DO WHITE LOOP ;
-: .ROW  ( --  -- )
-         WHITE 6 0 ?DO SPACE LOOP WHITE ;
-
-: EIGHT ( --  -- )
-         CR .TOP
-         3 0 DO CR .ROW LOOP
-         CR .TOP
-         3 0 DO CR .ROW LOOP
-         CR .TOP
-         CR  ;
-
-Screen 13 not modified
-\ ANSWER TO QUESTION 3  ( 5 MARKS )            18:04JWB02/16/86
-  : AREA ( b h   a )
-      OVER DUP *  2 * ROT ROT  * 4 * +  ;
-
-  : VOLUME ( b h   v )
-      OVER * *  ;
-
-  :  TANK ( b h  --  )
-    CR OVER OVER
-    CR ." The surface area is " AREA .
-       ." square centimeters."
-    CR ." The volume is " VOLUME .
-       ." cubic centimeters."
-    CR  ;
-     4   5    TANK
-
-Screen 14 not modified
-\ ANSWER TO QUESTION 4 ( 5 MARKS)              20:22JWB02/17/86
-( a) VARIABALE  VALVE
-
-( b) : STATUS? ( --  -- )
-          CR ." Valve is now  " VALVE @ . ." percent open." ;
-
-( c) : INITIAL-SETTING  ( n  -- )
-          0 MAX 100 MIN  VALVE ! ;
-
-( d) : OPEN  ( n  -- )          VALVE +! ;
-      : CLOSE ( n  -- )  NEGATE  VALVE +! ;
-
-( e) : OPEN  ( n  -- )  VALVE @    + 100 MIN VALVE ! ;
-      : CLOSE ( n  -- )  VALVE @ SWAP - 0 MAX VAVLE ! ;
-
-
-Screen 15 not modified
-\ ANSWER TO QUESTION 5:  ( 5 MARKS )           18:36JWB02/16/86
-( a) CREATE  DATA  100 ALLOT
-( b)  : CLEAR-DATA ( --  -- )
-           DATA  100 0  FILL ;
-( a)  VARIABLE N   VARIABLE SSUM     VARIABLE SSQR
-  : DATA@ ( i  -- )
-      DATA SWAP 2* + @ ;
-( c)
-  : COUNT-DATA ( --   -- ) 0 N !
-    50 0 DO I DATA@ IF 1 N +! THEN LOOP  ;
-( d)
-  : SUM-DATA  ( --   -- ) 0 SSUM !
-    50 0 DO I DATA@ ?DUP IF SSUM +!  THEN  LOOP ;
-( e)
-  : SUM-SQR  ( --  -- ) 0 SSQR !
-    50 0 DO I DATA@ ?DUP IF DUP * SSQR +!  THEN  LOOP ;  -->
-Screen 16 not modified
-\  Used for testing solution.                  18:34JWB02/16/86
-
-      : #IN  QUERY  INTERPRET ;
-      : ENTER-DATA ( --  -- )
-        CLEAR-DATA  0  BEGIN
-        CR DUP . ASCII > EMIT  #IN DUP 0<>
-        WHILE  OVER 2* DATA + ! 1+ REPEAT  2DROP ;
-
-
-
-
-
-
-
-
-
-</code>