Автор Тема: Visual Basic. Нужна помощь в курсовой работы по информатике  (Прочитано 4803 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Borserg

  • Пользователь
  • **
  • Сообщений: 26
    • Просмотр профиля
Требуется помощь в практической части курсовой работы по информатике.
Естественно, не бесплатно.
« Последнее редактирование: 05 Марта 2010, 00:33:57 от Asix »

Оффлайн Asix

  • Администратор
  • *****
  • Сообщений: 7257
  • Математик
    • Просмотр профиля
Хоть бы суть проблемы описал или предлагаешь всем подряд тебе в личку писать ?? =))
Математика онлайн - онлайн калькуляторы по математике, геометрии и теории вероятности!
Решение задач | Примеры решения задач | Рефераты | Заказать решениеШпаргалки | Теоретический материал

Выполнение студенческих работ на заказ!
Выполняем - Контрольные работы | Курсовые работы | Рефераты | Решение задач

За советы можете мне плюсики в репутацию ставить =)) Разрешаю =))

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Если задача интересная и есть  свои мысли, то может бесплатно придет помощь
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн Borserg

  • Пользователь
  • **
  • Сообщений: 26
    • Просмотр профиля
Задачи я напишу позже. Информатика непрофильная, поэтому преподаётся на низком уровне, а курсовую работу никто не отменял. По-любому, понадобится помощь. Позже (в течение 2 недель) напишу тему.

Оффлайн Borserg

  • Пользователь
  • **
  • Сообщений: 26
    • Просмотр профиля
Задача №1.
Составить приложение для расчёта выражения:
z = g + cos(a), если g<1
z = g - cos (a), если g=1 или g>1
g - норма квадратной матрицы B размерами mXm, определяемая по формуле:
, i = 1, 2... m, т.е. g - максимальное значение из сумм элементов строк, взятых по модулю. Определение нормы матрицы оформить в виде подпрограммы. Числовые значения m и матрицы B задать самостоятельно.

Во-первых, какая-то непонятная формула суммы, какой-то максимум.

Оффлайн Borserg

  • Пользователь
  • **
  • Сообщений: 26
    • Просмотр профиля
Как я понял суть программы:
Вводим квадратную матрицу размерами mXm в виде файла в блокноте (*txt). Программа считает сумму элементов в каждой строке, берёт по модулю и определяет максимальную сумму. Это и будет g. Далее в зависимости от значения g выполняется вычисление z по формуле. Да вот только в формуле z берется косинус альфа. Откуда брать угол?
Помогите начать программу, возможно, при понимании, буду сам дописывать.

Оффлайн Borserg

  • Пользователь
  • **
  • Сообщений: 26
    • Просмотр профиля
Private Sub Command1_Click()
Dim a() As Single
Dim i, j, m
Dim z As Single, maxI As Single, g As Single
Dim alpha As Single
If IsNumeric(Text1) = False Then
MsgBox "Ñíà÷àëà ââåäèòå ðàçìåð ìàòðèöû!", 1, "Îøèáêà!"
Exit Sub
End If
If Text1 <= 1 Then
MsgBox "Ðàçìåð ìàòðèöû  — öåëîå ïîëîæèòåëüíîå ÷èñëî, áîëüøåå, ÷åì åäèíèöà!", 1, "Îøèáêà!"
Exit Sub
End If
alpha = InputBox("Ââåäèòå alpha", "Ââîä âõîäíûõ ïàðàìåòðîâ")
m = Round(Text1)
ReDim a(1 To m, 1 To m) As Single
For i = 1 To m
    For j = 1 To m
    a(i, j) = InputBox("Ââåäèòå ýëåìåíò ìàòðèöû a" & i & j, "Ââîä ýëåìåíòîâ ìàòðèöû")
    Next j
Next i
g = a(1, 1)
For i = 1 To m
maxI = 0
    For j = 1 To m
    maxI = maxI + a(i, j)
    Next j
    If Abs(maxI) > g1 Then g = Abs(maxI)
Next i
MsgBox (g), 1, "Ïðîìåæóòî÷íûé ðåçóëüòàò âû÷èñëåíèé (íîðìà ìàòðèöû)"
If g < 1 Then
z = g + Cos(alpha)
Else
z = g - Sin(alpha)
End If
MsgBox (z), 1, "Ðåçóëüòàò âû÷èñëåíèé (z)"
End Sub
Сделал... но препод сказал, что очень простенько и нужно использовать подпрограмму общего вида при вычислении g. Т.е. нужно написать подпрограмму и отклик для неё. Вот с этим проблемы.

 

Maple помощь с непростой функцией в частном виде

Автор Tilesto

Ответов: 0
Просмотров: 5930
Последний ответ 14 Мая 2015, 14:41:43
от Tilesto
Помощь в решении простых задач на Pascal'е

Автор berkut_174

Ответов: 19
Просмотров: 5336
Последний ответ 26 Июня 2011, 18:10:18
от berkut_174
Помощь с учебной литературой

Автор PandaPivovar

Ответов: 3
Просмотров: 2798
Последний ответ 25 Ноября 2009, 00:34:11
от PandaPivovar
матрицы, нужна помошь

Автор lelia222

Ответов: 28
Просмотров: 6463
Последний ответ 08 Октября 2009, 16:27:01
от Данила
Нужна консультация

Автор Вишня

Ответов: 14
Просмотров: 2497
Последний ответ 05 Мая 2010, 19:04:39
от InfStudent