Basic помогите с заданием для контрольной

[dimma47]

Basic помогите с заданием для контрольной

Basic
-Написать программу формирования одномерного массива размера М.
-Полученный массив напечатать.
-Выполнить обработку и преобразование массива в соответствии со своим вариантом ( Найти среднее арифметическое четных элементов. Получить новый массив путем умножения всех элементов на наименьший элемент.)
-Напечатать преобразованный массив
-Подобрать контрольный пример
:tehnari_ru_837:

 

[AlexZir]

Какой именно Basic использовать: QB, VB или другие?

 

[dimma47]

Какой именно Basic использовать: QB, VB или другие?

QBQBQBQBQBQBQBQBQBQQB

 

[AlexZir]

Клавиатуру поменяйте, у вас две клавиши залипли и CapsLock совсем залочился

 

[dimma47]

QBasic
-Написать программу формирования одномерного массива размера М.
-Полученный массив напечатать.
-Выполнить обработку и преобразование массива в соответствии со своим вариантом ( Найти среднее арифметическое четных элементов. Получить новый массив путем умножения всех элементов на наименьший элемент.)
-Напечатать преобразованный массив
-Подобрать контрольный пример

 

[AlexZir]

Как-то так:

INPUT "Введите размерность массива", m
DIM mas(m)
FOR i = 1 TO m
PRINT "Введите mas["; i; "]"
INPUT mas(i)
NEXT i
MinEl = mas(1)
PRINT
PRINT "Исходный массив:"
PRINT "_________________________"
FOR i = 1 TO m
IF mas(i) < MinEl THEN MinEl = mas(i)
PRINT i, mas(i)
NEXT i
PRINT "_________________________"
PRINT "Минимальный элемент массива равен:"
PRINT "_________________________"
PRINT MinEl
PRINT "_________________________"
SrAr = 0
k = 0
FOR i = 2 TO m STEP 2
k = k + 1
SrAr = SrAr + mas(i)
NEXT i
SrAr = SrAr / k
PRINT "Среднее арифметическое четных элементов равно:"
PRINT "_________________________"
PRINT SrAr
PRINT "_________________________"
PRINT "Преобразованный массив:"
PRINT "_________________________"
FOR i = 1 TO m
mas(i) = mas(i) * MinEl
PRINT i, mas(i)
NEXT i
PRINT "_________________________"
END

Примеры сами подберете, в принципе, там нет ничего особо сложного

 

[dimma47]

Как-то так:

INPUT "Введите размерность массива", m
DIM mas(m)
FOR i = 1 TO m
PRINT "Введите mas["; i; "]"
INPUT mas(i)
NEXT i
MinEl = mas(1)
PRINT
PRINT "Исходный массив:"
PRINT "_________________________"
FOR i = 1 TO m
IF mas(i) < MinEl THEN MinEl = mas(i)
PRINT i, mas(i)
NEXT i
PRINT "_________________________"
PRINT "Минимальный элемент массива равен:"
PRINT "_________________________"
PRINT MinEl
PRINT "_________________________"
SrAr = 0
k = 0
FOR i = 2 TO m STEP 2
k = k + 1
SrAr = SrAr + mas(i)
NEXT i
SrAr = SrAr / k
PRINT "Среднее арифметическое четных элементов равно:"
PRINT "_________________________"
PRINT SrAr
PRINT "_________________________"
PRINT "Преобразованный массив:"
PRINT "_________________________"
FOR i = 1 TO m
mas(i) = mas(i) * MinEl
PRINT i, mas(i)
NEXT i
PRINT "_________________________"
END

Примеры сами подберете, в принципе, там нет ничего особо сложного

cпасибо большое
а не подскажешь какунибуть литературу по кубэсику

 

[AlexZir]

встроенная справка )

 

[dimma47]

встроенная справка )

а какунибуть среду программирования для кубесика не подскажите, для проверки хотелось бы

 

[AlexZir]

MS QuickBasic v4.5 Посмотреть вложение QB.rar
В архиве работоспособная версия среды программирования и листинг вашего задания в виде bas-файла, пользуйтесь )