Дана строка символов, слова в ней разделены одним или несколькими пробелами. Заменить все слова из Н символов на "ИЛИ"

@Paully · Регистрация: 08.01.2019

Author24 — интернет-сервис помощи студентам

Дана строка символов, слова в ней разделены одним или несколькими пробелами. Заменить все слова из Н символов на "ИЛИ"
Нельзя использовать массив как в этом решении:
var st,sl, ili: string; a: array[1..1000] of string; i,j,S: byte; m,N: integer;
begin
writeln(' Задача1:'); write(' Введите строку из любого количества слов: '); readln(st);
if st='' then writeln('Строка не введена!');
writeln(' Слово из этой строки, состоящее из N символов заменится на "ИЛИ"'); write(' Введите N (количество символов в слове): '); readln(N);
sl:=''; ili:='ИЛИ';
for i:=1 to length(st) do begin
if st[i]<>' ' then sl:=sl+st[i] else if sl<>'' then begin
S:=S+1; a[S]:=sl; sl:='';
if Length(a[S])=N then m:=pos(a[S], st); //возвр. № позиции, с которой начинается слово
while m>0 do begin
delete(st,m,Length(a[S]));
insert(ili,st,m);
m:=pos(a[S],st); end; end;
end;
writeln(' Получившаяся строка: ',st); writeln(' Задача2:');
j:=1;
repeat
if copy(st,j,2)=' ' then
st:= copy(st,1,j) + copy(st,j+2,length(st))
else j:= j + 1
until (j > length(st));
writeLn(' Строка без лишних пробелов: ', st);
end.

@Mike_Boone · 08.01.2019, 12:57

Строка символов это сам по себе массив char(на будущее)

Pascal

Var s,newstr: string; N,count: longint;
 
begin
  writeln('Ввод строки');
  readln(s);
  write('N = ');
  read(N);
    while (length(s) <> 0) do begin
      if (pos(' ', s) <> 0) then begin
        if length(Copy(s,1,pos(' ',s) - 1)) = N then newstr:= newstr + ' или '
        else newstr:= newstr + Copy(s,1,pos(' ',s) - 1);
        delete(s,1,pos(' ',s));
        end
       else begin
        if length(s) = N then newstr:= newstr + ' или '
        else newstr:= newstr + s;
        break;
       end;
      end;
      writeln(newstr);
end.

@Paully 0 / 0 / 0 Регистрация: 08.01.2019 Сообщений: 2
		1
	Дана строка символов, слова в ней разделены одним или несколькими пробелами. Заменить все слова из Н символов на "ИЛИ" 08.01.2019, 12:34. Показов 2500. Ответов 1 Метки turbo pascal, Строки (Все метки) Дана строка символов, слова в ней разделены одним или несколькими пробелами. Заменить все слова из Н символов на "ИЛИ" Нельзя использовать массив как в этом решении: var st,sl, ili: string; a: array[1..1000] of string; i,j,S: byte; m,N: integer; begin writeln(' Задача1:'); write(' Введите строку из любого количества слов: '); readln(st); if st='' then writeln('Строка не введена!'); writeln(' Слово из этой строки, состоящее из N символов заменится на "ИЛИ"'); write(' Введите N (количество символов в слове): '); readln(N); sl:=''; ili:='ИЛИ'; for i:=1 to length(st) do begin if st[i]<>' ' then sl:=sl+st[i] else if sl<>'' then begin S:=S+1; a[S]:=sl; sl:=''; if Length(a[S])=N then m:=pos(a[S], st); //возвр. № позиции, с которой начинается слово while m>0 do begin delete(st,m,Length(a[S])); insert(ili,st,m); m:=pos(a[S],st); end; end; end; writeln(' Получившаяся строка: ',st); writeln(' Задача2:'); j:=1; repeat if copy(st,j,2)=' ' then st:= copy(st,1,j) + copy(st,j+2,length(st)) else j:= j + 1 until (j > length(st)); writeLn(' Строка без лишних пробелов: ', st); end. 0

	08.01.2019, 12:57

Дана строка символов, слова в ней разделены одним или несколькими пробелами. Заменить все слова из Н символов на "ИЛИ"

Решение