Is it possible for you to transfer a simple modularity into Turbo Pascal 7 for me please. its for an Assessment in class and its due thursday.
PROCEDURE MAIN Start Declare count, monthly_salary as global real Declare name as string Count = 0 While count < 50 do CALL getempinfo Monthly_salary = comp(hrs_worked,hr_rate) CALL Displayinfo Count=count+1 End While End
PROCEDURE getempinfo ( ) Enter Declare Name as global string Declare hrs_worked, hr_rate as global real Read hrs_worked, hr_rate, Name Return
PROCEDURE MAIN
Start
Declare count, monthly_salary as global real
Declare name as string
Count = 0
While count < 50 do
CALL getempinfo
Monthly_salary = comp(hrs_worked,hr_rate)
CALL Displayinfo
Count=count+1
End While
End
PROCEDURE getempinfo ( )
Enter
Declare Name as global string
Declare hrs_worked, hr_rate as global real
Read hrs_worked, hr_rate, Name
Return
FUNCTION comp(a,b)
Return a*b
Procedure displayinfo ( )
Print Name, Monthly_salary
Return
(please respond as soon as possible please). Than you very much!