Soru 10: N adet işçinin net maaşlarını hesaplayan program

 

{İşçilerin net ücretlerini hesaplayan program}

program net_ucret;

uses crt;

var

  n, i:integer;

  saatucreti  :longint;

  iscimesai, iscimaas:array [1..100] of real;

begin

  clrscr;

  write('İşçi sayısını giriniz :');

  readln(n);

  write('Saat ücretini giriniz :');

  readln(saatucreti);

 

 

  for i:=1 to n do

    begin

      write(i,'. işçinin mesai saatini giriniz :');

      readln(iscimesai[i]);

      iscimaas[i]:=iscimesai[i]*saatucreti;

      iscimaas[i]:=iscimaas[i]-(iscimaas[i]*0.14);

      iscimaas[i]:=iscimaas[i]-(iscimaas[i]*0.3);

    end;

  for i:=1 to n do

    writeln(i,'. işçinin net ücreti :',iscimaas[i]:15:2);

  readkey;

end.