Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
>ЧЕК<
0 / 0 / 0
Регистрация: 24.03.2010
Сообщений: 6
#1

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

14.05.2010, 12:59. Просмотров 619. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос составить программу(матрица) (VB):

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

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

Составить программу - Basic
Здравствуйте, мне требуется помощь по Basic, задали задачу с условиями R=(корень)1+x2( x в квадрате) * e-x/2 для x=0/2 шаг 0,2 ...

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

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

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

2
YuraAAA
1578 / 1319 / 271
Регистрация: 25.10.2009
Сообщений: 3,437
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

Составить программу, определяющую процент - Basic
Заданы оценки каждого из студентов в группе на одном из экзаменов. Составить программу, определяющую процент двоечников, троечников,...

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

Составить программу для вычисления - VB
Составить программу вычисления (1/1*2)+(1/2*3)+(1/3*4)+(1/4*5)... Расчет вести до тех пор, пока модуль разности между значения двух...


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

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

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