home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / SECONDHR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  1.2 KB  |  28 lines
  1. ~~~~~~~~~~~~~~~~');
  2.          DELAY (3000);
  3.      END;
  4. PROCEDURE Calculate_Points; {Calculates the total points by multiplying the
  5.                               amount of wins in each category by the
  6.                               appropiate figure                             }
  7.      BEGIN
  8.          Total_Points := (Home_Win) + (Away_Win * 1.5) + (No_Scr_Draw * 2) + (Score_Draw * 3);
  9.      END;
  10.  
  11. PROCEDURE Calculate_Categories;   {If the home team's score is more than or is equal to 0 the
  12.                                    program asks the user for the way team's score}
  13.      BEGIN
  14.           IF Home_Team_Scr < 0 THEN
  15.              BEGIN {Begining of loop}
  16.                   GOTOXY (31,12);
  17.                   WRITELN ('End of Entries');
  18.                   DELAY (700);
  19.              END; {End of loop}
  20.           IF Home_Team_Scr >= 0 THEN
  21.              BEGIN {Start of loop}
  22.                   GOTOXY (21,6);
  23.                   WRITE ('Now enter the away teams score  ');
  24.                   READLN (Away_Team_Scr);
  25.                   GOTOXY (31,12);  {Screen area to display answer}
  26.                   IF Home_Team_Scr > Away_Team_Scr THEN
  27.                      BEGIN {Start of sub loop}
  28.