[Nurlan]

какие компоненты нужно использовать для этой задачи?

рост 22 уч-ков класса представлен в виде массива определить кол-во уч-ков рост которого не превышаетзаданного числа

P.S как сделать чтобы программа считала кол-во уч-ков рост которых не превышает заданного числа

[segas]

Ну я бы поставил компоненты: TStringGrid, TEdit и TButton
У компанента TStringGrid свойства ColCount изменил на 22, RowCount изменил на 1

[AlexSku]

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

считала кол-во уч-ков рост которых не превышает заданного числа

Вообще-то, если перевести на английский, то это в чистом виде SQL:
SELECT COUNT(rost)
FROM table1
WHERE rost < 180
вместо числа лучше использовать параметр, но неохота массив в базу заносить.

[Nurlan]

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

Ну я бы поставил компоненты: TStringGrid, TEdit и TButton
У компанента TStringGrid свойства ColCount изменил на 22, RowCount изменил на 1

помогите плз!http://pics.kz/viewfull1072780 вот моя таблица, как сделать чтобы например если в ячейке число будет больше 180 в label считалось как 1 т.е если в 3 ячейках будет число 190 в label'e будет число 3, помогите очень прошу помощи

[lmikle]

Код:

Cnt := 0;
For I := 0 To StringGrid1.ColCount-1 Do
  In StrToInt(StringGrid1.Cells[0,I]) >= 180 Then Inc(Cnt);

После окончания цикла в переменной Cnt будет кол-во ячеек, значение в которых >= 180.

[Nurlan]

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

Код:

Cnt := 0;
For I := 0 To StringGrid1.ColCount-1 Do
  In StrToInt(StringGrid1.Cells[0,I]) >= 180 Then Inc(Cnt);

После окончания цикла в переменной Cnt будет кол-во ячеек, значение в которых >= 180.

што я сделал не так?

[AlexSku]

Во-первых, ты не делаешь инкремент CNT (неужели скопировать трудно? Правда, уважаемый Imikle перепутал нумерацию в Cells и вместо IF написал IN), во-вторых, ты в цикле выводишь нуль, в-третьих, т.к. ячейки могут быть пустыми, лучше писать так:

Код:

if (Length(StringGrid1.Cells[I,0]) > 0) and (StrToInt(StringGrid1.Cells[I,0]) < 180) then Inc(Cnt);

К тому же что-то ты всё время меняешь условия: то "не превышает" (поэтому я поставил знак "меньше"), то "больше". Не суетись, а то решишь не ту задачку.