Scribd
Upload
7 views2 pages

Algorithum

The document outlines a program for calculating student grades based on their scores in classwork, homework, tests, and exams. It prompts the user to input the student's name and respective scores, computes the overall score, and assigns a letter grade based on predefined thresholds. The program iterates for four students and displays each student's name, overall score, and letter grade.

Uploaded by

alewin803
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
7 views2 pages

Algorithum

The document outlines a program for calculating student grades based on their scores in classwork, homework, tests, and exams. It prompts the user to input the student's name and respective scores, computes the overall score, and assigns a letter grade based on predefined thresholds. The program iterates for four students and displays each student's name, overall score, and letter grade.

Uploaded by

alewin803
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

START

A= 0
Overall_score = 0.0
Grade = “ “
studentname = “ “
class_work = 0.0
home_work = 0.0
test_work = 0.0
exam_score = 0.0
For ( A = 0 To 4 ) Do
Begin
Display “Enter name of student”
Read studentname
Display “Enter classwork score”
Read class_work
Display “Enter homework score”
Read home_work
Display “Enter test work score”
Read test_work
Display “Enter exam score”
Read exam_score
Overall_score = ( class_score + home_score + test_score + exam_score )
If Overall_score >= 0.80 then
Grade = ‘A’
Else
If Overall_score >= 0.60 then
Grade = ‘B’
Else
If Overall_score >= 0.50 then
Grade = ‘C’
Else
Grade = ‘D’
End If
End If
End If
Display “Name of student is”, studentname
Display “Overall score is”, Overall_score
Display “Letter Grade is”, Grade
End For
STOP
Pascal
Program DIXONHIGH;
Var
Studentname:string;
Class_work:real; Home_work:real; test_work:real; exam_score:real;
Grade:char;
A:integer;
Begin
Studentname:=’ ‘;
Class_work:=0.0

You might also like