Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [QBasic] Задачи с массивами

Автор: laps 20.4.2007, 18:17

Уважаемые, помогите пожалуйста сделать 2 задачи с массивами в QBasic, сам не могу сделать так как темы проболел =( 1. В двухмерном массиве произвольных чисел вычислить сумму их наибольших значений в строках. 2. В одномерном массиве произвольных чисел вычислить сумму элементов.  Помогите, кто сделает честь и хвала!

Автор: DimkraS 21.4.2007, 15:07

Первая задача: Код     Dim AnsStr(1 To 3, 1 To 4) As Byte     'Заполняем двухмерный массив какойнить фигнёй     AnsStr(1, 1) = 1     AnsStr(1, 2) = 2     AnsStr(1, 3) = 3     AnsStr(1, 4) = 4     AnsStr(2, 1) = 5     AnsStr(2, 2) = 6     AnsStr(2, 3) = 7     AnsStr(2, 4) = 8     AnsStr(3, 1) = 9     AnsStr(3, 2) = 10     AnsStr(3, 3) = 11     AnsStr(3, 4) = 12     'Находим максимальное каждого массива     MaxM1 = AnsStr(1, 1)     For i = 2 To 4         If MaxM1 < AnsStr(1, i) Then             MaxM1 = AnsStr(1, i)         Else             MaxM1 = AnsStr(1, 1)         End If     Next i     MaxM2 = AnsStr(2, 1)     For i = 2 To 4         If MaxM2 < AnsStr(2, i) Then             MaxM2 = AnsStr(2, i)         Else             MaxM2 = AnsStr(2, 1)         End If     Next i     MaxM3 = AnsStr(3, 1)     For i = 2 To 4         If MaxM3 < AnsStr(3, i) Then             MaxM3 = AnsStr(3, i)         Else             MaxM3 = AnsStr(3, 1)         End If     Next i     'Складываем     summa = MaxM1 + MaxM2 + MaxM3 Вторая задача: Код For i = 1 To kolmas 'kolmas это Размер массива      summa = summa + mas(i) Next(i)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)