Есть ли равные числа?

@сом · Регистрация: 17.10.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте ребята! Решил я добросовесно выучить информатику и самостоятельно решить задачи своей контрольной. Но оказалось все не так просто.

Первые две задачи я решил,может пригодится кому, а вот дальше, я застопорился. Ребята помогите с задачами 3, 4 и 5.

Задача 1
Имеется четыре произвольных числа: A,B,C,D. При вводе их в ЭВМ, она должна ответить на вопрос: Правда ли что СРЕДИ ЭТИХ ЧИСЕЛ НЕТ РАВНЫХ? Ответ ЭВМ должна вывести в виде текста - слов "Правда" или "Неправда".
Задача должна быть решена с использованием одного оператора проверки, комплексного логического выражения с ипользованием логического сложения, умножения отрицания, без переменных-счетчиков и операторов цикла

PureBasic

PRINT "npaBga Jlu 4To cpegu etux 4uceJI HeT paBHbIx"
INPUT "vvedite a"; a
INPUT "vvedite b"; b
INPUT "vvedite c"; c
INPUT "vvedite d"; d
IF a / b = 1 THEN PRINT "nepravda": END
IF a / c = 1 THEN PRINT "nepravda": END
IF a / d = 1 THEN PRINT "nepravda": END
IF b / c = 1 THEN PRINT "nepravda": END
IF b / d = 1 THEN PRINT "nepravda": END
IF d / c = 1 THEN PRINT "nepravda": END
PRINT "pravda"
END

Задача 2
Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда.
В условии сказано, что программа должна выводить первые 4-5 элементов чилового ряда и конечный результат
у=-18+20-22+24...

PureBasic

INPUT "VVEDITE ELEMENT", n
FOR i = 1 TO n
y = y + (-1) ^ i * (i * 2 - 1)
NEXT
PRINT "y=-18+20-22+24-...n"; "="; y

А вот дальше уже не могу помогите пожалуйста!

@кот Бегемот · 17.10.2010, 15:06

Сообщение от сом

Задача 1
Имеется четыре произвольных числа: A,B,C,D. При вводе их в ЭВМ, она должна ответить на вопрос: Правда ли что СРЕДИ ЭТИХ ЧИСЕЛ НЕТ РАВНЫХ? Ответ ЭВМ должна вывести в виде текста - слов "Правда" или "Неправда".
Задача должна быть решена с использованием одного оператора проверки, комплексного логического выражения с ипользованием логического сложения, умножения отрицания, без переменных-счетчиков и операторов цикла

1 задача. Нерациональный путь решения, используется не один оператор проверки, логические операции не используются. Примерное решение такое:

PureBasic

PRINT "npaBga Jlu 4To cpegu etux 4uceJI HeT paBHbIx"
INPUT "vvedite a"; a
INPUT "vvedite b"; b
INPUT "vvedite c"; c
INPUT "vvedite d"; d
IF a=b or a=c or a=d or b=c or b=d or c=d THEN PRINT "nepravda" else PRINT "pravda"
END

Задача 2
Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда.
В условии сказано, что программа должна выводить первые 4-5 элементов чилового ряда и конечный результат
у=-18+20-22+24...

Задача 2. Решение неверно.

PureBasic

INPUT " vvedite N ", n
FOR i = 1 TO n
y = (i + 8) * 2 * (-1) ^ i
s = s + y
IF i < 6 THEN PRINT "y"; i; "="; y; "   ";
NEXT
PRINT
PRINT "summa="; s

Добавлено через 11 минут
сом, 1 тема - 1 задача. Читайте п.6
Как запостить тему, чтобы не получить ответ

@сом · 17.10.2010, 15:23 **[ТС]**

Спасибо!!!!Просто огромное спасибо за ответ, теперь ясно, что да как. И извиняюсь за несоблюдение- как запостить тему, чтобы не получить ответ п.6

@сом 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 9
	17.10.2010, 15:23 [ТС]	3
	Спасибо!!!!Просто огромное спасибо за ответ, теперь ясно, что да как. И извиняюсь за несоблюдение- как запостить тему, чтобы не получить ответ п.6 0