6:44 AM
mitraaa
BEGIN
RECORD fixture
HAS FIELDS Team : string
Opposition : string
Year : string
Month : string
Day : string
Matchwon : integer
Matchlost : integer
Use variables: fixture_list[40] ARRAY OF TYPE fixture
Count is a global variable OF TYPE Integer
DISPLAY “1.Accept value”
DISPLAY “2.Print report”
ACCEPT choice
IF choice=1 THEN accept value
ELSEIF choice=2 THEN print report
ENDIF
PROCEDURE accept value
Use variables: r3 OF TYPE Integer
Count:=0
REPEAT
Count:=count++
DISPLAY “enter team”
ACCEPT fixture[count].team
DISPLAY “enter year”
ACCEPT fixture[count].year
DISPLAY “enter month”
ACCEPT fixture[count].month
DISPLAY “enter day”
ACCEPT fixture[count].day
DISPLAY “enter opposition”
ACCEPT fixture[count].opposition
DISPLAY “enter matchwon”
ACCEPT fixture[count].matchwon
DISPLAY “enter matchlost”
ACCEPT fixture[count].matchlost
DISPLAY “Do you want to enter more? Press Y for yes and N for no”
ACCEPT r3
UNTIL r3=N
END PROCEDURE
PROCEDURE print report
DISPLAY “enter team to view fixture details”
DISPLAY “1.for team1”
DISPLAY “2.for team2”
DISPLAY “3.for junior_team”
ACCEPT team
IF team=1 THEN team1
ELSEIF team=2 THEN team2
ELSEIF team=3 THEN junior_team
ENDIF
ENDPROCEDURE
PROCEDURE team1
DISPLAY “input year”
ACCEPT year
FOR (j:=0, j:=count, j++)
IF year=fixture[j]year AND fixture[j]team=team1
DISPLAY fixture[j].team
DISPLAY fixture[j].month”-“fixture[i].day”-“fixture[i].year
DISPLAY fixture[j].opposition
DISPLAY fixture[j].matchwon
DISPLAY fixture[j].matchlost
Total won:=total won + fixture[j].matchwon
Total lost:=total lost + fixture[j].matchlost
ENDIF
ENDFOR
DISPLAY “total won” total won
DISPLAY “total lost” total lost
ENDPROCEDURE
PROCEDURE team2
DISPLAY “input year”
ACCEPT year
FOR (j:=0, j=:count, j++)
IF year=fixture[j]year AND fixture[j]team=team2
DISPLAY fixture[j].team
DISPLAY fixture[j].month”-“fixture[i].day”-“fixture[i].year
DISPLAY fixture[j].opposition
DISPLAY fixture[j].matchwon
DISPLAY fixture[j].matchlost
Total won:=total won + fixture[j].matchwon
Total lost:=total lost + fixture[j].matchlost
ENDIF
ENDFOR
DISPLAY “total won” total won
DISPLAY “total lost” total lost
ENDPROCEDURE
PROCEDURE junior_team
DISPLAY “input year”
ACCEPT year
FOR (j:=0, j=:count, j++)
IF year=fixture[j]year AND fixture[j]team=junior_team
DISPLAY fixture[j].team
DISPLAY fixture[j].month”-“fixture[i].day”-“fixture[i].year
DISPLAY fixture[j].opposition
DISPLAY fixture[j].matchwon
DISPLAY fixture[j].matchlost
Total won:=total won +fixture[j].matchwon
Total lost:=total lost + fixture[j].matchlost
ENDIF
ENDFOR
DISPLAY “total won” total won
DISPLAY “total lost” total lost
ENDPROCEDURE
ENDROGRAM
0 comments:
Post a Comment