Реферат: Автоматизация расчета начислений заработной платы в строительном управлении N 151

z:=Edit4.Text;

writeln(f,z);{val(z,oc_m,conv);} {Оклад мастера}

z:=Edit1.Text;

writeln(f,z);{val(z,n_mes,conv);}

system.close(f);

Unit2.vvod;

Unit3.prog;

Unit4.vivod;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='0';

Edit2.Text:='0';

Edit3.Text:='0';

Edit4.Text:='0';

Edit5.Text:='0';

system.assign(f,'vhod\base.dat');

reset(f);

readln(f,z);val(z,fzp,conv);{ФЗП}

Edit3.Text:=FloatToStr(fzp);

readln(f,z);val(z,kol_d,conv); {Кол-во дней}

Edit2.Text:=IntToStr(kol_d);

readln(f,z);val(z,tar_rab,conv); {Тариф рабочего 5-го разряда}

Edit5.Text:=IntToStr(tar_rab);

readln(f,z);val(z,oc_m,conv); {Оклад мастера}

Edit4.Text:=FloatToStr(oc_m);

readln(f,z);val(z,n_mes,conv);

Edit1.Text:=IntToStr(n_mes);

system.close(f);