Написать программу, которая считает(суммирует) столбцы матрицы и полученное значение перевести в % от общей годовой субсидии. А общая годовая субсидия — это сумма всех значений в таблице с данными(350418 рублей). И результат выводить на экран по каждому столбцу. Далее полученные результаты по каждому столбцу, а их 12 штук) сложить и должно получиться ровно 100- 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
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0,0
'   Матрица, массив сумм и массив процентов
DIM M(12, 21) AS LONG, Prc AS DOUBLE
CONST YearSub = 350518
    WIDTH 80, 50   '  Ставим 80x50 символов (режим ещё текстовый)
PRINT "Matrica:"
'   Заполнение матрицы из DATA
  FOR iy = 1 TO 21: FOR ix = 1 TO 12
      READ M(ix, iy)
      PRINT M(ix, iy);
  NEXT: PRINT : NEXT
'   Вычмсление сумм
PRINT "Dannye po stolbcam:"
FOR ix = 1 TO 12
     S = 0
     FOR iy = 1 TO 21
        S = S + M(ix, iy)
     NEXT
     Prc = (S / YearSub) * 100
     PRINT ix; "=", Prc
     ProcSum = ProcSum + Prc
NEXT
PRINT "V sovokupnosti:"; ProcSum; "procentov"

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

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

Leave a Comment