Контрольная работа: Обработка одномерных массивов в среде программирования Lazarus

procedure TForm1.Button3Click(Sender: TObject);

begin

i:=0;

listBox1.Clear;

end;

initialization

{$I unit2.lrs}

end.

На рисунке 2 представлен результат работы программы.

Рисунок 2- Результат работы программы ввода и вывода массива

В компоненте Edit можно ввести сразу все элементы массива, разделяя их пробелами. Нужно помнить, что количество пробелов-разделителей может быть любым.

Цикл для пропуска пробелов между словами :

while (st[i]=' ') and (i<=length(st)) do

inc(i);

Слова можно пропустить аналогичным циклом:

while (st[i]<>' ') and (i<=length(st)) do

inc(i);

Эти два цикла должны быть включены во внешний цикл, который закончится тогда, когда закончится строка.

Пример выделения всех слов строки st:

i:=1;

while i<=length(st) do

begin

while (st[i]=' ') and (i<=length(st)) do

inc(i);

k:=i;

while (st[i]<>' ') and (i<=length(st)) do

inc(i);

sl:=copy(st,k,i-k);

{обработка выделенного слова sl}

end;