Scribd
Upload
11 views4 pages

Sales Commission Calculation Algorithm

This document outlines a pseudocode algorithm for a program that calculates the commission for seventeen sales staff members based on their total sales for the month. The program awards a 15% commission if an employee's sales exceed $2500. It also provides a summary of how many employees qualify for a commission at the end of the execution.

Uploaded by

shaheed mohammed
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
11 views4 pages

Sales Commission Calculation Algorithm

This document outlines a pseudocode algorithm for a program that calculates the commission for seventeen sales staff members based on their total sales for the month. The program awards a 15% commission if an employee's sales exceed $2500. It also provides a summary of how many employees qualify for a commission at the end of the execution.

Uploaded by

shaheed mohammed
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Algorithm:

{Candidate Names:
Candidate Numbers:
Date created:
What does this program do? This pseudocode is an algorithm which will accept the names
of all seventeen sales staff members and their total sales for the month. This algorithmic
program must calculate the commission at 15% of their total sales amount.
}
program CaribbeanFashionStoreGenerator;
uses crt;
var
EmployeeName: string;
totalnumberofsales: real;
comm: real;
count, c, target: integer;

Begin
c:=1;
count:= 0;
target := 2500;
clrscr;
for c := 1 to 17 do
Begin
Writeln('Employee record: ', c);
Write('Please enter the employee name: ');
Readln(EmployeeName);

Write('Please enter the employee''s total sales:$ ');


Readln(totalnumberofsales);

If totalnumberofsales > target then


Begin
comm := 0.15*totalnumberofsales;
Write(EmployeeName, ' will receive a commission of: $ ', comm:0:2);
count := count + 1;
readln;
clrscr;

end
else
Begin
writeln(EmployeeName, ' is not entitled to a commission this month.');
readln;
clrscr;
end;
End;

Writeln('The total number of employees who will be receiving a commission this month
is: ',count);
End.
Screenshots:

You might also like