Расчёт общей стоимости

@andrey0147 · Регистрация: 26.11.2015

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

Рассчитать общую стоимость всех товаров Умножая каждую цену товара на количество в затем сложить все полученные результаты. Есть код на подсчёт общего количества товара.

Delphi

procedure TForm1.Button5Click(Sender: TObject);
var i,k:integer;
begin
k:=0;
for i:=1 to StringGrid1.Rowcount-1 do
k:=k+strtoint(StringGrid1.Cells[2,i]);
Edit6.Text:=inttostr(k);
end;

@rusqwe · 05.06.2017, 16:52

Delphi

  
procedure TForm1.Button5Click(Sender: TObject);
var
    sum, i, k: integer;
begin
    k := 0;
    for i := 1 to StringGrid1.RowCount - 1 do
    begin
      k := k + strtoint(StringGrid1.Cells[2, i]);
      sum := sum + (strtoint(StringGrid1.Cells[2, i]) * strtoint(StringGrid1.Cells[3, i]))
    end;
    Edit6.Text := inttostr(k);
    edit.text:= inttostr(sum);
end;

	05.06.2017, 16:52