Цитата (Frolov Dima):

Цитата (Frolov Dima):

Цитата (Frolov Dima):

PokazResult:       TListBox;

ZnacheniePriznaka: TListBox;

Chastota:          TListBox;

 

var

  Form1: TForm1;

  k, i, a, count:  Integer;

  x, y:            Extended;

// а где "begin"?

  k:= 0;

  a:= 0;

  count:= PokazResult.Items.Count;

 

  While k <> count Do // из-за отсутствия "Continue" значение k

                      // может перескочить через "Count" (надо k < Count)

    Begin

      i:= 1;

      x:= strtofloat(PokazResult.Items[k]);

      y:= strtofloat(PokazResult.Items[k + 1]);

 

      While x = y Do

        Begin

          Inc(i);

          Inc(k); // k++ !!!

          y:= strtofloat(PokazResult.Items[k + 1]);

        End;

 

      ZnacheniePriznaka.Items[a]:= floattostr(x);

      Chastota.Items[a]:= inttostr(i);

      Inc(a);

      Inc(k); // k++ !!!

    End;

 

// Транслит - ацтой! Пора уже выучить немного english! Ненавижу транслит!!!

// Неформатированный код - ацтой! Полез только от нефиг делать.

// И не надо писать идентификаторы в нижнем регистре, ибо

// StrToFloat читается лучше, чем strtofloat!

// А также, имена переменных должны быть информативными!

// a, b, c, x, y, й, z - ФТОПКУ!

// Да! Комментарии в коде - это наше ВСЁ!

Цитата:

Цитата (min@y™):

Цитата (Толяныч):

Цитата (bugmenot):

Цитата (bugmenot):

Цитата (IgoRek125):