Выход из While

@97mik · Регистрация: 08.04.2009

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

Как выйти из цикла While? То есть если у меня например такая схема:

Delphi

1 2	while q>-1 do inc(q);

Как мне выйти из него когда например значение q будет 10?

@sedandrey · 06.02.2014, 15:03

А просто поставить в условие нельзя?

например (q > -1) and (q < 10)

@97mik · 06.02.2014, 15:09 **[ТС]**

Так не пойдёт. Надо что-то типо break. Кстати им можно?

@northener · 06.02.2014, 15:17

Сообщение от 97mik

Так не пойдёт. Надо что-то типо break. Кстати им можно?

Во-первых почему "так не пойдет"? Религия запрещает?
Во-вторых "им можно".

@sedandrey · 06.02.2014, 15:17

можно, но почему нельзя в условии? - ведь заведомо бесконечный цикл

может лучше так

Pascal

1
2
3

if q > -1 
  then while q < 10 do
            inc(q);

;

@97mik · 06.02.2014, 15:19 **[ТС]**

Просто у меня здоровенный цикл и не про q, а это я так, привёл пример.

@U_Dimas · 06.02.2014, 17:15

97mik, задачу вы описали своеобразно, не особенно понятно что вам надо.
Как понял - то есть при затупе алгоритма прервать цикл ? Тогда глобальная переменная, при true - exit
На кнопку например СТОП - переменная = true
Хотелось бы побольше подробностей

@NIKOLAYY · 06.02.2014, 18:56

Все три repeat и while и for цикла отработают до 10, проверил в мемо-поле.
Break; хорошо работает в цикле for, в других циклах я даже незнаю куда его вставить.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  a := 0; //первоначальное значение
  repeat
    a := a + 1;
    Memo1.Lines.Add(IntToStr(a));
  until a = 10; //условие,когда закончить цикл выполнится хоть 1 раз
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  a := 0; //первоначальное значение
  while a <> 10 do
  begin
    a := a + 1;
    Memo1.Lines.Add(IntToStr(a));
  end;
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  for a := 0 to 100 do
  begin
   Memo1.Lines.Add(IntToStr(a));
   if a = 10 then
   Break; //прерывание
  end;
end;

@sedandrey 15 / 15 / 2 Регистрация: 01.05.2012 Сообщений: 55
	06.02.2014, 15:03	2
	А просто поставить в условие нельзя? например (q > -1) and (q < 10) 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	06.02.2014, 15:09 [ТС]	3
	Так не пойдёт. Надо что-то типо break. Кстати им можно? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	06.02.2014, 15:17	4
	Сообщение от 97mik Так не пойдёт. Надо что-то типо break. Кстати им можно? Во-первых почему "так не пойдет"? Религия запрещает? Во-вторых "им можно". 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	06.02.2014, 15:19 [ТС]	6
	Просто у меня здоровенный цикл и не про q, а это я так, привёл пример. 0

@U_Dimas fatal error 136 / 128 / 29 Регистрация: 10.04.2012 Сообщений: 357
	06.02.2014, 17:15	7
	97mik, задачу вы описали своеобразно, не особенно понятно что вам надо. Как понял - то есть при затупе алгоритма прервать цикл ? Тогда глобальная переменная, при true - exit На кнопку например СТОП - переменная = true Хотелось бы побольше подробностей 0

	06.02.2014, 18:56