Необходимо вычислить сумму элементов четных строк матрицы MxN

@Сивяк · Регистрация: 22.06.2009

Студворк — интернет-сервис помощи студентам

Мне необходимо вычислить сумму элементов четных строк матрицы MxN

@Сивяк · 22.06.2009, 16:34 **[ТС]**

Помогите пожалусата! необходимо вычислить сумму элементов четных строк матрицы MxN. на завтра нужно(((((

Добавлено через 14 минут 54 секунды
Вот сама программа:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_click()
Dim bytM, bytN, bytI, bytK, bytS
bytM = TextBox2
bytN = TextBox4
Dim Strf As String * 5
bytS = 0
ReDim bytA(1 To bytM, 1 To bytN)
For bytI = 1 To bytM
strs = ""
For bytK = 1 To bytN
bytA(bytI, bytK) = Int(Rnd * 99) + 1: Strf = bytA(bytI, bytK)
strs = strs & Strf
If bytI / 2 = bytI \ 2 Then bytS = bytS + bytA(bytI, bytK)
Next bytK
ListBox1.AddItem strs
Next bytI
End Sub
Sub Command2_Click()
MsgBox "Сумма элементов четных строк массива =", bytS
End Sub
Private Sub TextBox4_Change()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Помогите сделать так, чтобы она выводила на печать сумму элементов четных строк, а не все подрят.

@Dock^ · 22.06.2009, 16:48

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
    i,j,n,m:integer;
    sum:integer;
begin
  clrscr;
  writeln('Vvedite razmer matricy:');
  write('m:');
  readln(m);
  write('n:');
  readln(n);
  writeln('Vvedite elementy matricy:');
  for i:=1 to m do
  for j:=1 to n do
  begin
    write('[',i,',',j,']:');
    readln(a[i,j]);
  end;
 
  writeln('Poluchennaja matrica:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      write(' ',a[i,j]:4);
    end;
    writeln;
  end;
  sum:=0;
  for i:=1 to m do
  if (i mod 2)=0 then
  for j:=1 to n do sum:=sum+a[i,j];
  writeln;
  writeln('Summa elementov chetnyh strok matricy:',sum);
  readln;
end.

@Сивяк · 22.06.2009, 16:50 **[ТС]**

Dock^, подскажи пожалуйста как на VBA она состовляется

@Dock^ · 22.06.2009, 16:54

не знаю

,на vba не работал

@Сивяк · 22.06.2009, 17:29 **[ТС]**

ПОдскажите как она на VBA делается

Добавлено через 31 минуту 25 секунд
Dock^, А если покажу программу, не сможешь разобраться?

@BasicMan · 22.06.2009, 17:41

єто перевод на ВБА

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
dim i as integer, j as integer, n as integer, m as integer
dim sum as integer
 
NAX:
  m=val(inputbox("Vvedite razmer matricy m:"))
if m<=0 then goto NAX
NEX:
  n=val(inputbox("Vvedite razmer matricy n:"))
if n<=0 then goto NEX
 
dim mas(1 to m, 1 to n) as integer
 
for i=1 to m
  for j=1 to n
    mas(i,j)=val(inputbox("Vvedite elementy matricy: [" & i &"," & j & "]:"))
  next j
next i
 
sum=0
for i=1 to m
  if (i mod 2)=0 then
    for j=1 to n
       sum=sum+mas(i,j)
    next j
  end if
next i
msgbox "Summa elementov chetnyh strok matricy:" & sum

Не по теме:

а вообщето єто Тохина вотчина, он здесь на охоту вьіходит

@Сивяк · 22.06.2009, 17:47 **[ТС]**

БурундукЪ, А там нужно форму или что-то другое создавать?

Добавлено через 2 минуты 55 секунд
БурундукЪ, она требует ввести имя макроса

@BasicMan · 22.06.2009, 17:47

не, в ехселе в кодах пишешь

Visual Basic
1
2
3
Sub мояпрога()
.........
End Sub

а вместо точек код вставляешь

@Сивяк · 22.06.2009, 17:50 **[ТС]**

БурундукЪ, А мне его в Worde сделать надо. она такая же?

@BasicMan · 22.06.2009, 17:53

Сивяк, все равно (тока я маленькую правку в строках 5, 8 и 15 сделал)

@Сивяк · 22.06.2009, 17:56 **[ТС]**

БурундукЪ, в смысле правку???

Добавлено через 1 минуту 54 секунды
БурундукЪ, он мне ссылается на ошибку в 4 и 7 строке

@BasicMan · 22.06.2009, 17:56

я уже в коде ее учел, в том посте, где прога

@Сивяк · 22.06.2009, 18:00 **[ТС]**

БурундукЪ, он у меня ссылается на ошибку в 4 и 7 строке. пишет ошибка: Invalid Outside procedure

@BasicMan · 22.06.2009, 18:01

Держи без извращениев. работает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub myProg()
 
Dim i As Integer, j As Integer, n As Integer, m As Integer
Dim sum As Integer, mas
 
NAX:
  m = InputBox("Vvedite razmer matricy m:")
If m <= 0 Then GoTo NAX
 
NEX:
  n = InputBox("Vvedite razmer matricy n:")
If n <= 0 Then GoTo NEX
 
ReDim mas(1 To m, 1 To n) As Integer
 
For i = 1 To m
  For j = 1 To n
    mas(i, j) = InputBox("Vvedite elementy matricy: [" & i & "," & j & "]:")
  Next j
Next i
 
sum = 0
For i = 1 To m
  If (i Mod 2) = 0 Then
    For j = 1 To n
       sum = sum + mas(i, j)
    Next j
  End If
Next i
MsgBox "Summa elementov chetnyh strok matricy:" & sum
 
End Sub

@Сивяк · 22.06.2009, 18:03 **[ТС]**

БурундукЪ, Объясни пожалуйста! Я заше в бейсик в верде и потом что надо создавать???? модуль, форму или что?

@BasicMan · 22.06.2009, 18:13

вот єтот код запостить. а потом сохранить и вернуться обратно в ворд. В макросах появится макрос myProg. его вьібрать и запустить на вьіполнение

@Сивяк · 22.06.2009, 18:16 **[ТС]**

БурундукЪ, пожалуйста напиши свой адресс электронный, я тебе скину файл, в который надо внедрить эту прогу. я в этом ни че не понимаю. Пожалуйста

@BasicMan · 22.06.2009, 18:18

сюда прикрепи. как крепить см. здесь: https://www.cyberforum.ru/abou... 34825.html

@Сивяк · 22.06.2009, 18:24 **[ТС]**

и если сможешь, то блок схему нарисуешь к алгоритму...

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13

	Необходимо вычислить сумму элементов четных строк матрицы MxN 22.06.2009, 16:12. Показов 5331. Ответов 26 Метки нет (Все метки) Мне необходимо вычислить сумму элементов четных строк матрицы MxN 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 16:50 [ТС]
	Dock^, подскажи пожалуйста как на VBA она состовляется 0

@Dock^ 16 / 16 / 16 Регистрация: 05.06.2009 Сообщений: 47
	22.06.2009, 16:54
	не знаю,на vba не работал 1

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 17:29 [ТС]
	ПОдскажите как она на VBA делается Добавлено через 31 минуту 25 секунд Dock^, А если покажу программу, не сможешь разобраться? 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 17:47 [ТС]
	БурундукЪ, А там нужно форму или что-то другое создавать? Добавлено через 2 минуты 55 секунд БурундукЪ, она требует ввести имя макроса 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 17:50 [ТС]
	БурундукЪ, А мне его в Worde сделать надо. она такая же? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	22.06.2009, 17:53
	Сивяк, все равно (тока я маленькую правку в строках 5, 8 и 15 сделал) 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 17:56 [ТС]
	БурундукЪ, в смысле правку??? Добавлено через 1 минуту 54 секунды БурундукЪ, он мне ссылается на ошибку в 4 и 7 строке 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	22.06.2009, 17:56
	я уже в коде ее учел, в том посте, где прога 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 18:00 [ТС]
	БурундукЪ, он у меня ссылается на ошибку в 4 и 7 строке. пишет ошибка: Invalid Outside procedure 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 18:03 [ТС]
	БурундукЪ, Объясни пожалуйста! Я заше в бейсик в верде и потом что надо создавать???? модуль, форму или что? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	22.06.2009, 18:13
	вот єтот код запостить. а потом сохранить и вернуться обратно в ворд. В макросах появится макрос myProg. его вьібрать и запустить на вьіполнение 0

@Сивяк 0 / 0 / 0 Регистрация: 22.06.2009 Сообщений: 13
	22.06.2009, 18:16 [ТС]
	БурундукЪ, пожалуйста напиши свой адресс электронный, я тебе скину файл, в который надо внедрить эту прогу. я в этом ни че не понимаю. Пожалуйста 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	22.06.2009, 18:18
	сюда прикрепи. как крепить см. здесь: https://www.cyberforum.ru/abou... 34825.html 0