Логические операторы

[maxwel6064]

Всем привет! Нужна небольшая помощь от программистов с логическими операторами в Pascal. Если кто может, то помогите пожалуйста решить следующие задачи:

Номер 1
Записать условие, которое является истинным, когда:
a) каждое из чисел А и В больше 100;
b) только одно из чисел А и В четное;
c) хотя бы одно из чисел А и В положительно;
d) каждое из чисел А, В, С кратно трем;
e) только одно из чисел А, В и С меньше 50;
f) хотя бы одно из чисел А, В, С отрицательно.

Номер 2
Записать условие, которое является истинным, когда:
a) каждое из чисел Х и У нечетное;
b) только одно из чисел Х и У меньше 20;
c) хотя бы одно из чисел Х и У равно нулю;
d) каждое из чисел Х, У, Z отрицательное;
e) только одно из чисел Х, У и Z кратно пяти;
f) хотя бы одно из чисел Х, У, Z больше 100.

Номер 3
Записать условие, которое является истинным, когда:
a) целое А кратно двум или трем;
b) целое А не кратно трем и оканчивается нулем.

Номер 4
Записать условие, которое является истинным, когда:
a) целое N кратно пяти или семи;
b) целое N кратно четырем и не оканчивается нулем.

Буду очень рад, если найдутся отзывчивые люди.

[Serge_Bliznykov]

Всё настолько плохо? Неужели самому не хочется хотя бы попробовать?
Задания то совсем простые!
или проблемы с булевой алгеброй (что означает "логическое И" (AND), что означает "логическое ИЛИ" (OR), что означает "логическое отрицание" (Not) ) ?

Попытайтесь самостоятельно решить - если возникнут сложности - тут сразу помогут!

[Johnson]

a) if (A>100)and(B>100)then {...};
b) if (odd(A))xor(odd(B))then {...};
c) if (A>=0)or(B>=0)then {...};
d) if ((A mod 3)>0)and((B mod 3)>0)and((C mod 3)>0)then {...};
e) if (A<50)xor(B<50)xor(C<50) then {...};
f) if (A<0)or(B<0)or(C<0)then {...};

a) if (odd(X))and(odd(Y))then {...};
b) if (X<20)xor(Y<20)then {...};
c) if (X=0)or(Y=0)then {...};
d) if (X<0)and(Y<0)and(Z<0)then {...};
e) if (X mod 5 = 0)xor(Y mod 5 = 0)xor(Я mod 5 = 0)then {...};
f) if (X>100)or(Y>100)or(Z>100)then {...};

a) if (A mod 2 = 0)or(A mod 3 = 0)then {...};
b) if not(A mod 3 = 0) and (A mod 10 = 0)then {...};

a) if (N mod 5 = 0)or(N mod 7 = 0)then {...};
b) if (A mod 4 = 0) and not(A mod 10 = 0)then {...};

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

[Serge_Bliznykov]

Johnson, кстати, в вашем решении есть ошибки... hint: нельзя использовать несколько XOR - они не дают тот эффект, который Вы от них ожидаете!

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

Если Вы не можете решить даже такие простые задачи - то Вам стоит перейти на другой факультет. Программирование не для Вас.

+1

[Вадим Мошев]

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

Johnson, кстати, в вашем решении есть ошибки... hint: нельзя использовать несколько XOR - они не дают тот эффект, который Вы от них ожидаете!

+1

Выражение с применением оператора XOR истинно в том случае, если истинно только нечётное число операндов, объединяемых этим оператором, и ложно в противном случае.

// Это так, для справки;

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Выражение с применением оператора XOR истинно в том случае, если истинно только нечётное число операндов, объединяемых этим оператором, и ложно в противном случае.

ого. Простите, коллега, но это Вы круто завернули - данное утверждение оказалось выше моего понимания.


p.s. я просто хотел указать на то, что есть ошибки в решении вышеприведённых задач, и всё...

[maxwel6064]

Спасибо вам большое! Просто я сам начал изучать Pascal и ищу задания для себя в качестве выполнения, в этом задании просто не совсем было понятно условие. Теперь учту и буду знать, что лучше показывать готовое мной решение, а потом просить помощи в исправлении. Теперь буду знать. Еще раз большое спасибо!

[Johnson]

про ксор... писал с телефона второпях, забыл скобки.

[Serge_Bliznykov]

про ксор... писал с телефона второпях, забыл скобки.

скобки ничего не дадут в данном случае..

[Johnson]

ну с XOR больше двух значений сталкиватсья не приходилось.
Буду признателен, если напишите правильный способ...