Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Visual Basic в Visual Studio 2005 Добавлено: 10.05.10 21:14  

Автор вопроса:  Joker
Мужики, спасайте. В эту пятницу нам по программированию сказали за неделю сделать 5 программ на массивы. Проблемы в том, что я нифига в этом не понимаю... До этого мы писали простые программки, типа по формуле высчитать то-то и то-то, и т.д. А тут вдруг наша преподша задала это, толком даже не объясняя как задать массив. Программируем на Visual Basic в Visual Studio 2005. Вся надежда на вас. Вот задачи:

1) Дана квадратная матрица n*n. Составить программу и рассчитать суммы и произведения элементов матрицы, а именно произведение отрицательных элементов главной диагонали и сумму абсолютных значений элементов матрицы

2) Составить программу, предусматривающую контрольный вывод исходных данных в окно на левой части экрана и вывод результатов в окно на правой части экрана. В случае вывода исходных данных с клавиатуры создать окно в верхней и нижней части экрана. В массиве длиной n имеется несколько пар одинаковых чисел. Определить количество этих пар, значения и индексы этих элементов.

3) Дана числовая вещественная матрица a, имеющая n строк и m столбцов. Составить программу предусматривающую контрольный вывод исходной матрицы в окно на левой части экрана и вывод упорядоченной матрицы в окно на правой части. Поменять местами первый и последний, второй и предпоследний и т.д. столбцы исходной матрицы. У полученной матрицы расставить в порядке возрастания элементы побочной диагонали n=m=6.

4) Дана последовательность вещественных чисел x1, x2,…,xn, n – количество членов последовательности. Составить программу расчёта среднего арифметического всех отрицательных членов последовательности.

5) Дана матрица А
14 11 15 -20
13 10 -17 16
12 -22 21 18
Переставить столбцы матрицы в порядке возрастания сумм положительных элементов столбцов. На экране вывести преобразованную матрицу и вычисленные суммы.

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #1 Добавлено: 11.05.10 09:01
Халявщики.. вы уже задолбали!!!
Беру по 20$ за задачку, итого 100$.. интересует?

Ответить

Номер ответа: 2
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #2 		Добавлено: 11.05.10 11:46
А я добрый. А я помогу :)

  1. import math
  2. import operator
  3.  
  4. # 1
  5. n = 4
  6. a = [[-1,4,-2,5],[0,-3,-1,3],[-5,0,-7,1],[1,2,3,4]]
  7. prod1 = reduce(operator.mul, [a for i in xrange(n) if a < 0])
  8. sum1 = sum([sum(map(abs, a)) for i in xrange(n)])
  9. print prod1
  10. print sum1
  11. print
  12.  
  13. # 2
  14. n = 10
  15. a = [1, 2, 3, 4, 5, 1, 4, 6, 1, 8]
  16. res = {}
  17. for i in xrange(n-1):
  18. if a not in res: res[a] = []
  19. res[a].append(i)
  20. for k in res:
  21. if len(res[k]) > 1:
  22. print "Number %d occurs in array %d time(s) at pos %s" % (k, len(res[k]), res[k])
  23. print
  24.  
  25. # 3
  26. n = m = 6
  27. a = [[1,2,3,4,5,6],[6,5,4,3,2,1],[1,2,3,4,5,6],[6,5,4,3,2,1],[1,2,3,4,5,6],[6,5,4,3,2,1]]
  28. b = []
  29. for i in xrange(n):
  30. b.append([])
  31. for j in xrange(m):
  32. b.append(a[m-j-1])
  33. a = b
  34. c = [a[n-i-1] for i in xrange(n)]
  35. c.sort()
  36. for i in xrange(n):
  37. a[n-i-1] = c
  38. print a
  39. print
  40.  
  41. # 4
  42. n = 6
  43. a = [0,1,-2,-5,3,-4]
  44. avg = float(sum([a for i in xrange(n) if a < 0])) / n
  45. print avg
  46. print
  47.  
  48. # 5
  49. a = [[14,11,15,-20],[13,10,-17,16],[12,-22,21,18]]
  50. s = [sum([a[j] for j in xrange(3)]) for i in xrange(4)]
  51. res = {}
  52. for i in xrange(4): res[s] = i
  53. print s
  54. s.sort()
  55. b = [[] for i in xrange(3)]
  56. for i in xrange(4):
  57. for j in xrange(3):
  58. b[j].append(a[j][res[s]])
  59. print b
  60. print

Ответить

Номер ответа: 3
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #3 Добавлено: 11.05.10 11:49
$19 за задачку + пожизненная гарантия на код

Ответить

Номер ответа: 4
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #4 Добавлено: 11.05.10 12:15
А я добрый. А я помогу

Ты думаешь он тут что нибудь поймет? Это же халявщик!!!!! Он тебе щас напишет: Это чо за хрень? Мне на вижуал студио 2005 нада!!!

Оказываю услуги переводчика кода с С++ -> VB.NET
10$ за задачку..

Ответить

Номер ответа: 5
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #5 		Добавлено: 11.05.10 12:47
Sharp это какой язык?) питон, руби?

Не задавайте вопросы из домашних заданий http://parallel.ru/cluster/smart-questions-ru.html#homework

З.Ы. Чорд) Я в прошлом году 25 штук за 750 рублей сделал)) По $1. Правда там несколько повторялись, но деньги взял за каждую)

Ответить

Номер ответа: 6
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #6 Добавлено: 11.05.10 13:41
По $1.

ну ты себя ваще не ценишь.. по любому продешевил...
Знания - они дорого стоят!

Ответить

Номер ответа: 7
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #7 		Добавлено: 11.05.10 14:10
Был питон, пока его форум не отформатировал :)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам