Расчет заработной платы. - Free Pascal

Формулировка задачи:

Работник каждую пятницу получает зар.плату за отработанные пять 8-часовых раб. дней при поч часовой оплате 40$/час. При этом если работник отработал более 8 часов ему за каждый из таких дней насчитывается премия в размере 300$ Бухгалтер задает 5 чисел которые являются количеством отработанных часов у понедельник-пятницу соответственно. Выдать: -насчитанную сумму зар платы ($); -размер налога ($):18.6% -зар плату ($) (учитывая налог)

Код к задаче: «Расчет заработной платы. - Free Pascal»

textual
const
  Rate=40; Bonus=300; TaxRate=0.186;
var
  s, h, i: Integer;
begin
  Write('Ежедневная почасовая отработка за 5 дней: ');
  for i:=1 to 5 do begin
    Read(h); s:=s+Rate*h+Bonus*Ord(h>8);
  end; ReadLn;
  WriteLn('Начислено: $',s,' Налог: $',s*TaxRate:0:2,' К выдаче: $',s*(1-TaxRate):0:2);
end.

13   голосов, оценка 3.769 из 5


СОХРАНИТЬ ССЫЛКУ