Dear Sir / Madam,

This question ask me to write a program that uses a function to calculate the commission payable to the sales person, when passed the commission rate for the item, the total items sold and the price per item.
For example, if the commission rate was 2%, the total items sold was 5, and the price per item was $1200, then the function should return 120.

Please help me on Delphi again.

Cheers,

Tony

hi,

the FUNCTION part :

function calc_commission_payable(commission_rate, items_sold, unit_price : real) : real;
begin
result := items_sold*unit_price*commission_rate/100;
end;

is this what you want?

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

I have got the answer as follow:-

program CommissionRate;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
CoRate,ItSold,Price:Integer;

Function Something(CommissionRate,ItemsSold,Price:Integer):Real;
Begin
Something:=((Price/100)*CommissionRate)*ItemsSold;
End;
Begin
Write('Please input the commission rate (only numbers): ');
ReadLn(CoRate);
writeLn;
Write('Now,give me the price of the item (only numbers): ');
ReadLn(Price);
WriteLn;
Write('And lastly, give me the number of the sold items: ');
ReadLn(ItSold);
WriteLn;
Write('The final result is: ',Something(CoRate,ItSold,Price):3:0);
ReadLn;
End.