Pascal and Delphi

Turbo pascal homework

•

Join Date: Feb 2005

Posts: 2

Reputation: Paramaribo is an unknown quantity at this point

Solved Threads: 0

Paramaribo Paramaribo is offline

Offline

Newbie Poster

Turbo pascal homework

Feb 22nd, 2005

Hi,

I don't want anyone to do my assignment for me, I just want some help.

I'm a student in Suriname, formerly Dutch-Guiana. My teacher decided that we should learn how to write basic programs in Turbo Pascal to improve our "problemsolving skills" and for so far things have gone swimmingly. today i received an assignment:

http://img.photobucket.com/albums/v7...Scanned-01.jpg

I can do the first part (having the program read in all the info), I just don't know how to create a table (figure 1 and 2) or the "certificate". I've never seen that before. I've tried to look it up in some books in our library, but I've found nothing because I have no idea what I'm looking for. so can anyone just give me a word that I can look up, i don't want you to write my program, I just want a word (I'm that desperate for help :o ).
Thank you for reading this!

•

Join Date: Jan 2005

Posts: 45

Reputation: Siersan is an unknown quantity at this point

Solved Threads: 2

Siersan

Offline

Speaker of Truth

Re: Turbo pascal homework

Feb 22nd, 2005

How you print the table depends on how you set up your table of records. If it's actually an array of records then you're looking at a loop like this:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
writeln('Summary of Student Course Scores:')
writeln('ID  NAME  CLASSICAL  REGGAE  ROCK  TOTAL  AVERAGE');
for i := 1 to N do
  writeln(s[i].id, s[i].name, s[i].classical, s[i].rock, s[i].total, s[i].average);
writeln('Summary of Student Course Scores:')
writeln('ID  NAME  CLASSICAL  REGGAE  ROCK  TOTAL  AVERAGE');
for i := 1 to N do
  writeln(s[i].id, s[i].name, s[i].classical, s[i].rock, s[i].total, s[i].average);

I'll let you work out the formatting issues as that tends to be more trial and error than anything.

I would imagine that the certificate itself is something simple along these lines:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
writeln('*GOLD*\nCERTIFICATE OF OUTSTANDING\nACHIEVEMENT');
writeln('\n\n', highest.name, '\n\nIn Music Studies\n');
writeln('*GOLD*\nCERTIFICATE OF OUTSTANDING\nACHIEVEMENT');
writeln('\n\n', highest.name, '\n\nIn Music Studies\n');

Once again, the formatting itself so that everything is centered I will leave to you.

•

Join Date: Feb 2005

Posts: 2

Reputation: Paramaribo is an unknown quantity at this point

Solved Threads: 0

Paramaribo Paramaribo is offline

Offline

Newbie Poster

Re: Turbo pascal homework

Feb 27th, 2005

Thanks, your advice was really helpfull. I have on last question, if you don't mind.

Here's the last part of my program:

highestavegrade := avegradestudent[1];
FOR i:=2 TO 10 DO
BEGIN
IF avegradestudent[i] >= highestavegrade
THEN highestavegrade := avegradestudent[i];
END;
FOR i:=1 TO 10 DO
BEGIN
IF avegradestudent[i] >= highestavegrade
THEN writeln (*GOLD*, etc, etc

When I run the program all the names of the students appear, instead of the one with the highest average (Jack Bean). What am I doing wrong?

•

Join Date: Jan 2005

Posts: 31

Reputation: Jackrabbit is an unknown quantity at this point

Solved Threads: 0

Jackrabbit Jackrabbit is offline

Offline

Light Poster

Re: Turbo pascal homework

Mar 3rd, 2005

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
highestavegrade := 0;
 
for i:=1 to 10 do
begin
   if avegradestudent[i] > highestavegrade then
   begin
      highestavegrade := avegradestudent[i];
   end;
end;
 
for i:=1 to 10 do
begin
   if avegradestudent[i] = highestavegrade then
   begin
 { writeln (*GOLD*, etc, etc }
   end;
end;
highestavegrade := 0;

for i:=1 to 10 do
begin
   if avegradestudent[i] > highestavegrade then
   begin
      highestavegrade := avegradestudent[i];
   end;
end;

for i:=1 to 10 do
begin
   if avegradestudent[i] = highestavegrade then
   begin
 { writeln (*GOLD*, etc, etc }
   end;
end;