Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 17.01.2011, 19:28   #1 (permalink)
glos
Новичок
 
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию QBasic, массивы

Очень прошу помогите с задачкой, последнее задание осталось даже не пойму как алгоритм составить.. кто чем может помогите!!

Задание:
Написать программу формирования одномерного массива размера М.
Полученный массив напечатать.
Выполнить обработку и преобразование массива
На печатать преобразованный массив
Подобрать контрольный пример


Вариант: Найти сумму модулей отрицательных нечетных элементов. Получить новый массив путем возведения в квадрат элементов, стоящих на четных местах
glos вне форума   Ответить с цитированием

Старый 17.01.2011, 19:28
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Судя по всему проблема частая, на нашем форуме нашлись совпадения

Задача в QBasic
QBasic

Старый 17.01.2011, 19:49   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Массив как заполнять будете: случайными значениями или путем ввода с клавиатуры?

Алгоритм следующий:
1) определяем значение переменной M
2) определяем числовой массив вещественного типа (так как не сказано, какой именно тип данных в нем хранится) размерностью M элементов.
3) инициализируем переменную для суммы.
4) в цикле заполняем массив значениями и в следующем цикле выводим массив на экран
5) в цикле анализируем значение текущего элемента массива и при отрицательном значении к переменной суммы прибавляем модуль значения этого элемента (функция ABS - модуль числа).
в этом же цикле анализируем индекс текущего элемента и, если он нечетный, возводим во вторую степень значение текущего элемента массива.
6) выводим значение суммы
7) в цикле выводим значение элементов массива
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 18.01.2011, 10:55   #3 (permalink)
glos
Новичок
 
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое! Осталось вспомнить как в программе это все написать (
glos вне форума   Ответить с цитированием
Старый 18.01.2011, 17:11   #4 (permalink)
glos
Новичок
 
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Помогите как программу то написать?? Мылю веревку, завтра буду вешатся все задания сам сделал а по массивам я пас (((
glos вне форума   Ответить с цитированием
Старый 19.01.2011, 06:08   #5 (permalink)
glos
Новичок
 
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

INPUT "vvedite razmernoct massiva:"; M
INPUT "Vvedite znachenie massiva"; I, K
DIM A(M)
S = 0
FOR I = 1 TO M
A(I) = K
NEXT I
FOR I = 1 TO M
PRINT "Znachenie massiva "; I; "="; A(I)
IF A(I) < 0 THEN S = S + ABS(A(I)) ELSE
S = S + (I)
IF ABS(I / 2) <> (I / 2) THEN A(I) = A(I) ^ 2
NEXT I
PRINT "Summa="; S
FOR I = 1 TO M
PRINT "Znachenie massiva I="; A(I)
NEXT I
END


так правильно??
glos вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 19.01.2011, 11:42   #6 (permalink)
glos
Новичок
 
Регистрация: 17.01.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию вот правильно

INPUT "vvedite razmernoct massiva:"; M
DIM A(M)
S = 0
FOR I = 1 TO M
INPUT "Vvedite znachenie massiva:"; K
A(I) = K
NEXT I
REM Vivodim na pechat
FOR I = 1 TO M
PRINT "Znachenie massiva "; I; "="; A(I)
NEXT I
FOR I = 1 TO M
IF A(I) < 0 AND (INT(A(I)/2) <> A(I)/2) THEN S = S + ABS(A(I))
IF INT(I / 2) = (I / 2) THEN A(I) = A(I) ^ 2
NEXT I
PRINT "Summa="; S
FOR I = 1 TO M
PRINT "Znachenie massiva I="; A(I)
NEXT I
END
glos вне форума   Ответить с цитированием
Старый 21.12.2013, 06:04   #7 (permalink)
CAT-17
Новичок
 
Регистрация: 21.12.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массивы

1) Найти количество отрицательных элементов массива.
2) Даны два массива K(9)=(1, -3, 7, 8, -14, 60, -5, 9, -2) и M(9)=(-4, 71, 8, 13, 17, 54, 7, 1, 0). Составить программу определяющую порядковые номера отрицательных элементов массива.
CAT-17 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:56.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.