необходима помощь с решением в Delphi

[Skanvorder]

Информация о сотрудниках фирмы включает: Ф.И.О., табельный номер, количество проработанных часов за месяц, почасовой тариф. Рабочее время свыше 144 часов считается сверхурочным и оплачивается в двойном размере. Вывести размер заработной платы каждого сотрудника фирмы за вычетом подоходного налога, который составляет 12% от суммы заработка.



Fz : file of Tstudent; это файл типа запись
Ft : TextFile; это текстовой файл
work : array[1..100] of tworker ; это Массив записей
nomerzap : integer; это Номер записи
FileNameZ, FileNameT : string; это Имя файла

Очень плохо разобрался с темой, так же нужна помощь в этом моменте "Рабочее время свыше 144 часов считается сверхурочным и оплачивается в двойном размере" и вообще, что то подправить. Буду очень благодарен.

[Alex11223]

Обычно всем лень качать архивы, лучше выложить код в сообщении (в теге [CODE], кнопка с решеткой # в форме сообщения).

Сообщение от Skanvorder

так же нужна помощь в этом моменте "Рабочее время свыше 144 часов считается сверхурочным и оплачивается в двойном размере"

Так и чем помочь? Что именно непонятно, какие вопросы?

[Skanvorder]

Не знаю как составить формулу от сверхурочного времени, да и вообще правильно ли у меня там работает она

[Аватар]

Формула

ЗарплатаЗаМесяц = КоличествоПроработанныхЧасовЗаМесяц * ПочасовойТариф
Если КоличествоПроработанныхЧасовЗаМесяц > 144 Тогда ЗарплатаЗаМесяц = ЗарплатаЗаМесяц + (КоличествоПроработанныхЧасовЗаМеся ц - 144) * ПочасовойТариф
РазмерЗаработнойПлаты = (ЗарплатаЗаМесяц / 100) * 88

[Skanvorder]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label4: TLabel;
    Edit4: TEdit;
    Lblnamefile: TLabel;
    procedure FormCreate(sender:tobject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  type
  TWorker = record
    FIO:string;
    number:integer;
    hours:integer;
    tarif:integer;
  end;
  var
  Fz: file of TWorker;
  Ft:textfile;
  nomerzap:integer;
  fnZ,fnT:string;
  work:array[1..100]of Tworker;
  razmerzp:real;
  zp:real;
  var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure Tform1.FormCreate(sender:tobject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Memo1.Clear;
nomerzap:=0;
fnZ:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 nomerzap:=nomerzap+1;
 with work[nomerzap] do begin
   Fio=Edit1.Text;
   number:=strtoint(edit2.Text);
   hours:=strtoint(edit3.Text);
   tarif:=strtoint(edit4.Text);
   zp:=hours*tarif;
   if hours > 144  then zp:=zp+(hours*tarif);
   razmerzp:=(zp/100)*88;
 Memo1.Lines.Add(fio+' '+'Размер зп - '+ IntToStr(razmerzp));
 end;
 write(fz,work[nomerzap]);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Fnz<>'' then closefile(fz);
Opendialog1.title:='Создать новый файл';
if opendialog1.execute then
begin
fnz :=opendialog1.FileName;
assignfile(fz,fnz);
rewrite(fz);
lblnamefile.Caption:='Редактируется файл '+fnz;
Button2.Enabled:=true;
Button5.Enabled:=true;
memo1.Clear;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
   FnZ:= OpenDialog1.FileName;
   AssignFile(Fz, FnZ);
   Reset(Fz);
   end;
   while not eof(fz) do begin
     nomerzap:=nomerzap+1;
     Read(fz,work[nomerzap]);
     with work[nomerzap] do
Memo1.Lines.Add(fio+' '+'Размер зп - '+ IntToStr(razmerzp));
   end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
for I := 1 to nomerzap do write(fz,work[i]);
CloseFile(fz);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if fnz<>'' then CloseFile(fz);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if fnz<>'' then CloseFile(fz);
halt;
end;

end.

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.
http://www.programmersforum.ru/showpost.php?p=1497723&postcount=3

[newerow1989]

Сообщение от Skanvorder

подоходного налога, который составляет 12% от суммы заработка

13% по закону должно быть!!!
Штрафные санкции будут со стороны налоговиков!