Разработать программу определяющую сумму и произведение элементов, расположенных на побочных диагоналях двух квадратных матриц различной размерности — Basic(Бейсик)

disel
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
sub main
  dim X(0 to 5, 0 to 5)
  'заполняем
  summX = Summ(X)
  multiplX = Multip(X)
  
  dim Y(1 to 3, 1 to 3)
  'заполняем
  multiplY = Multip(Y)
  summY = Summ(Y)
end sub
  
function Summ(byval arr)
  b1=LBound(arr)
  b2=UBound(arr)
  Summ=0
  For i=b1 to b2
    Summ = Summ + arr(i, b2-i+b1)
  next i
end function
  
function Multip(byval arr)
  b1=LBound(arr)
  b2=UBound(arr)
  Multip=1
  For i=b1 to b2
    Multip = Multip * arr(i, b2-i+b1)
  next i
end function

Похожие записи/страницы:

Leave a Comment