0 / 0 / 0
Регистрация: 21.10.2010
Сообщений: 41
1

Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов

24.10.2010, 19:00. Показов 1209. Ответов 2
Метки нет (Все метки)

Ребята,пожалуйста,укажите ошибку...
Даны целые числа K,N а также К наборов целых чисел по N элементов в каждом наборе .Для каждого набора вывести сумму его элементов .

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim B as Integer 
K=(Text1.Text)
N=(Text2.Text)
ReDim A(N,K) as Integer 
ReDim S(K) as Integer 
For i=1 To K
A(i)=InputBox ("число" & str(i) & "=")
Next i
For j=1 To N
A(j)=InputBox ("число" & str(j) & "=")
Next j
For i=1 To K
For j=1 To N
If A(i,j) then
S(K)=S(K)+A(i,j)
End if
Next j
Print S(K)
Next i
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2010, 19:00
Ответы с готовыми решениями:

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его первого элемента, равного 2
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора
Помогите с заданием!!! Даны целые числа K, N, а также K наборов целых чисел по N элемен- тов в...

Даны целые числа K,N, а также K набор целых чисел по N элементов в каждом наборе. Вывести суму его элементов для каждого набора
Задача из роздела серий.

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Вычислить...

2
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
24.10.2010, 21:16 2
на первый взгляд
строка 4 A(N,K)
строка 7 A(i) !!!!!!!!!!!!!!
строка 10 A(j) !!!!!!!!!!!!!
0
11424 / 3732 / 673
Регистрация: 13.02.2009
Сообщений: 11,064
24.10.2010, 22:32 3
Dim B as Integer - зачем объявлен если не используется?
K=(Text1.Text) - переменная K не объявлена
N=(Text2.Text)- переменная N не объявлена
ReDim A(N,K) as Integer - откуда редим если не объявлен А(нет Dim A())
ReDim S(K) as Integer - откуда редим если не объявлен S(нет Dim S()),
For i=1 To K
A(i)=InputBox ("число" & str(i) & "=") - редим А как двухмерный, присвоение как одномерному
Next i
For j=1 To N
A(j)=InputBox ("число" & str(j) & "=") - редим А как двухмерный, присвоение как одномерному
дальше уже не смотрю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2010, 22:32
Помогаю со студенческими работами здесь

Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Series>Даны целые числа К,N,а также К наборов целых чисел по N элементов в каждом наборе!
Даны целые числа К,N,а также К наборов целых чисел по N элементов в каждом наборе.Для каждого...

Даны целые числа K,N,а так же K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K,N,а так же K наборов целых чисел по N элементов в каждом наборе. Для каждого...

Даны целые числа K , N ,а так же K наборов целых чисел по N элементов в каждом наборе
Даны целые числа K,N,а так же K наборов целых чисел по N элементов в каждом наборе. Вывести общую...

Даны К наборов ненулевых целых чисел. Вывести количество элементов в каждом наборе и их общее количество
Дано целое число К, а также К наборов ненулевьк целых чисел. Признаком завершения каждого набора...

Для каждого набора целых чисел вывести количество его элементов
/*Series35. Дано целое число K, а также K наборов ненулевых целых чисел. Признаком завершения...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru