Pascal Program for FindGrade | Created by My Student, Mr. Hamdhy

Опубликовано: 28 Сентябрь 2024
на канале: JMA Pro

This code calculates a student's grade based on their marks.

Pascal Code:
--------------------------------------------------------------------------

program FindGrade(input,output);
var
Marks: integer;
Grade: char;

begin
writeln('Enter Marks');
readln(Marks);

case Marks of
0..34: Grade := 'W';
35..49: Grade := 'S';
50..64: Grade := 'C';
65..74: Grade := 'B';
75..100: Grade := 'A';
else
writeln('Invalid Marks');
end;

if (Marks "greater than"= 0) AND (Marks "less than"= 100) then
writeln('Grade is ', Grade);

end.

--------------------------------------------------------------------------

#Pascal #Programming #PascalTutorial #GCE_OL #GradeCalculation #StudentProject