Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

массивы в Delphi

Allocal © (2005-12-22 14:32:00)
Доброго времени суток. Начал программировать на Delphi, но никак не могу понять массивы. Перечитал много литературы задание следующее:

Вводится массив, состоящий из 0 и 1. Серией назовем последовательность подряд идущих 0 или 1. Сколько серий в данном массиве.Наиболее предпочтительным элементом для ввода и вывода массива является ListBox.

Пожалуйста помогите разобраться. Заранее спасибо

з. танька (2005-12-22 17:46:00) [1]

> Digitman © (22.12.05 14:56) [8]

стараемся.. ;)

зы а шо пароль на мыло нельзя выслать - обидно..

evvcom (2005-12-22 15:21:00) [2]

> Кто-то там

Москва

> з. танька

пароль никак не вспомнишь? :) надо было на бумажку записать :)

Digitman (2005-12-22 14:56:00) [3]

> з. танька (22.12.05 14:43) [4]
> //шо за литературу ты читал? "курочку рябу" чтоли?
> //кнопка F1 твой друг!

Малацца, з.танька !)

"Наш человек !"(с) Кто-то там слезам не верит ...)

Allocal (2005-12-22 14:51:00) [4]
да нет все в порядке спасибо за помощь

з. танька (2005-12-22 14:50:00) [5]

> Allocal (22.12.05 14:46) [5]

шо тебе не нравится?
объясни нормально чего тебе надо

Allocal (2005-12-22 14:46:00) [6]

> //шо за литературу ты читал? "курочку рябу" чтоли?
> //кнопка F1 твой друг!
>
> var
> series: integer;
> begin
> series := 1;
> if listbox1.count > 1 then
> for i := 1 to listbox1.count-1 do
> if listbox1.items[i] <> listbox1.items[i-1] then inc(series);
>
> ShowMessage('number of series: ' + intToStr(series));
> end;
> //если прально поняла

я смотрю здесь шутники большие (

Tonich (2005-12-22 14:43:00) [7]

> Allocal (22.12.05 14:37) [2]

))))))))))))) ну он точно не сырец )))))

з. танька (2005-12-22 14:43:00) [8]
//шо за литературу ты читал? "курочку рябу" чтоли?
//кнопка F1 твой друг!

var series: integer; begin series := 1; if listbox1.count > 1 then for i := 1 to listbox1.count-1 do if listbox1.items[i] <> listbox1.items[i-1] then inc(series); ShowMessage('number of series: ' + intToStr(series)); end; //если прально поняла

Allocal (2005-12-22 14:37:00) [9]
и кто же ты у нас??

Johnmen (2005-12-22 14:34:00) [10]
offtop

Поздно начал программировать, уже скоро сдавать. Не успеешь, если сырцов не кинут...:)

end offtop

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »