Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Edit4: TEdit;

Label7: TLabel;

Edit5: TEdit;

Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); begin str(n_mes,mw);

system.assign(f,'vhodbase.dat'); rewrite(f);

z:=Edit3.Text; writeln(f,z);{val(z,fzp,conv);}{ФЗП}

z:=Edit2.Text; writeln(f,z);{val(z,kol_d,conv);} {Кол-во дней}

z:=Edit5.Text; writeln(f,z);{val(z,tar_rab,conv);} {Тариф рабочего 5-го разряда}

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';

Рекомендуем скачать другие рефераты по теме: ответы по тетради, реферат на английском языке.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки