В строке слова разделены пробелами

[manyhin]

В строке слова разделены пробелами. Сформировать новую строку, где те же
слова разделялись бы двумя пробелами.

Нужно решить с помощью множества

[Stilet]

Множества?
Как-то не представляю чем тут множество поможет...
Примеры в методичке есть?

[manyhin]

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

[Stilet]

Ну тогда требуй от препода примеров. Я тоже не представляю как тут множества помогут. Функции строковые и цикл - вот и все что нужно для решения. Множества тут ни к чему.

[Аватар]

разве что тупо вместо if s[i]=' ' сделать if s[i] in [' ']
вот уже и операции с множествами

[Serge_Bliznykov]

можно с помощью множества проверить, является ли символ строки пробелом:

if s[i] in [' '] then ...

но я согласен, что тут множества нужны, как зайцу велосипед...

Сообщение от Аватар

вот уже и операции с множествами

и опять я опоздал с ответом...

[manyhin]

var
  i:integer;
  s:string;
begin
  write('введите строку:');
  readln(s);
  for i:=length(s) downto 1 do 
  if s[i] in [' '] then insert(' ',s,i);
  writeln('полученная строка:',s);
end.

Вот такой у меня код (без множеств)
Можете его доделать с множеством

Так же есть вот такой, вроде как с множеством а может без него(не знаю так как не представляю как он выглядит) не проходили его

type astr=array of string;
procedure split(delimeter:string;s:string;var sr:astr;var l:integer);
var
  i:integer;
  t:string;
procedure additem;
begin
 if t<>'' then begin
  inc(l);
  setlength(sr,l);
  sr[l-1]:=t;
  t:='';
 end;
end;
begin
  l:=0;t:='';
  for i:=1 to length(s) do
    if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
    additem;
end;
var
  i,j:integer;
  s:string;
  b:array of string;
begin
  write('введите строку:');
  readln(s);
  split(' ',s,b,i);
  s:='';
  for j:=0 to i-1 do begin s:=s+b[j];if j<i-1 then s:=s+'  '; end;
  writeln('полученная строка:',s);
end.

Заранее спасибо

[Аватар]

Вот такой у меня код (без множеств)

С множеством. В данном случае из одного пробела. Множество выделил:
if s[i] in [' '] then insert(' ',s,i);

[manyhin]

А тогда можете из множества сделать обычный...а то что то я уже вовсе запарился и запутался

[Stilet]

я уже вовсе запарился и запутался

Я бы на твоем месте уже тряс препода. Что-то не то ты понял или он что-то несуразное задал.