|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Заполнение Listbox каждым вторым Random числом
Помогите, пожалуйста! Второй день копаюсь на форумах, смотрю похожие коды, но никак не могу склеить свой. Вот задача: "Заполнить список (компонент ListBox) каждым вторым числом, генерируемым Random в цикле, при помощи оператора while для i<=20. Посчитать и вывести сумму элементов списка в однострочный редактор."
|
#2
|
||||
|
||||
Код:
i := 0; j := 0; k := 0; while i<=20 do begin Random(100); k := Random(100); inc(j, k); LiatBox.Items.Add(IntToStr(k)); inc(i); end; Edit1.text := IntToStr(j); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |