Delphi-Help

Главная Форум
Добро пожаловать, Гость
Логин: Пароль: Запомнить меня

Как отключить цикл?
(1 чел.) (1) гость
  • Страница:
  • 1

ТЕМА: Как отключить цикл?

Как отключить цикл? 8 года, 4 мес. назад #85

  • ExtazY
  • Вне сайта
  • Слушатель
  • Постов: 21
  • Репутация: 2
Когда отключаешь один цикл FOR, то другой цикл FOR тоже отключается.
Изменено: 8 года, 4 мес. назад от ExtazY.

Re: Как отключить цикл? 8 года, 4 мес. назад #88

  • admin
  • Вне сайта
  • Администратор
  • Постов: 19
  • Репутация: 0
Давайте код двух циклов.
С уважением,
администратор сайта www.delphi-help.ru

Re: Как отключить цикл? 8 года, 4 мес. назад #90

  • ExtazY
  • Вне сайта
  • Слушатель
  • Постов: 21
  • Репутация: 2
Вот, не работает.
Когда с CheckBox убираешь флажок, то первый цикл тоже не работает.

procedure TForm1.Button1Click(Sender: TObject);
var
X1,X2: Integer;
begin
Memo1.Lines.Clear;
For X1:=0 To 9 Do
If CheckBox1.Checked Then For X2:=0 To 9 Do
begin
Memo1.Lines.Add(IntToStr(X1)+IntToStr(X2));
end;
end;
Изменено: 8 года, 4 мес. назад от ExtazY.

Re: Как отключить цикл? 8 года, 4 мес. назад #91

  • ExtazY
  • Вне сайта
  • Слушатель
  • Постов: 21
  • Репутация: 2
Задача вообще такая:
Написать числа от 0 до 9 и включить следующий разряд, а там от 0 до 99 и включить следующий разряд и так далее.
Числа должны быть в скобках и через запятую.
Включать разряды я конечно же собирался не "чекед боксом", а числовой переменной.
Изменено: 8 года, 2 мес. назад от ExtazY.

Re: Как отключить цикл? 8 года, 4 мес. назад #95

  • ExtazY
  • Вне сайта
  • Слушатель
  • Постов: 21
  • Репутация: 2
procedure glow(beginx,endx: integer;);
var
x1,x2,x3,y1,y2,y3,z1,z2,z3,cou,glow: integer;
s1,s2,s3,s4,strresult: string;
begin
cou:=0;
glow:=beginx;
while (cou<(endx+1)-beginx) or (cou<(beginx+1)-endx) do
begin
// условия циклов
if glow<=1 then y1:=0 else y1:=0;
if glow<=1 then z1:=9 else z1:=0;
if glow<=2 then y2:=0 else y2:=0;
if glow<=2 then z2:=9 else z2:=0;
if glow<=3 then y3:=0 else y3:=0;
if glow<=3 then z3:=9 else z3:=0;
// условия промежуточных строк
if glow<=1 then s1:='(' else s1:='';
if glow<=2 then s2:=',' else s2:='';
if glow<=3 then s3:=',' else s3:='';
if glow<=1 then s4:=')' else s4:='';
// Циклы
for x1:=y1 to z1 do
for x2:=y2 to z2 do
for x3:=y3 to z3 do
// условия результата
if (x1+x2+x3>0) then
begin
// формирование результата
strresult:=s1+inttostr(x1)+s2+inttostr(x2)+s3+inttostr(x3)+s4;
// вывод результата
form1.memo1.lines.add(strresult);
end;
end;
// переход на следующий уровень
if beginx<=endx
then glow:=glow+1
else glow:=glow-1;
cou:=cou+1;
end;
Изменено: 7 года, 10 мес. назад от ExtazY.
  • Страница:
  • 1

Авторизация



Счетчики