|
Soru = Bir çalışanın mesai saati ve saat ücretini ve aldığı maaşı girildiğinde toplam ücreti hesaplayan, mesai saati 40 saati geçmişse saat ücretinden %50 daha fazla alarak çalışanın toplam ücretini hesaplayan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function mesaiucreti(mesai,ucret,aucret:integer):
integer;
var
ucreti,fmesai:real;
begin
if mesai<=40 then
ucreti:=(mesai*ucret)+aucret
else
begin
fmesai:=1.5*(mesai-40)*ucret;
ucreti:=(40*ucret*fmesai)+aucret;
end;
showmessage('Toplam Ücret : '+floattostr(ucreti)+' YTL');
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
m,su,maas:integer;
begin
m:=strtoint(Edit1.Text);
su:=strtoint(Edit2.Text);
maas:=strtoint(Edit3.Text);
mesaiucreti(m,su,maas);
end;
Çalışma Şekli :
 
Mesai saati, saat ücreti, aldığı maaş girildikten sonra ‘Toplam Ücreti Hesapla' butonuna tıklandığında ekrana çalışanın toplam aldığı ücreti bildirir.
|
