Ошибка примера

[Михаил Юрьевич]

генерирую такой пример a/(b-c)-d, но выпадает ошибка "division by zero" , в строке f:=b-c генерируются два одинаковых числа , например 7 и 7 в итоге 7-7 =0, но почему? Если в условии стоит (b>c)

 repeat 
 a:=RandomRange(1,10);
 b:=RandomRange(1,10);
 c:=RandomRange(1,10);
 d:=RandomRange(1,10);
 f:=b-c;
g:=a div f;
 until (b>c) and  (a mod f=0)and (a>f) and  (g>d);

[Аватар]

1. repeat всегда как минимум один раз отрабатывает до проверки условия
2. выход из цикла по True в условии цикла

[Михаил Юрьевич]

Я так пробовал, тоже самое

if b <= c then
    Continue;

[Михаил Юрьевич]

Сообщение от Аватар

выход из цикла по True в условии цикла

Не понял

[kropotkina-alice]

Сообщение от Михаил Юрьевич

Не понял

А чего непонятного-то?
У вас сначала производится деление и только потом проверка.
Цикл неверно построен...

[northener]

Сообщение от Михаил Юрьевич

Не понял

Три часа вам объясняли на другом форуме проблему с проверкой условия и всё впустую. Решили напрячь ещё и соседей

[Михаил Юрьевич]

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

Три часа вам объясняли

четыре. Значит так обьясняли, я в своей работе людям по три дня обьясняю, а они не понимают, доходчиво надо обьяснять я не програмист и моя работа с програмированием не связана, это хобби.

[Аватар]

Другими словами, но то же самое, что и в #2:

1. Выполняются команды после repeat до until
2. Проверяется логическое выражение в until. Если оно ложно, то переход на 1, иначе на следующую команду после until

Если и это не понятно, то лучше не мучаться и бросить это любительское программирование ))

[Михаил Юрьевич]

Но вот делал так, но тогда комбинаций у b-c становиться меньше

repeat 
 b:=RandomRange(1,10);
 c:=RandomRange(1,10);
 f:=b-c;
 until (b>c) 
 
 
 repeat 
 a:=RandomRange(1,10);
 d:=RandomRange(1,10);
 
g:=a div f;
 until  (a mod f=0)and (a>f) and  (g>d);

[Михаил Юрьевич]

Сообщение от Аватар

Если и это не понятно, то лучше не мучаться и бросить это любительское программирование ))

Я тоже так говорю людям, прикратите сами ремонтировать машины, а они все равно в движки лезут