Как переделать эту строку в массив, состоящий из данных слов (без точек с запятой) - Pascal

Формулировка задачи:

Всем привет! Подскажите, пожалуйста. Дана строка, состоящая из слов. Слова разделены между собой точкой с запятой. Например:
слово; компьютер; человек; стул
Вопрос. Как переделать эту строку в массив, состоящий из данных слов (без точек с запятой)?

Код к задаче: «Как переделать эту строку в массив, состоящий из данных слов (без точек с запятой) - Pascal»

textual
const m = 20;
var s: string;
    a: array [1..m] of string;
    i, j: integer;
begin
  writeln('Enter string:'); readln(s);
  s := s + ';'; {добавляем в конец последнего слова ";" для упрощения алгоритма}
  i := 0;
  while (pos(';', s) > 0) and (i < m) do
    begin
      inc(i);
      a[i] := copy(s, 1, pos(';', s) - 1);
      delete(s, 1, pos(';', s))
    end;
  if length(s) > 0 then writeln('Not all words were located to the array!');
  writeln('Words in array:');
  for j := 1 to i do writeln(a[j]);
  readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