List of Variables: Who Are Approved. Applicants Who Are Not Approved
List of Variables: Who Are Approved. Applicants Who Are Not Approved
Applicant =0
P1
P1
NO If Community = CC
HC
SG or PG
YES
If HSalary = 130,500
YES
PCC and
Hcomunity = CC
NO
If HSalary = 100,500
YES
PSG and
Hcomunity = SG
If HSalary = 95,500
YES
PPG and
Hcomunity = PG
P2
P2
Qualified CC [ CC Count]
IDNO + Fname + Lname
PR
APPLICANT APPLICANT
IF Applicant = 10
Print Balance
Print “ Aexpenses”
Read Aexpenses
End
Test Data
First Last ID Total Net Option 1 / Option 2 / Option 3 / Result
Name Name No Salary Requirements Requirements Requirements
Devin Moses 2000 61970 Clarendon Sangre Grande Providence Not
Court >= 100,500 Gardens Approved
130,000 95,500
Avinash Roy 2001 99410 Clarendon Sangre Grande Providence Approved
Court 100,500 Gardens
130,000 95,500
Peace Kumar 2002 69890 Clarendon Sangre Grande Providence Not
Court 100,500 Gardens Approved
130,000 95,500
Mad Rox 2003 157730 Clarendon Sangre Grande Providence Approved
Court 100,500 Gardens
130,000 95,500
Khan Vinay 2004 99770 Clarendon Sangre Grande Providence Approved
Court 100,500 Gardens
130,000 95,500
Singh John 2005 105169.28 Clarendon Sangre Grande Providence Approved
Court 100,500 Gardens
130,000 95,500
Balwan Adam 80690 Clarendon Sangre Grande Providence Not
Court 100,500 Gardens Approved
130,000 95,500
Var
NOTQUALFIED: String;
Nsalary, Balance:Real;
Begin
CC_Count := 0;
PG_Count: = 0;
SG_Count: = 0;
Nsalary: = 0;
Balance: = 0;
For Applicant: = 1 to 10 do
Begin
WriteIn;
ReadIn (Name);
ReadIn(IDNO);
ReadIn(Hcommunity);
Repeat
ReadIn(Gsalary);
ReadIn(Sdeduction);
Nsalary= Gsalary-Sdeduction
ReadIn(Hcommunity)