Автоматизировать расчет заработной платы рабочего за месяц

@Ню · Регистрация: 01.05.2009

Author24 — интернет-сервис помощи студентам

Рабочий-повременщик 4-го разряда (тарифная ставка -x рублей/ч) отработал y ч в дневную смену и zч в вечернюю смену (доплата за каждый час вечерней работы — a% тарифной ставки). Рабочему за хорошее качество работы установлена премия в размере b% тарифного заработка. Автоматизировать расчет заработной платы рабочего за месяц.

помогите пожалуйста, в паскале то получилось, но надо в делфи =((

@Romantik_FM · 13.12.2010, 19:39

минумум

Delphi

for i:=1 to StringGrid1.RowCount-1 do
begin
 min:=StrToInt(StringGrid1.Cells[0,0]);
  if min < StrToInt(StringGrid1.Cells[0,i]) then
   StringGrid1.Cells[0,i]:=IntToStr(min) else
   if min > StrToInt(StringGrid1.Cells[0,i]) then
    begin
     min:=StrToInt(StringGrid1.Cells[0,i]);
     label1.caption:=IntToStr(min);
    end;
 end;
end;

новый массив

Delphi

for i:=0 to StringGrid2.RowCount-1 do
begin
 StringGrid2.cells[0,i]:=IntToStr(StrToInt(StringGrid1.Cells[0,i])+min)
end;

@Ню 0 / 0 / 0 Регистрация: 01.05.2009 Сообщений: 56
		1
	Автоматизировать расчет заработной платы рабочего за месяц 13.12.2010, 19:21. Показов 2182. Ответов 1 Метки нет (Все метки) Рабочий-повременщик 4-го разряда (тарифная ставка -x рублей/ч) отработал y ч в дневную смену и zч в вечернюю смену (доплата за каждый час вечерней работы — a% тарифной ставки). Рабочему за хорошее качество работы установлена премия в размере b% тарифного заработка. Автоматизировать расчет заработной платы рабочего за месяц. помогите пожалуйста, в паскале то получилось, но надо в делфи =(( 0

	13.12.2010, 19:39

Автоматизировать расчет заработной платы рабочего за месяц

Решение