Найти вектор С, координаты которого равны максимуму элементов соответствующих строк матрицы А- QBasic(Бейсик)

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
DECLARE FUNCTION Max (MTR(), Stroka, Stolbcov)
  
  '   Ввод кол-ва строк и столбцов
  CLS
   PRINT "vvedite kolvo strok massiva"
   INPUT "n=", N
   PRINT "vvedite kolvo stolbcov massiva"
   INPUT "m=", M
  
  '   Заводим массив
DIM A(M, N)   ' (Столбец, строка)
DIM C(M)
  
   '   Ввод элементов матрицы
   PRINT "Vvedite elementi matrici"
   FOR iy = 1 TO N
     FOR ix = 1 TO M
     PRINT "A("; STR$(ix); ","; STR$(iy); ")=";
     INPUT "", A(ix, iy)
     NEXT ix
   NEXT iy: CLS : PRINT "A:"
  
   '   Вывод матрицы
   FOR iy = 1 TO N
     FOR ix = 1 TO M
     PRINT A(ix, iy);
     NEXT ix: PRINT
   NEXT iy: PRINT
 PRINT "C=(";
  
 '   Нахождение вектора
   FOR i = 1 TO N
      C(i) = Max(A(), i, M)
   NEXT i
  
 '   Вывод вектора
 FOR i = 1 TO N
   PRINT C(i);
   IF N <> i THEN PRINT ",";
 NEXT i: PRINT ")"
  
FUNCTION Max (MTR(), Stroka, Stolbcov)
MaxV = MTR(1, Stroka)
   FOR k = 1 TO Stolbcov
     IF MTR(k, Stroka) > MaxV THEN MaxV = MTR(k, Stroka)
   NEXT
Max = MaxV
END FUNCTION

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment