Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Juliy
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 3
#1

Вычислить среднее арифмитическое значение нечетных элементов массива, кратных 7 - QBasic

03.04.2011, 18:59. Просмотров 991. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста с решением задачи:
Разработать блок-схему и записать программу на языке QBASIC:
а) Дан массив чисел Q(1051). Вычислить среднее арифмитическое значение нечетных элементов кратных 7, расположенных после первого встретившегося такого элемента и до конца массива.
в) Дана матрица С(X,Y). Найти в каждом столбце максимальный элемент и записать его в новую последовательность А(Y).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2011, 18:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить среднее арифмитическое значение нечетных элементов массива, кратных 7 (QBasic):

Вычислить среднее арифметическое значение нечетных элементов матрицы, кратных семи
помогите 2 задачи решить: 1) Дана числовая последовательность Q(120)....

Вычислить среднее арифметическое значение элементов массива М
дан массив М(х) вычеслители среднее арифметическое значение элементов массива М...

Вычислить среднее арифметическое значение положительных элементов массива
Обработать на компьютере одномерный массив B(N): вычислить среднее...

В массиве найти произведение ненулевых элементов и среднее арифмитическое элементов главной диагонали
1)В массиве(4,4) найти произведение ненулевых элементов и среднее...

Найти среднее арифмитическое наибольшего и наименьшего значения её элементов.
Дана действительная матрица размера m x n. Найти среднее арифмитическое...

Вычислить среднее арифметическое и среднее геометрическое положительных элементов массива
В данном массиве А{n} вычислить среднее арифметическое и среднее геометрическое...

2
-immortal-
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
03.04.2011, 19:59 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

а)
PureBasic
1
2
3
4
5
6
7
8
9
CLS
DIM q(1051)
FOR i = 1 TO 1051
    q(i) = FIX(100 * RND(1) - 25)
NEXT
FOR i = 8 TO 1051
    IF i / 2 <> INT(i / 2) AND i / 7 = INT(i / 7) THEN k = k + 1: s = s + q(i)
NEXT
PRINT "sred. znach.:"; s / k
Добавлено через 16 минут
в)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
RANDOMIZE TIMER
INPUT "strok-"; x
INPUT "stolbcov-"; y
DIM c(x, y)
DIM a(y)
PRINT
PRINT "massiv C:"
FOR i = 1 TO x
    FOR j = 1 TO y
        c(i, j) = INT(100 * RND(1) - 25)
        PRINT c(i, j);
NEXT: PRINT: NEXT
FOR i = 2 TO x
    FOR j = 1 TO y
        a(j) = c(1, j)
        IF c(i, j) > a(j) THEN a(j) = c(i, j)
NEXT: NEXT
PRINT: PRINT "massiv A:"
FOR i = 1 TO y
    PRINT a(i);
NEXT
2
Juliy
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 3
04.04.2011, 10:57  [ТС] #3
Спасибо, Вы мне очень помогли.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2011, 10:57
Привет! Вот еще темы с решениями:

Найти среднее арифметическое нечетных элементов массива с нечетными индексами
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите...

Вычислить произведение элементов массива, кратных 5
народ такая задача: вычислить произведения элементов массива A1, A2, ..., A70,...

Найти среднее значение элементов массива, разделить каждый элемент на это значение
Вводится произвольный квадратный массив. Нужно найти среднее значение элементов...

Вычислить среднее значение элементов матрицы (SR)
Ввести матрицу A(k,l), k&lt;&gt;l. Вычислить среднее значение элементов матрицы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru