Как посчитать суммы каждого тарифа по месяцам и вывести в таблицу stringgrid?

@Albinadvjk · Регистрация: 31.05.2019

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

Как посчитать суммы каждого тарифа по месяцам и вывести в таблицу stringreat?

@Puporev · 18.05.2020, 15:11

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

stringreat

Это хто такой?

@ZX Spectrum-128 · 18.05.2020, 15:18

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

Как посчитать суммы каждого тарифа по месяцам

А откуда их брать?

@Albinadvjk · 18.05.2020, 15:31 **[ТС]**

Из тестового файла

@Albinadvjk · 18.05.2020, 15:39 **[ТС]**

Вот фаил

@AHBAR · 19.05.2020, 12:20

Не по теме:

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

stringreat?

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

Это хто такой?

Видимо строковый-великий))

Albinadvjk,

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

Вот фаил

Ну можно так

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
txt, tarif : TStringList;
count, i,j : Integer;
sred : double;
begin
if not OpenDialog1.Execute then exit;
txt := TStringList.Create;
txt.LoadFromFile(OpenDialog1.FileName);
tarif := TStringList.Create;
tarif.Sorted := true;
tarif.Duplicates := DupIgnore;
i := 1;
while i <= txt.Count-1 do begin
      tarif.Add(txt[i]);
      inc(i, 4);
      end;
StringGrid1.RowCount := tarif.Count;
for i := 0 to tarif.Count-1 do begin
    sred := 0;
    count := 0;
      j := 1;
      while j <= txt.Count-1 do begin
            if txt[j] = tarif[i] then begin
               sred := sred + StrToInt(txt[j+2]);
               inc(count);
               end;
            inc(j, 4);
            end;
    sred := sred/count;
    StringGrid1.Cells[0,i] := tarif[i];
    StringGrid1.Cells[1,i] := FloatToStr(sred);
    end;
end;

@Albinadvjk 0 / 0 / 0 Регистрация: 31.05.2019 Сообщений: 6
		1
	Как посчитать суммы каждого тарифа по месяцам и вывести в таблицу stringgrid? 18.05.2020, 15:09. Показов 568. Ответов 5 Метки сумма (Все метки) Как посчитать суммы каждого тарифа по месяцам и вывести в таблицу stringreat? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.05.2020, 15:11	2
	Сообщение от Albinadvjk stringreat Это хто такой? 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	18.05.2020, 15:18	3
	Сообщение от Albinadvjk Как посчитать суммы каждого тарифа по месяцам А откуда их брать? 0

@Albinadvjk 0 / 0 / 0 Регистрация: 31.05.2019 Сообщений: 6
	18.05.2020, 15:31 [ТС]	4
	Из тестового файла 0

	19.05.2020, 12:20

Опции темы