Удаление лишних пробелов(с использованием подпрограммы)

@dimon228335 · Регистрация: 18.10.2021

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

У меня уже есть рабочая программа, но не знаю как оформить её с помощью попрограммы

var
s:string;
begin
writeln('Введите строку');
readln(s);
while pos(' ',s)>0 do
delete(s,pos(' ',s),1);
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete(s,length(s),length(s));
writeln('Полученаая строка');
writeln(s)
end.

@XzzzX · 28.11.2021, 18:27

Pascal

var
  s: string;
 
procedure del;
begin
  while pos(' ', s) > 0 do
    delete(s, pos(' ', s), 1);
  if s[1] = ' ' then delete(s, 1, 1);
  if s[length(s)] = ' ' then delete(s, length(s), length(s));
  writeln('Полученаая строка');
  writeln(s)
end;
 
begin
  writeln('Введите строку');
  readln(s);
  del;
end.

например так

@JuriiMW · 28.11.2021, 18:57

Сообщение от dimon228335

Удаление лишних пробелов

Ваша программа удаляет не лишние, а все пробелы!
Если удалять все пробелы, то проще так:

Pascal

1 2	## var f:=function(s:string):string->s.remove(#32); f(ReadLnString('введите строку:')).Print;

Ну, а если удалять только „лишние“, то так:

Pascal

1 2	## var f:=function(s:string):string->s.toWords.joinintostring; f(ReadLnString('введите строку:')).Print;

@dimon228335 0 / 0 / 0 Регистрация: 18.10.2021 Сообщений: 4
		1
	Удаление лишних пробелов(с использованием подпрограммы) 28.11.2021, 15:48. Показов 328. Ответов 2 Метки pascal, Pascal (Паскаль), pascal abc, pascal abc net, pascal abc.net, pascalabc (Все метки) У меня уже есть рабочая программа, но не знаю как оформить её с помощью попрограммы var s:string; begin writeln('Введите строку'); readln(s); while pos(' ',s)>0 do delete(s,pos(' ',s),1); if s[1]=' ' then delete(s,1,1); if s[length(s)]=' ' then delete(s,length(s),length(s)); writeln('Полученаая строка'); writeln(s) end. 0

	28.11.2021, 18:57