Сравнить два числа без условий и стандартными операциями

[fastdeath]

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

используя только +-*/ div mod
--------
хахаха . задача жесть

WriteLn('Value ',a-(a-b)*byte(a>b),' < ',b-(b-a)*byte(a>b));

а если оптимизировать код то:

WriteLn('Value ',a-(a-b),' > ',b-(b-a));

WriteLn('Value ',a-(a-b),' > ',b-(b-a));
неверно возвращает
тут даже если скобки раскрыть - будет b >a

[JUDAS]

fastdeath
во первых в условии не сказано < >
во вторых, видимо с синтаксисом паскаля сложно

тут даже если скобки раскрыть - будет b >a

перевожу на русский язык с Паскаля (оптимизированный вариант):

WriteLn('ЗНАЧЕНИЕ (Value)',a-(a-b),' МЕНЬШЕ (словом) ',b-(b-a));
в оптмизированном варианте < читать как текст, а не как операцию
---
П.С. по ходу у меня используется только знак "-"

[fastdeath]

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

fastdeath
во первых в условии не сказано < >
во вторых, видимо с синтаксисом паскаля сложно

перевожу на русский язык с Паскаля (оптимизированный вариант):

WriteLn('ЗНАЧЕНИЕ (Value)',a-(a-b),' МЕНЬШЕ (словом) ',b-(b-a));
в оптмизированном варианте < читать как текст, а не как операцию
---
П.С. по ходу у меня используется только знак "-"

Я понял , что как читать , но не понял принцип работы вашего решения .
Она выводит неверное неравенство..

[Step_UA]

var a,b,a1,b1:word;
begin
 witete('Введите два натуральных числа');
 readln(a,b);
 a1:=a div b;
 a1:=((a1+2) div (a1+1)) mod 2;
 b1:=(a1+1) mod 2;
 writeln('Число ', a*a1+b*b1,' не меньше ',a*b1+b*a1);
end.

[fastdeath]

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

var a,b,a1,b1:word;
begin
 witete('Введите два натуральных числа');
 readln(a,b);
 a1:=a div b;
 a1:=((a1+2) div (a1+1)) mod 2;
 b1:=(a1+1) mod 2;
 writeln('Число ', a*a1+b*b1,' не меньше ',a*b1+b*a1);
end.

офигеть , даже смотря на решение переварить не могу
респект

[fastdeath]

А можете вкратце разжевать , на чём базируется решение ?

[Step_UA]

a1, b1 - принимают 0 или 1. Единица - признак большего числа
при первом вычислении

a1:=a div b;

получаем:
0 - если а1 меньше b1
>0 - если больше либо равно b1
Если >0 необходимо установить в 1, при 0 - оставить 0

a1:=((a1+2) div (a1+1)) mod 2;

в делителе к а1 прибавляем 1, чтоб не получить ошибку при делении на 0.
В результате целочисленного деления мы получаем:
=2 , если а1 =0
=1 , если a1>0 . При взятии остатка от деления 2 => 1, 1 => 1
Если мы получили a1=1 (число а больше либо равно b), то b1 необходимо присвоить 1 и наоборот, что и делаем в выражении

b1:=(a1+1) mod 2;

- с этим перемудрил ...проще

b1:=1-a1;

[Serge_Bliznykov]

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

WriteLn('ЗНАЧЕНИЕ (Value)',a-(a-b),' МЕНЬШЕ (словом) ',b-(b-a));

ну, введите A= 2 и B=5

   a := 2;
   b := 5;
   WriteLn('ЗНАЧЕНИЕ (Value)',a-(a-b),' МЕНЬШЕ (словом) ',b-(b-a));

получится

ЗНАЧЕНИЕ (Value)5 МЕНЬШЕ (словом) 2

это не так. как правильно сказали. первое условие ВСЕГДА печатает B, второе - всегда A (откройте скобки, сократите одинаковые члены и убедитесь в этом), независимо от того, что больше, что меньше...


Step_UA, Супер!

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

a1:=((a1+2) div (a1+1)) mod 2;

соль решения тут!
я вчера я крутил a div b - ноль очевидно получается, когда A меньше B, а вот когда больше, нужно получить единичку, но я так и не придумал, как получить из него единицу!
А Вы смогли.
Респект и уважуха!