Остановка цикла в нужный момент

@Negate · Регистрация: 10.07.2010

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

Здравствуйте.

Pascal

Var
S:string;
k,i:integer;
Begin
writeln('Введите текст');
readln(s)
for i:=1 to length(s) do
begin
k:=pos(' ',s);
if s[k+1]=' ' then delete(s,k+1,1);
writeln(s);
end;
end.

Вопрос:
Как избавится от этого цикла путём его остановки в нужный момент?
п.с мб flag?

@Puporev · 05.09.2010, 10:17

Это типа удалить лишние пробелы в строке?

Pascal

1 2	while pos(' ',s)>0 do //пока 2 пробела рядом delete(s,pos(' ',s),1);//1 удаляем

@Mad_Dog · 05.09.2010, 10:18

Negate,"break" в помощь, хотя не во всех Паскалях это реализовано...

@Puporev · 05.09.2010, 10:19

while, repeat в break не нуждаются...

@Mad_Dog · 05.09.2010, 10:21

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

while, repeat в break не нуждаются...

Но ТС использует:

Pascal

for i:=1 to length(s) do
begin
k:=pos(' ',s);
if s[k+1]=' ' then delete(s,k+1,1);
writeln(s);
end;

@Negate · 05.09.2010, 10:26 **[ТС]**

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

Это типа удалить лишние пробелы в строке?

Pascal

1 2	while pos(' ',s)>0 do //пока 2 пробела рядом delete(s,pos(' ',s),1);//1 удаляем

Да,удаление лишних пробелов в строке,НО цикл идет много раз,а нужно что бы в нужный момент.

@Puporev · 05.09.2010, 10:40

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

Да,удаление лишних пробелов в строке,НО цикл идет много раз,а нужно что бы в нужный момент.

Так вы суть задачи объясните, что значит нужный момент?

Добавлено через 1 минуту
Mad_Dog, Это понятно, просто если цикл не нужен обязательно N раз, то лучше и не использовать for+break.

@Negate · 05.09.2010, 10:45 **[ТС]**

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

Так вы суть задачи объясните, что значит нужный момент?

Суть задачи: 1)преобразовать так что бы был один пробел.
2)Избавится от цикла путем его остановки в нужный момент

@Mad_Dog · 05.09.2010, 10:51

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

Суть задачи
2)Избавится от цикла путем его остановки в нужный момент

Определите условие окончания работы цикла в нужный момент!

@Puporev · 05.09.2010, 10:51

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

1)преобразовать так что бы был один пробел.

А я вам что написал? Это действие как раз оставляет между словами ровно по одному пробелу.
Если между словами не по 2, а больше пробелов, то в цикле for вы не решите эту задачу, ибо не знаете заранее сколько и где нужно удалить пробелов.

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	05.09.2010, 10:18	3
	Negate,"break" в помощь, хотя не во всех Паскалях это реализовано... 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.09.2010, 10:19	4
	while, repeat в break не нуждаются... 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.09.2010, 10:40	7
	Сообщение от Negate Да,удаление лишних пробелов в строке,НО цикл идет много раз,а нужно что бы в нужный момент. Так вы суть задачи объясните, что значит нужный момент? Добавлено через 1 минуту Mad_Dog, Это понятно, просто если цикл не нужен обязательно N раз, то лучше и не использовать for+break. 0

@Negate 1 / 1 / 0 Регистрация: 10.07.2010 Сообщений: 13
	05.09.2010, 10:45 [ТС]	8
	Сообщение от Puporev Так вы суть задачи объясните, что значит нужный момент? Суть задачи: 1)преобразовать так что бы был один пробел. 2)Избавится от цикла путем его остановки в нужный момент 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	05.09.2010, 10:51	9
	Сообщение от Negate Суть задачи 2)Избавится от цикла путем его остановки в нужный момент Определите условие окончания работы цикла в нужный момент! 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.09.2010, 10:51	10
	Сообщение от Negate 1)преобразовать так что бы был один пробел. А я вам что написал? Это действие как раз оставляет между словами ровно по одному пробелу. Если между словами не по 2, а больше пробелов, то в цикле for вы не решите эту задачу, ибо не знаете заранее сколько и где нужно удалить пробелов. 1

Опции темы