PROGRAM 29


PROGRAM RANDOM_NUMBERS;
        {ANTHONY F. ORTIZ, ASSIGNMENT 11B, JULY 26, 1994}
        {THIS PROGRAM GENERATES RANDOM NUMBER PAIRS AND PRINTS THEM TO THE
         SCREEN.}
USES CRT;

TYPE
   TABLETYPE = ARRAY [1..20, 1..2, 1..5] OF INTEGER;
   COUNTERTYPE = ARRAY [2..12] OF INTEGER;

PROCEDURE INPUTRANDOMNUMBERS (VAR TABLES:  TABLETYPE);

VAR
   ROW, COL, PAIR:  INTEGER;

BEGIN
     RANDOMIZE;
     FOR ROW := 1 TO 20 DO
         FOR COL := 1 TO 2 DO
             FOR PAIR := 1 TO 5 DO
                 TABLES [ROW, COL, PAIR] := RANDOM (6) + 1;
END;

PROCEDURE PRINTRANDOMNUMBERS (VAR TABLES:  TABLETYPE);

VAR
   ROW, COL, PAIR:  INTEGER;

BEGIN
     WRITELN ('100 PAIRS OF RANDOM NUMBERS');
     WRITELN;
     FOR ROW := 1 TO 20 DO
         BEGIN
              WRITELN;
              FOR PAIR := 1 TO 5 DO
                  BEGIN
                       WRITE ('     ');
                       FOR COL := 1 TO 2 DO
                           BEGIN
                                WRITE (TABLES [ROW, COL, PAIR]:2);
                           END;
                  END;
         END;
     WRITELN;
END;

PROCEDURE PAUSE;

BEGIN
     WRITELN;
     WRITE ('PRESS ENTER KEY TO SEE PAIR COUNTS. ');
     READLN;
END;

PROCEDURE SUMEACHPAIR (VAR TABLES:  TABLETYPE; VAR COUNTER:  COUNTERTYPE);

VAR
   ROW, COL, PAIR, COUNT, X, Y:  INTEGER;

BEGIN
     FOR COUNT := 1 TO 12 DO
         COUNTER [COUNT] := 0;
     FOR ROW := 1 TO 20 DO
         FOR PAIR := 1 TO 5 DO
             FOR COL := 1 TO 2 DO
                 BEGIN
                      IF COL = 1 THEN
                         X := TABLES [ROW, COL, PAIR];
                      IF COL = 2 THEN
                         BEGIN
                              Y := TABLES [ROW, COL, PAIR];
                              COUNT := X + Y;
                              COUNTER [COUNT] := COUNTER [COUNT] + 1;
                         END;
                 END
END;

PROCEDURE PRINTCOUNTERS (VAR COUNTER:  COUNTERTYPE);

VAR
   COUNT:  INTEGER;

BEGIN
     WRITELN ('HOW MANY TIMES (2 - 12) CAME UP AS THE SUM OF THE PAIR');
     WRITELN;
     FOR COUNT := 2 TO 12 DO
         WRITELN (COUNT:3, ' APPEARED ', COUNTER [COUNT]:3, ' TIMES.');
END;

PROCEDURE INQUIRY (VAR ANS:  STRING);

BEGIN
     WRITELN;
     WRITE ('WOULD YOU LIKE TO DISPLAY DIFFERENT RANDOM NUMBERS?  TYPE ''YES'' TO CONTINUE. ');
     READLN (ANS);
END;

VAR
    TABLES:  TABLETYPE;
   COUNTER:  COUNTERTYPE;
       ANS:  STRING;

BEGIN
     REPEAT
           CLRSCR;
           INPUTRANDOMNUMBERS (TABLES);
           PRINTRANDOMNUMBERS (TABLES);
           PAUSE;
           CLRSCR;
           SUMEACHPAIR (TABLES, COUNTER);
           PRINTCOUNTERS (COUNTER);
           INQUIRY (ANS);
     UNTIL ANS <> 'YES';
END.

{  OUTFILE:  PROG29.OUT  }

100 PAIRS OF RANDOM NUMBERS


      5 1      5 6      3 5      5 1      2 4
      2 4      1 5      1 6      4 3      4 1
      1 4      3 4      4 5      3 2      5 6
      4 1      6 3      3 5      5 2      5 4
      4 5      3 5      2 1      2 4      6 3
      4 3      6 4      6 5      1 1      4 6
      6 3      6 1      3 3      4 6      2 2
      5 4      1 5      1 6      1 4      2 3
      4 2      4 5      1 1      6 1      5 4
      6 5      4 3      4 6      6 5      1 3
      6 2      3 6      3 1      5 5      5 4
      4 3      1 6      6 5      2 5      1 4
      6 5      3 5      4 2      6 2      1 6
      4 6      6 1      1 3      1 2      5 6
      1 6      6 1      5 2      6 2      3 3
      4 5      6 5      5 6      1 6      1 2
      6 2      1 1      4 5      6 1      2 5
      4 2      5 2      2 4      3 1      5 6
      3 2      6 4      1 4      2 5      3 6
      1 3      4 2      5 3      6 1      5 5

PRESS ENTER KEY TO SEE PAIR COUNTS.

HOW MANY TIMES (2 - 12) CAME UP AS THE SUM OF THE PAIR

  2 APPEARED   3 TIMES.
  3 APPEARED   3 TIMES.
  4 APPEARED   6 TIMES.
  5 APPEARED  10 TIMES.
  6 APPEARED  14 TIMES.
  7 APPEARED  23 TIMES.
  8 APPEARED   9 TIMES.
  9 APPEARED  14 TIMES.
 10 APPEARED   7 TIMES.
 11 APPEARED  11 TIMES.
 12 APPEARED   0 TIMES.

WOULD YOU LIKE TO DISPLAY DIFFERENT RANDOM NUMBERS?  TYPE 'YES' TO CONTINUE. no




BACK TO COMP151 PAGE.