Выяснить, правда ли, что среди чисел есть равные - QBasic

Формулировка задачи:

ЗАДАЧА 1.

Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди этих чисел есть равные?. Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”.

ЗАДАЧА 2.

Составить программу вычисления и выдачи на печать суммы (или произ*ведения) N элементов бесконечного числового ряда. Здесь и далее следует пользоваться операторами цикла FOR или WHILE. y=1000(-100)10(-1)...

ЗАДАЧА 3.

Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вариантом. Найти сумму элементов кратных трем. Например, если A={2,4,9,2,6,–12,0}, результат: 9+6–12=3.

ЗАДАЧА 4.

Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать аналитические соотношения, описывающие все имеющиеся зависимости. Y=(1+24-8)(2-2-3-4)(4+22-2)(8+2-1-1)... Указания к решению 4-ой задачи. Пусть: Y= 2-1 Ÿ 22 Ÿ 2-3 Ÿ 24 -5+16 5-8 -5+4 5-2 Сначала необходимо выписать все, наблюдаемые в ряду, соотношения. Для этого введем переменные. Степень двойки обозначим буквой A, знак при ней и знак при числе 5 буквой Z (так как они совпадают), второе слагаемое в знаменателе 16 – буквой В, а знак при нем -Z (этот знак противоположен остальным). Формула справа. Алгоритм решения (для заданного числа членов N): 1. Ввести значение N. 2. Задать исходные значения переменных (Y=1, Z=–1, A=1, B=16) 3. Вычислить очередное значение Y. 4. Вычислить новые значения A, В, Z. 5. Вернуться к пункту 3, если число выполненных циклов £N, иначе, завершение цикла и печать Y. Y =Y(2ZA/(ZŸ5–ZŸB)) Y = 1 Z = –Z Z = –1 A = A+1 A = 1 B = –B/2 B = 16

ЗАДАЧА 5.

Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных X и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для массивов произвольной размерности N. Программа должна предъявлять исходные и новые (если требуется) массивы. Заполнить массив Y произведениями соседних трех элементов X. 2 4 3 2 1 3 X 24_6___________________Y Заранее огроменное спасибо!

Решение задачи: «Выяснить, правда ли, что среди чисел есть равные»

Листинг программы

INPUT a
INPUT b
INPUT c
INPUT d
IF a=b OR a=c OR a=d OR b=c OR b=d OR c=d THEN PRINT "pravda" ELSE "nepravda"

Объяснение кода листинга программы

Вводится значение переменной a с помощью команды INPUT a.
Вводится значение переменной b с помощью команды INPUT b.
Вводится значение переменной c с помощью команды INPUT c.
Вводится значение переменной d с помощью команды INPUT d.
С помощью оператора IF проверяется, равны ли a и b, или a и c, или a и d, или b и c, или b и d, или c и d.
Если условие в операторе IF истинно, то программа выводит на экран слово pravda, иначе выводит слово nepravda.