My program:
const endaster := 60
var name : string
var sinn : int
var hours, wages, grosspay, deduction, netpay : real
put repeat ("*", endaster)
for rows : 3 .. 17
put "*"
locate (rows, endaster)
put "*"
end for
locate (17, 1)
put repeat ("*", endaster)
locate (4, 6)
put "NAME"
locate (5, 6)
put "___________"
locate (4, 40)
put "SIN"
locate (5, 40)
put "___ ___ ___"
locate (7, 6)
put "Hours Worked"
locate (8, 6)
put "_______"
locate (7, 40)
put "Hourly Wage"
locate (8, 40)
put "$_______"
locate (10, 6)
put "Gross Pay Deduction Net Pay"
locate (11, 6)
put "$_______ $_______ $________"
locate (4, endaster)
put "*"
locate (5, endaster)
put "*"
locate (7, endaster)
put "*"
locate (8, endaster)
put "*"
locate (10, endaster)
put "*"
locate (11, endaster)
put "*"
locate (16, 43)
put "Copyright 2006"
locate (16, endaster)
put "*"
locate (5, 6)
get name
locate (5, 40)
get sinn
locate (8, 6)
get hours
locate (8, 41)
get wages
grosspay := hours * wages
deduction := grosspay * .20
netpay := grosspay * .80
locate (11, 6)
%keep 2 decimal
put round(grosspay*100)/100
locate (11, 22)
put round(deduction*100)/100
locate (11, 40)
put round(netpay*100)/100
locate (11, endaster)
put "*"
I need to make the SIN number only able to accept 9 digit numbers.
Have a 9 digit Integer displayed as the seperate numbers. Examples
410102710 ==> 410 102 710
then check that the first, fourth, and seventh digits add to 12.
Thanks!!
