Сравнение чисел без использования оператора if

[rapprozi]

Еще такая темка есть, нуждаюсь в помощи..

Не используя оператора if, присвоить переменной t значение 0, если из введенных чисел x, y, z только два числа равны между собой, и значение 1 - в противном случае.

Спасибо, заранее!

[ACE Valery]

Выяснить, входят ли в введенный текст буквы.

Не используя оператора if, присвоить переменной t значение 0, если из введенных чисел x, y, z только два числа равны между собой, и значение 1 - в противном случае.

Вы определитесь, что вам конкретно надо. То ли определить буквы, то ли определить равенство чисел. А пока что название темы не отражает суть сообщения.
Если не будет адекватного объяснения, почему тема называется иначе, то будет штраф

[Noor]

Наверное типа такого ...

var
t,x,y,z:integer;
begin
x:=1;
y:=2;
z:=3;

while (x=y) or (y=z) or (x=z)do
begin
t:= 0;
end;

while (x<>y) or (y<>z) or (x<>z)do
begin
t:= 1;
end;
end;

работоспособность не проверял, смотрите описания

[rapprozi]

У меня изначально был другой вопрос, какой я увидел в предыдущей теме, потому я удалил старый пост, а заголовок изменить не смог.

Спасибо большое!

http://programmersforum.ru/attachmen...1&d=1336466743

работает всё, ещё раз спасибо!

[s-andriano]

Использовать while в качестве if IMHO не значит "не используя if".
t := byte(((a=b) and (b=c)) or ((a <> b) and (b <> c) and (a <> c)));

[Noor]

Сообщение от s-andriano

Использовать while в качестве if IMHO не значит "не используя if".

обоснуй свое IMHO! В задании не звучало запрета на использование условных операторов. Насколько я могу припомнить свою учебу, такие задания и давала для освоения условных операторов помимо if, а не для усложнения жизни студенту и созданию t := byte(((a=b) and (b=c)) or ((a <> b) and (b <> c) and (a <> c))); = "Велосипеда"

[Hacker19_90]

обоснуй свое IMHO !

Так а давай те ВНИМАТЕЛЬНО ЧИТАТЬ ЗАДАНИЕ! Ок?
Читаем и видем

присвоить переменной t значение 0, если из введенных чисел x, y, z только два числа равны между собой

и что вы предложили?

while (x=y) or (y=z) or (x=z)do

при таком подходе при всех равных 3 присвоится 0!
как пример
1 2 3 t = 1
3 3 4 t = 0
3 3 3 t = 1
И так есть другие идеи?

работает всё, ещё раз спасибо!

ТС тестите лучше!

[s-andriano]

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

обоснуй свое IMHO!

IMHO по определению не нуждается в обосновании.

Насколько я могу припомнить свою учебу, такие задания и давала для освоения условных операторов помимо if

Это несколько сомнительное утверждение, т.к.
1. while не является условным оператором, это - оператор цикла.
2. Оператор - IMHO совсем не то, что нуждается в "освоении".
3. А вот что действительно нужно осваивать - так это логические выражения, с которыми, как показывает практика, у многих студентов (да и выпускников - тоже) большие проблемы.

[Smitt&Wesson]

Вы определитесь, что вам конкретно надо.

(Холивар). Праздник, какая работа! С Днём ПОБЕД (не ошибка, мы побеждаем во всех войнах, когда нападают на нас и поэтому "опасны"). Это есть, было и будет!!!!!!!!!!!!!
Тевтонцам мало показалось? Они ещё проверить захотели!
Скажу словами поэта:
Мы мирные люди, но наш бронепоезд, СТОИТ на запасном пути.

И если кто захочет на нас напасть, пусть это знают!

[Noor]

IMHO по определению не нуждается в обосновании.

Без обид , просто хотел уточнить для себя ваше мнение по этому вопросу.

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

при таком подходе при всех равных 3 присвоится 0!
как пример
1 2 3 t = 1
3 3 4 t = 0
3 3 3 t = 1
И так есть другие идеи?

Интересное наблюдение. Получается тупик, тут и два числа равны (3 раза) и под "противный" случай подпадает. Интересно услышать реплику ТС и уточненное задание (желательно дословное)