'New program' Thread RSS Feed

New program

Sun, 13 Jan 2013 12:19:22 -0700

hello there, am new at sortoff new into the pascal environment and would love to get some assistance in that please. i have to create a program that will allow the entry of 10 students’ name, sex and grade which should display the percentage of students who got a grade of 50 or more.The Percentage of male students getting 50 or above together with the percentage of female students getting 50 or above.The program should also print the female with the highest average and the male with the highest average.
please help me since this is puzzling me and in urgent need of submission. thanking the person who helps with this asap!!

Re: New program

Sun, 13 Jan 2013 14:14:27 -0700

You should use a pascal record structure like this:

http://pascal-programming.info/lesson11.php

Re: New program

Sun, 13 Jan 2013 15:23:22 -0700

that is d code i started with so far but am getting alot of problems:

program Grading_System;

uses
crt;

var
ClassNames : array[1..10] of string[20];
ClassGen : array[1..10] of string[20];
ClassAvg : array[1..10] of integer;
LoopCounter : integer;
NumberOfNames : integer;
sum:integer;
average: real;

begin
clrscr;
write('How many names are you entering (max 10)? ');
readln(NumberOfNames);

{Input Names, Grades and Gender}
LoopCounter := 1;
while LoopCounter <= NumberOfNames do
begin
writeln;
writeln('Enter Name: ',LoopCounter);
readln(ClassNames[LoopCounter]);
writeln;
writeln('Enter Gender: ',LoopCounter);
readln(ClassGen[LoopCounter]);
writeln;
writeln('Enter Average: ',LoopCounter);
readln(ClassAvg[LoopCounter]);
LoopCounter := LoopCounter + 1;
end;

{Print out names}
writeln('Here is the list of names');
LoopCounter := 1;
while LoopCounter <= NumberOfNames do
begin
writeln(ClassNames[LoopCounter],' : ',ClassGen[LoopCounter],' : ',ClassAvg[LoopCounter]);
LoopCounter := LoopCounter + 1;
end;
readln;

{Students with 50+ average}
writeln('Here is the percentage of students with 50+ average');
LoopCounter := 1;
while LoopCounter <= NumberOfNames do
begin
if ClassAvg[10] >= 50 then
sum := 0;
sum := sum + ClassAvg[10];
average := sum / 100;
writeln('Percentage of Students with 50+ average is: ',average:10:2,'%');
LoopCounter := LoopCounter + 1;
end;
readln;

end.

Re: New program

Thu, 17 Jan 2013 14:09:53 -0700

(*
i have to create a program that will
   allow the entry of 10 students’ name, sex and grade

which should display :
   the percentage of students who got a grade of 50 or more.
   The Percentage of male students getting 50 or above.
   The percentage of female students getting 50 or above.
   The the female with the highest average
   The male with the highest average.
*)

program Grading_System ;
(*
uses crt ;
*)
var
   ClassNames     : array[1..10] of string[20] ;
   ClassGen       : array[1..10] of char ;
   ClassAvg       : array[1..10] of integer ;
   LoopCounter    : integer ;
   NumberOfNames  : integer ;
   sum            : integer ;
   average        : real ;

begin
   (*
   clrscr ;
   *)
   write('How many names are you entering (max 10)? ') ;
   readln(NumberOfNames) ;
   
   
   {
      Input Names, Grades and Gender
   }
   for LoopCounter := 1 to NumberOfNames do begin
      writeln ;
      writeln('Enter Name: ',LoopCounter) ;
      readln(ClassNames[LoopCounter]) ;

      repeat
         writeln ;
         writeln('Enter Gender: ',LoopCounter) ;
         readln(ClassGen[LoopCounter]) ;
      until ClassGen[LoopCounter] in ['F','M'] ;

      writeln ;
      writeln('Enter Average: ',LoopCounter) ;
      readln(ClassAvg[LoopCounter])
   end ;
   
   {
      Print out names
   }
   writeln('Here is the list of names') ;
   for LoopCounter := 1 to NumberOfNames do
      writeln(ClassNames[LoopCounter]:20, ' : ',ClassGen[LoopCounter],' : ',ClassAvg[LoopCounter]:5) ;
   readln ;
   
   {
      Students with 50+ average
   }
   sum := 0 ;
   for LoopCounter := 1 to NumberOfNames do
      if ClassAvg[LoopCounter] >= 50 then
         sum := sum + 1 ;
   average := 100.0 * sum / NumberOfNames ;

   writeln('Percentage of Students with 50+ average is: ', average:0:2,'%') ;
   readln
end.

Re: New program

Thu, 17 Jan 2013 17:43:45 -0700

thank you very much for your assistance, i just had to add in piece of the same code you had below to get for the males with 50+ average but it's working like a charm. I can't express my thanks but i really do appreciate you help much.

Re: New program

Thu, 17 Jan 2013 19:32:06 -0700

