6:43 AM
mitraaa
BEGIN
RECORD member
HAS FIELDS Number : Integer
Name : String
Contact no. : String
Level : String
Payment detail : String
Amount paid : Float
Use variables: member_list[600] ARRAY OF TYPE member
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 acceptvalue
Use variables: r OF TYPE Integer
Count:=0
REPEAT
Count:=count++
DISPLAY “Enter number”
ACCEPT member[count].number
DISPLAY “Enter name”
ACCEPT member[count].name
DISPLAY “Enter contact no.”
ACCEPT member[count]. contact no.
DISPLAY “Enter payment detail”
ACCEPT member[count].payment detail
DISPLAY “Enter amount paid”
ACCEPT member[count].amount paid
DISPLAY “Do you want to enter more? Press Y for Yes and N for No”
ACCEPT r
UNTIL r=N
END PROCEDURE
PROCEDURE print report
Use variables: r1,r2 OF TYPE Integer
r1=0
r2=0
FOR (j:=0, j:=count, j++)
IF member[j].level=Adult AND amount paid=’1000’
DISPLAY member[j].number
DISPLAY member[j].name
DISPLAY member[j].contact no.
DISPLAY member[j].level
DISPLAY member[j].payment detail
r1++
ENDIF
ENDFOR
DISPLAY “total paid adult member is” r1++
FOR (j:=0, j:=count, j++)
IF member[j].level=Junior AND amount paid=’1000’
DISPLAY member[j].number
DISPLAY member[j].name
DISPLAY member[j].contact no.
DISPLAY member[j].level
DISPLAY member[j].payment detail
r2++
ENDIF
ENDFOR
DISPLAY “total paid junior member is” r2++
END PROCEDURE
END PROGRAM
0 comments:
Post a Comment