Курсовик по инфе,помогите кто может решить - Форум
Суббота, 03.12.2016, 22:43
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Курсовик по инфе,помогите кто может решить (Массивы)
Курсовик по инфе,помогите кто может решить
WarlordДата: Среда, 16.03.2011, 12:49 | Сообщение # 1
Полковник
Группа: Новичок
Сообщений: 30
[ 0 ]
Статус: Offline
Вывести на печать массивы A,B,C,M, среднее арифметическое элементов матрицы A
 
flash_kpiДата: Четверг, 17.03.2011, 02:28 | Сообщение # 2
Генералиссимус
Группа: Заблокированные
Сообщений: 118
[ 0 ]
Статус: Offline
Пиши, выполню без проблем
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf
 
WarlordДата: Пятница, 18.03.2011, 06:17 | Сообщение # 3
Полковник
Группа: Новичок
Сообщений: 30
[ 0 ]
Статус: Offline
мне надо здесь(((((((((((я не могу писать на почту времени совсем нет(((((((((((((
 
boboДата: Пятница, 18.03.2011, 10:34 | Сообщение # 4
Генерал-майор
Группа: Заблокированные
Сообщений: 42
[ 0 ]
Статус: Offline
ты хотя бы исходник напиши (от чего вообще идти), ошибки и недоделки здесь исправим. язык программирования тоже не написал или тебе без разницы?

Добавлено (18.03.2011, 10:34)
---------------------------------------------
на всякий случай babamurad2010@yandex.ru

 
WarlordДата: Пятница, 18.03.2011, 12:11 | Сообщение # 5
Полковник
Группа: Новичок
Сообщений: 30
[ 0 ]
Статус: Offline
Решать надо в Visul Basic

Причем только это написано в Курсовике и все,это и другие задания на Массивы и матрицы. Просто задания их сделать,вот все что есть переписал и все
 
roguДата: Пятница, 18.03.2011, 18:36 | Сообщение # 6
Генерал-лейтенант
Группа: Новичок
Сообщений: 52
[ 1 ]
Статус: Offline
Ставишь на форму кнопку и вставляешь для нее код
Это для вывода массивов

Randomize
Dim a(10) as integer,b(10) as integer, c(10 ) As Integer
For i = 0 To 10
a(i) = Int(Rnd * 10) + 1
b(i)=int(rnd*20)+5
c(i)=Int(rnd*15)+10

Print " i= ", i, " a(i)= ", a(i), " b(i)=",b(i), "c(i)=", c(i)
Next

Среднее арифметическое
Dim sum As Integer 'Сумма элементов
Dim result As Double
sum = 0
Randomize
Dim a(10, 10) As Integer 'Вместо 10 может быть любое другое число
For i = 0 To 10
For j = 0 To 10
a(i, j) = Int(Rnd * 20) + 1 'Присваеваем элементам массива случайные целые значения
sum = sum + a(i, j) 'Вычисляем сумму элементов матрицы
Next
Next
result = sum / (11 * 11) '11 - длина массива
Print "result=", result
End Sub

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Курсовик по инфе,помогите кто может решить (Массивы)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016