home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / QUIZ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  1.1 KB  |  46 lines
  1. PROGRAM QUIZ;
  2.       {  Program asks user to enter name and 5 quiz scores and then display
  3.          info on screen. Started on disk as Quiz Sco. PAS                   }
  4.  
  5.  USES   CRT;
  6.  
  7. VAR     Name: String [20];
  8.          Score1, Score2, Score3, Score4, Score5 : INTEGER;
  9.  
  10. PROCEDURE EnterName;
  11.      BEGIN
  12.        WRITELN('Please enter students name');
  13.        WRITELN('Up to maximum of 20 letters');
  14.        READLN (Name);
  15.        CLRSCR;
  16.      END;
  17.  
  18. PROCEDURE EnterScores;
  19.      BEGIN
  20.        WRITELN('Please enter 5 quiz scores');
  21.        READLN(Score1, Score2, Score3, Score4, Score5);
  22.        CLRSCR;
  23.      END;
  24.  
  25. PROCEDURE DisplayInfo;
  26.      BEGIN
  27.        WRITELN('Students Name',   ',   ', Name);
  28.        WRITELN('Quiz Scores  ', Score1,'  ',Score2,'  ',Score3);
  29.        WRITELN( Score4,'  ',Score5);
  30.      END;
  31.  
  32. PROCEDURE CalculateAverage;
  33.      BEGIN
  34.        WRITELN('Average');
  35.        WRITELN((Score1+Score2+Score3+Score4+Score5)/5:8:2);
  36.      END;
  37.  
  38.     BEGIN {Main Program}
  39.       CLRSCR;
  40.       EnterName;
  41.       EnterScores;
  42.       DisplayInfo;
  43.       CalculateAverage;
  44.     END.
  45.  
  46. ə