EkaterinaKozitsyna
Сообщение
#73164 8.4.2011, 16:54
ЗАДАЧА 1. Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди этих чисел нет равных? Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”.
ЗАДАЧА 2. Составить программу вычисления и выдачи на печать суммы (или произ¬ведения) N элементов бесконечного числового ряда. Здесь и далее следует пользоваться операторами цикла FOR или WHILE.
y=256(-64)16(-4)1...
ЗАДАЧА 3. Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу Вычислить произведение всех положительных чисел меньших 20. Так, если A={2,24,-3,6,5,-2,33}, результат: 265=60.
ЗАДАЧА 5. Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных X и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для массивов произвольной размерности N. Программа должна предъявлять исходные и новые (если требуется) массивы.
Занести из X в Y сначала элементы, находившиеся на четных местах в X, а затем – на нечетных. 2 3 1 2 5 4 X
3 2 4 2 1 5 Y
Vahappaday
Сообщение
#73171 8.4.2011, 19:30
Какой язык? И свои идеи в студию?
EkaterinaKozitsyna
Сообщение
#73229 10.4.2011, 19:23
QBASIC.
Были бы ещё эти идеи)
EkaterinaKozitsyna
Сообщение
#73260 11.4.2011, 14:16
задача3.
CLS
INPUT "N=", N
DIM M(N)
PRINT
FOR T = 1 TO N
PRINT "M["; T; "]=";
INPUT M(T)
NEXT T
PRINT "Shchitaem"
B = 1
FOR T = 1 TO N
IF (M(T) > 0) AND (M(T) < 20) THEN
B = B * M(T)
END IF
NEXT T
PRINT B
PRINT "Bye bye"
END
тут всё правильно?
Vahappaday
Сообщение
#73314 13.4.2011, 3:10
Да, всё правильно. Сами делали?
Вот первая задача
Код
CLS
INPUT "A=", A
INPUT "B=", B
INPUT "C=", C
INPUT "D=", D
IF A = B THEN
PRINT "Nepravda"
END
END IF
IF A = C THEN
PRINT "Nepravda"
END
END IF
IF A = D THEN
PRINT "Nepravda"
END
END IF
IF B = C THEN
PRINT "Nepravda"
END
END IF
IF B = D THEN
PRINT "Nepravda"
END
END IF
IF C = D THEN
PRINT "Nepravda"
END
END IF
PRINT "Pravda"
END
EkaterinaKozitsyna
Сообщение
#73315 13.4.2011, 5:57
нет. мне помогали. спасибо боьшое за первую задачу
Vahappaday
Сообщение
#73392 15.4.2011, 2:27
Вот 5-я.
Код
CLS
INPUT "N=", N
DIM X(N)
DIM Y(N)
FOR i = 1 TO N
PRINT "X["; i; "]=";
INPUT X(i)
NEXT
i = 1
FOR j = 2 TO N STEP 2
Y(i) = X(j)
i = i + 1
NEXT
FOR j = 1 TO N STEP 2
Y(i) = X(j)
i = i + 1
NEXT
PRINT "X: "
FOR i = 1 TO N
PRINT X(i)
NEXT
PRINT "Y: "
FOR i = 1 TO N
PRINT Y(i)
NEXT
END
2-ю, откровенно говоря, не понял