Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
>ЧЕК<
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 6
1

составить программу(матрица)

14.05.2010, 12:59. Просмотров 632. Ответов 2
Метки нет (Все метки)

Дана матрицы А(n×m). После строки с номером 3 поставить строку с номером n.

Дана матрица А(n×m). Получить вектор b1, b2, …, bn, где bi равно наименьшим значениям строк.

Добавлено через 16 часов 33 минуты
ПОМОГИТЕ МНЕ ТУПОМУ ПОЖАЛУЙСТО

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2010, 12:59
Ответы с готовыми решениями:

Напишите пожалуйста программу. дана матрица 4*4. Найти сумму элементов строки
Дана матрица 4*4 . Найти сумму элементов строки, в которой расположен элемент с...

Составить программу
Помогите составить программу,которая запрашивает пароль три раза

Составить программу
Здравствуйте, мне требуется помощь по Basic, задали задачу с условиями...

Составить программу, которая
Для каждого из слов заданного предложения указывает, сколько раз оно...

Составить линейную программу
Добрый вечер, вот условие задания, задали по учёбе, но я к сожалению не...

2
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
14.05.2010, 14:25 2
VB6
1.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Form_Load()
Dim a() As Single, message, temp
Dim n, m, i, j
n = InputBox("n")
m = InputBox("m")
n = n + 1
ReDim a(1 To n, 1 To m) As Single
For i = 1 To n - 1
For j = 1 To m
a(i, j) = Int(100 * Rnd)
message = message & a(i, j) & "  "
Next j
message = message & Chr(13)
Next i
MsgBox message
ReDim Preserve a(1 To n, 1 To m)
For i = n - 1 To 4 Step -1
For j = 1 To m
a(i + 1, j) = a(i, j)
Next j
Next i
For j = 1 To m
a(4, j) = a(n, j)
Next j
message = ""
For i = 1 To n
For j = 1 To m
message = message & a(i, j) & "  "
Next j
message = message & Chr(13)
Next i
MsgBox message
End Sub
2.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Command1_Click()
Dim a() As Single, b() As Single, max As Single
Dim n, m, i, j
n = InputBox("n")
m = InputBox("m")
ReDim a(1 To n, 1 To m), b(1 To n)
max = 0
For i = 1 To n
For j = 1 To m
a(i, j) = Int(Rnd * 100)
Next j
Next i
For i = 1 To n
max = a(i, 1)
For j = 1 To n
If a(i, j) > max Then max = a(i, j)
Next j
b(i) = max
Next i
answer = ""
For i = 1 To n
answer = answer & b(i) & Space(2)
Next i
MsgBox answer
End Sub
1
>ЧЕК<
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 6
14.05.2010, 15:07  [ТС] 3
спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2010, 15:07

Составить программу с массивами
Задача вроде простая, но я больше по Паскалю работал, нежели по Бейсику, а...

составить программу в бейсике
помогите плизз(( http://s010.***********/i313/1101/93/edaed1569180.jpg

Составить программу вычисления функции y (x)
составить программу вычисления функции y (x) для заданных условий.


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

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

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