Работа с матрицами (ВБ 6.0 для Вин7)

02.03.2013, 13:11. Показов 708. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Доброе утро/день/вечер/ночь

Необходимо решить 3 задачи...(2,3,4)(желательно с комментами около функций)
Код к 1 задаче(2 часть - танцы с бубнами для скролла пикчебокса)

PureBasic
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
34
35
36
37
38
Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100) As Double
Dim i, j, n As Integer
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = Log(Factorial(i)) + 0.5 * j / i
Picture2.Print Format(A(i, j), "###"),
Next j
Picture2.Print '
Next i
End Sub
Function Factorial(n)
  Factorial = 1
  For i = 2 To n
    Factorial = Factorial * i
  Next i
End Function
 
Private Sub Form_Load()
VScroll1.Max = (Picture2.Height - Picture1.ScaleHeight)
HScroll1.Max = (Picture2.Width - Picture1.ScaleWidth)
End Sub
 
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
 
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
 
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub

ЗАРАНЕЕ БЛАГОДАРЕН!!!)))

Миниатюры

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

02.03.2013, 13:11

Ответы с готовыми решениями:

Работа с матрицами: ввод/вывод, проверка условия для строк/столбцов и элементов
Добрый вечер всем! Помогите пожалуйста с прогой. Дано:Найти в матрице последнюю строку, все элементы которой упорядочены по возрастанию

Работа с матрицами произвольной размерности. Создать функцию, которая для произвольной матрицы вычисляет
a)количество столбцов, содержащих данный элемент b) и еще что бы что нибудь считала, не важно но на подобие такого оба задания по типу...

Работа с матрицами произвольной размерности. Создать функцию, которая для произвольной матрицы вычисляет:
а) максимальную сумму по столбцам б) количество минимальных элементов массива Распишите подробно, хочу наконец разобраться. Заранее...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

02.03.2013, 13:11

Помогаю со студенческими работами здесь

Работа с матрицами произвольной размерности. Создать функцию, которая для произвольной матрицы вычисляет
а) номер столбца, в котором расположен максимальный элемент б) сумму минимальных элементов в каждом столбце Спасибо.

Класс: Разработать класс для работы с матрицами(операции над матрицами)...
Добрый вечер, хочу попросить о помощи с отловом проблемы. Сама задача: разработать класс для работы с матрицами(операции над...

Паскаль для Вин7 х64
Есть какой аналог турбо паскалью для вин7 х64, а то АБЦ не понимает некоторые синтаксисы так как они использовались раньше, но они мне...

где можно скачать 1с для вин7 ?
ребя кто подскажет где скачать или скинет программу 1с 7.7 для виндовс 7 32бит , желательно с кряком

Работа с матрицами
Здравствуйте Помогите пожалуйста найти ошибку в коде Необходимо вернуть через регистр ax число 0, если в матрице присутствует строка,...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Наверх