ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сумма строки и столбца (отдельно)....код прилогается
10 сообщений из 10, страница 1 из 1
Сумма строки и столбца (отдельно)....код прилогается
    #37647301
LEGO-lego
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LEGO-lego
Гость
Задание: Дан двумерный массив, найти отдельно сумму элементов каждой строки и каждого столбца....а затем суммировать каждый столбец.

Прилагается код написанный мною на паскале, вот только я немогу перенести его на Visual Basic..

 
= сумма столбцовprogram summa;
uses crt;
const
m = 2;
n = 10;
var
a: array[1..m,1..n] of byte;
s: array[1..n] of byte;
i,j, sum: byte;
begin
randomize;
for i := 1 to m do begin
for j := 1 to n do begin
a[i,j] := random(10);
write (a[i,j]:3)
end;
writeln
end;

writeln ('------------');

for j := 1 to n do begin
for i := 1 to m do begin
s[j] := s[j] + a[i,j];
sum := sum + a[i,j]
end;
write (s[j]:3)
end;

write (' | sum = ', sum);

readln
end.

 
= сумма строкprogram summa;
uses crt;
var a:array[1..100,1..100] of integer;
n,m,i,j,s:integer;
begin
clrscr;
write('Vvedite N: ');
readln(n);
write('Vvedite M: ');
readln(m);
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)-25;
s:=s+a[i,j]
end;
a[i,m+1]:=s;
end;
writeln('Ishodnii massiv');
writeln('Summa':(m*4+12));
for i:=1 to n do
begin
for j:=1 to m+1 do
if j=m+1 then write(a[i,j]:8)
else write(a[i,j]:4);
writeln;
end;
end.
...
Рейтинг: 0 / 0
04.02.2012, 22:57
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647308
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
LEGO-legoвот только я немогу перенести его на Visual Basic.. начинай, поправим...
...
Рейтинг: 0 / 0
04.02.2012, 23:01
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647317
LEGO-lego
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LEGO-lego
Гость
BelowZero начинай, поправим...

А как тут вообще начинать прогу?
...
Рейтинг: 0 / 0
04.02.2012, 23:24
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647319
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
LEGO-legoBelowZero начинай, поправим...

А как тут вообще начинать прогу?
Код: vbnet
1.
2.
3.
Private Sub Form_Load()
'супермегакод
end sub
...
Рейтинг: 0 / 0
04.02.2012, 23:28
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647321
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ой, та чё там говорить...
LEGO-legoПрилагается код написанный мною на паскале...Автор либо не читал код, а скопипастил; либо очень крутой программер (судя по расчету невозможности переполненеия в первом задании, что при генерации данных и расчетах, что при выводе матрицы). Но
Первое решение. Мало того, что нет инициализации s() и sum , так ещё и сумма зачем-то считается внутри второго цикла.
Второе решение. Integer N и M при размерности массива до 100 - это возможность overflow. При этом еще и без проверки ввода после Readln .
И вообще, приведено решение двух разных задач, а не одной...
...
Рейтинг: 0 / 0
04.02.2012, 23:33
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647325
LEGO-lego
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LEGO-lego
Гость
AndreTMОй, та чё там говорить...
LEGO-legoПрилагается код написанный мною на паскале...Автор либо не читал код, а скопипастил; либо очень крутой программер (судя по расчету невозможности переполненеия в первом задании, что при генерации данных и расчетах, что при выводе матрицы). Но
Первое решение. Мало того, что нет инициализации s() и sum , так ещё и сумма зачем-то считается внутри второго цикла.
Второе решение. Integer N и M при размерности массива до 100 - это возможность overflow. При этом еще и без проверки ввода после Readln .
И вообще, приведено решение двух разных задач, а не одной...

ахахах шутники тоже мне... чё было на компе то и выложил сюда, потому как заново переписывать код на паскале смысла не имеет...да и проги рабочие и всё нормально в них...
вместо того чтобы тупо ржать помогли бы хотя бы начать.
...
Рейтинг: 0 / 0
04.02.2012, 23:47
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647326
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
AndreTM,

и правда) значит, вариант А "начинай, поправим..." отменяется. план Б: "Код в студию" )

LEGO-lego,

рябит в глазах от иноязычных кодов) опиши, что тебе нужно(подробно), и завтра, если тебе не успеют выложить код, набросаю что-нить
...
Рейтинг: 0 / 0
04.02.2012, 23:48
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647327
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
LEGO-legoпомогли бы хотя бы начать. Сумма строки и столбца (отдельно)....код прилогается
...
Рейтинг: 0 / 0
04.02.2012, 23:49
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647336
LEGO-lego
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LEGO-lego
Гость
BelowZeroопиши, что тебе нужно(подробно), и завтра, если тебе не успеют выложить код, набросаю что-нить

1. ввод матрицы

Dim s As Integer
Dim a(100, 100) As Integer
Dim m, n As Integer

Private Sub Command1_Click()
Label1.Caption = ""

1: n = Val(InputBox("ВВЕДИТЕ ДЛИНУ МАССИВА (меньше 10)", "РАЗМЕРНОСТЬ"))
2: m = Val(InputBox("ВВЕДИТЕ КОЛИЧЕСТВО (меньше 10)", "РАЗМЕРНОСТЬ"))
If n > 10 Then GoTo 1
If m > 10 Then GoTo 2

For i = 1 To m
For j = 1 To n
a(i, j) = Val(InputBox("Введите число", "Ввод данных в массив"))
Next j, i

For i = 1 To m
Label1.Caption = Label1.Caption & Chr(13)
For j = 1 To n
Label1.Caption = Label1.Caption & " " & a(i, j)
Next j, i
End Sub

вот...работает ввод даннных в матрицу...


тепрь нужны:
2. Сумма каждой строки
3. Сумма каждого столбца
...
Рейтинг: 0 / 0
05.02.2012, 00:01
| Ответить | Цитировать | Написать  
Сумма строки и столбца (отдельно)....код прилогается
    #37647350
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
1) Забудьте про Goto. Вас и на TP учат использовать переходы?
2) То есть вы взяли программу на TP/BP под DOS, а затем пытаетесь программировать на изначально объектном языке? Не зная модели?
3) Хоть вычислительные операции и будут "один-в-один", но распределение структур данных, а, тем более, вывод информации - это очень большие разницы для каждого ЯП.
4) Расскжите уж нам, наконец, какую версию Бэйсика вы пользуете для программирования...

Впрочем... учитывая OPTION BASE 0 для VB(A)LEGO-legoтепрь нужны:
2. Сумма каждой строки
3. Сумма каждого столбца
 
Код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
a(0,0)=0
' в нулевой столбец  - суммы строк
for i=1 to m
 a(i,0)=0
 for j=1 to n
  a(i,0)=a(i,0)+a(i,j)
 next
next
' в нулевую строку - суммы столбцов
for j=1 to n
 a(0,j)=0
 for i=1 to m
  a(0,j)=a(0,j)+s(i,j)
 next
 a(0,0)=a(0,0)+a(0,j) ' ну и сумму всей матрицы...
next

...
Рейтинг: 0 / 0
05.02.2012, 00:28
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сумма строки и столбца (отдельно)....код прилогается
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=86&tid=2158091]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 15ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]