Payroll Program in Turbo Pascal

Here is a sample program that I wrote using Turbo Pascal 6 to ask the user how many days work and the rate per day and our program will compute for the salary of the employee. The code is very simple and easy to understand.  Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Payroll;

Uses Crt;

Var Daily_Rate, No_days_work, salary : Integer;

Begin

  Clrscr;

  Writeln;

  textcolor(white);

  Write('Payroll Program in Turbo Pascal');

  Writeln;

  Writeln;

  Write('How many days worked : ');

  Readln(No_days_work);

  Writeln;

  Write('What is the daily rate : ');

  Readln(Daily_Rate);

  Salary := (No_days_work * Daily_Rate);

  Writeln;

  Write('Your salary is  Php ',salary,'.');

  writeln;

  writeln;

  Write('End of Program');

  Readln;

 End.