Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  SianMark_Assignment1.pas
Language: PASCAL
Code:
program grades;
var


Begin
for c:= 1 to 15 do
     begin
          writeln('Class A');
          writeln('Please enter name');
          writeln('Please enter mark');
          readln;
     end;
     if mark>80 then
          writeln('You got an A')
     else
     mark<50 then
          writeln('You have failed')
     endif;

     max=0;
     read mark;
          if max=mark;
     writeln(Name with max mark);
     endif;

     min=0;
     read mark;
          if min=mark;
     writeln(Name with min mark);
     endif;

     writeln(amount of grades>80);
     writeln(amount of grades<50);
     readln;
     Ave:= sum of grades/number of grades;
     writeln(sum);
End;

Begin
for c:= 1 to 15 do
     begin
          writeln('Class B');
          writeln('Please enter name');
          writeln('Please enter mark');
          readln;
     end;
     if mark>80 then
          writeln('You got an A')
     else
     mark<50 then
          writeln('You have failed')
     endif;

     max=0;
     read mark;
          if max=mark;
     writeln(Name with max mark);
     endif;

     min=0;
     read mark;
          if min=mark;
     writeln(Name with min mark);
     endif;

     writeln(amount of grades>80);
     writeln(amount of grades<50);
     readln;
     Ave:= sum of grades/number of grades;
     writeln(sum);
End;

max:=o;
read mark
     if mark>max then
     max=mark;
     writeln(Max ave mark);
     readln;
     writeln(Max Class mark);
     readln;
endif;

min=0;
     read mark
     if mark<min then
     min=mark;
writeln(Min Class mark);
endif;

End.
Comments: