Програмирование на языке Basic. Федоряка Н.И. - 33 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

33
PRINT tabl(I,J);
NEXT J
PRINT
NEXT I
REM требуемые вычисления
k=0
s=0
p=1
FOR I=1 TO 3
FOR J=1 TO 4
IF tabl(I, J)<0 THEN k=k+1
IF tabl(I, J) MOD 2 = 0 THEN s=s+tabl(I, J)
IF I=2 THEN p=p*tabl(I, J)
NEXT J
NEXT I
PRINT
PRINT "результ:"
PRINT "отрицательных элементов: ", k
PRINT "сумма четных элементов: ", s
PRINT "произведение элементов второй строки: ",p
END
Контрольная работа
1.Написать программу вычисления суммы
2
8
1
9
1
*
BA
K
NK
NK
С
∑∑
==
= , Данные
для расчетов при работе программы вводятся в таком порядке:
А
А
А
ААА
ААА
ВВВ
898281
292221
191211
921
...
....
...
...
...
2.Для одномерного массива А={a
1,
…, a
n
} необходимо вычислить
∑
=
=
n
i
i
aS
1
.
3.Для двумерного массива В размером N x M необходимо вычислить
∑∑
==
=
N
i
M
j
ij
bS
11
.
4. Для матрицы В размером N x M необходимо вычислить
∑
=
=
N
i
ij
bS
1
.
5.Для одномерных массивов А и В размером N необходимо вычис-
лить c
i
=a
i
+b
i
, i=1, 2, ., N.
6.Для двумерных массивов А и В размером N x M необходимо вы-
числить c
ij
=a
ij
+b
ij
, i=1,2,…,N; j=1,2,…,M.
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
         PRINT tabl(I,J);
         NEXT J
         PRINT
         NEXT I
         REM требуемые вычисления
         k=0
         s=0
         p=1
         FOR I=1 TO 3
         FOR J=1 TO 4
         IF tabl(I, J)<0 THEN k=k+1
         IF tabl(I, J) MOD 2 = 0 THEN s=s+tabl(I, J)
         IF I=2 THEN p=p*tabl(I, J)
         NEXT J
         NEXT I
         PRINT
         PRINT "результ:"
         PRINT "отрицательных элементов: ", k
         PRINT "сумма четных элементов: ", s
         PRINT "произведение элементов второй строки: ",p
         END

                                                           Контрольная работа
                                                                                      8    9
                               1.Написать программу вычисления суммы                 ∑∑ A * B                 , Данные
                                                                                                          2
                                                                                С=
                                                                                                 NK   K
                                                                                     N =1 K =1

         для расчетов при работе программы вводятся в таком порядке:
          В В ... В
               1               2                      9

          А А ... А
               11              12                     19

          А А ... А
               21              22                     29
           .               .             .        .
          А А  81              82
                                        ...       А   89

                               2.Для одномерного массива А={a1, …, an} необходимо вычислить
                     n
          S=        ∑a
                    i =1
                                i   .

                               3.Для двумерного массива В размером N x M необходимо вычислить
                    N          M
          S=        ∑∑ b
                    i =1 j =1
                                        ij    .
                                                                                                                N
                               4. Для матрицы В размером N x M необходимо вычислить                       S=   ∑b
                                                                                                               i =1
                                                                                                                      ij   .

               5.Для одномерных массивов А и В размером N необходимо вычис-
         лить ci=ai+bi, i=1, 2, ., N.
               6.Для двумерных массивов А и В размером N x M необходимо вы-
         числить cij=aij+bij, i=1,2,…,N; j=1,2,…,M.
                                                                                                                               33


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы