![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
EkaterinaKozitsyna |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Продвинутые Сообщений: 7 Регистрация: 7.4.2011 Из: Москва. родной город Сочи Город: Москва Учебное заведение: МГУТУ ![]() |
ЗАДАЧА 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 |
![]()
Сообщение
#2
|
Аспирант ![]() ![]() ![]() Группа: Продвинутые Сообщений: 334 Регистрация: 26.4.2009 Город: Липецк Учебное заведение: ЛГТУ Вы: студент ![]() |
Вот 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-ю, откровенно говоря, не понял |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 27.5.2025, 17:37 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru