No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
|
Program PRG3; Var { Declaring Varaibles } FileIn:text; FileOut:text; SECTION_NUMBER:string[5]; STUDENT_ID:string[9]; LAST_NAME:string[20]; FIRST_NAME:string[10]; RAW_SCORE:real; STUDENT_COUNT:integer; AVERAGE_SCORE:integer; AVERAGE_GRADE:integer; Percent:real; more_rec:boolean; {end of file flag} Computed_grade:integer; Grade:real; procedure read_record; begin if not Eof(fileIn) then readln(SECTION_NUMBER,STUDENT_ID,LAST_NAME,FIRST_NAME,RAW_SCORE) else more_rec := False end; {read record} procedure print_header; begin writeln(fileout,Space(14),'COMPUTE GRADE'); writeln(fileout,space(17),'SECTION','SECTION_NUMBER'); writeln(fileout); writeln(fileout,space(9),'LAST_NAME',space(11),'FIRST_NAME',' RAW_SCORE',' COMPUTED_GRADE'); … 
|