please help me with this. i have to find the gender with the highest number. both male and female that has the highest value, so i came up with this part of the code but am getting the same value for both male and female:

{
Female and Male with highest value
}
high := ClassAvg[1] ;
low := ClassAvg[1] ;

begin
if (ClassAvg[LoopCounter] > high) and (ClassGen[LoopCounter] = 'M') then
high := ClassAvg[LoopCounter] ;

if (ClassAvg[LoopCounter] < low) and (ClassGen[LoopCounter] = 'M') then
low := ClassAvg[LoopCounter] ;

if (ClassAvg[LoopCounter] > high) and (ClassGen[LoopCounter] = 'F') then
high := ClassAvg[LoopCounter] ;

if (ClassAvg[LoopCounter] < low) and (ClassGen[LoopCounter] = 'F') then
low := ClassAvg[LoopCounter] ;
end;
writeln('Male with highest grade is: ',ClassNames[LoopCounter],' - ',ClassGen[LoopCounter],' : ',high) ;
readln ;
writeln('Female with highest grade is: ',ClassNames[LoopCounter],' - ',ClassGen[LoopCounter],' : ',high) ;
readln

Re: New program

Thu, 17 Jan 2013 22:09:02 -0700

This is a fragment. I have not had time to compile and test it.

var
   .
   .
   .
   Marker : char ;
   Index  : integer ;
   GenStr : string[6] ;

begin
   .
   .
   .
   {
      Female and Male with highest value
   }
   Marker := 'F' ;
   while Marker <= 'M' do begin
      if Marker = 'F' then
         GenStr := 'Female'
      else
         GenStr := 'Male' ;

      Index := 0 ;
      Max   := 0 ;
      for LoopCounter := 1 to NumberOfNames do begin
         if (ClassGen[LoopCounter] = Marker) and (ClassAvg[LoopCounter] > Max) then begin
            Max   := ClassAvg[LoopCounter] ;
            Index := LoopCounter
         end         
      end ;

      if Index = 0 then
         writeln ('There are no ', GenStr, 's in the class.')
      else
         writeln (ClassNames[Index], ' with an average of ',
                  ClassAvg[Index], ' is the highest ranking',       
                  Genstr, ' in the class.') ;

      Marker := 'M'
   end ;

Re: New program

Fri, 18 Jan 2013 15:48:12 -0700

thank you very much but i have to get both gender; male and female with the highest grade of the program. i have used what you have created and am trying to adjust it but am getting an infinity loop. just keep going, please assist me in that but am also trying to curb the problem.

Re: New program

Fri, 18 Jan 2013 21:16:53 -0700

Sorry about that. As I said I didn't have time to test it. This should cure the infinite loop. The code handles Female the first time through the loop and Male the second time.

var
   .
   .
   .
   Marker : char ;
   Index  : integer ;
   GenStr : string[6] ;
   Count  : 1 .. 2 ;

begin
   .
   .
   .
   {
      Female and Male with highest value
   }
   for Count := 1 to 2 do begin  { loop two times }
      if Count = 1 then begin         { 'Female' the first time thru }
         Marker := 'F' ;
         GenStr := 'Female'
      end
      else begin                      { 'Male' the second time thru }
         Marker := 'M' ;
         GenStr := 'Male'
      end ;


      Index := 0 ;
      Max   := 0 ;
      for LoopCounter := 1 to NumberOfNames do begin
         if (ClassGen[LoopCounter] = Marker) and (ClassAvg[LoopCounter] > Max) then begin
            Max   := ClassAvg[LoopCounter] ;
            Index := LoopCounter
         end         
      end ;

      if Index = 0 then
         writeln ('There are no ', GenStr, 's in the class.')
      else
         writeln (ClassNames[Index], ' with an average of ',
                  ClassAvg[Index], ' is the highest ranking',       
                  Genstr, ' in the class.')
   end ;

Re: New program

Fri, 18 Jan 2013 21:25:02 -0700

: hello there, am new at sortoff new into the pascal
: environment and would love to get some assistance in that please. i
: have to create a program that will allow the entry of 10 students’
: name, sex and grade which should display the percentage of students
: who got a grade of 50 or more.The Percentage of male students
: getting 50 or above together with the percentage of female students
: getting 50 or above.The program should also print the female with
: the highest average and the male with the highest average.
: please help me since this is puzzling me and in urgent need of
: submission. thanking the person who helps with this asap!!

Do you know how to use

* Procedures
* Functions
* Records
* User defined types, particularly enumerated types

Re: New program

Sat, 19 Jan 2013 09:07:44 -0700

hey, no i don't no much of them things especially in the Pascal environment. I was just given a crash course in it online and by some friends in order to get myself in it. so can you please give me some assistance in it since am beginning to love the programming sector and am thinking of getting into it full time because i love creating solutions. Thanks again Actor21, u have been a great help and i do appreciate all you have done for me.