Основы программирования на VBA. Регеда В.В - 44 стр.

UptoLike

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

или точками с запятой числовых или символьных выражений, значения ко-
торых выводятся.
Оператор PRINT # выводит запись в последовательный файл по-
добно тому, как это делает оператор PRINT при выводе на экран. Конст-
рукция USING позволяет управлять форматом выводимых значений.
2.11. Примеры программ обработки массивов
2.11.1. Набрать программу для формирования и вывода на экран
матрицы размерности 9 на 9, значения элементов которой взяты из файла
DANNIE.DAT, находящегося на диске D в каталоге TBAS, начиная с 10 за-
писи.
OPTION BASE 1 : DIM a(9,9)
OPEN “D:\TBAS\DANNIE.DAT” FOR INPUT AS #1
FOR j=0 TO 9
INPUT #1, i
NEXT j
FOR i=0 TO 9
FOR j=0 TO 9
INPUT #1, A(i, j )
PRINT USING “####.#”;A(i, j);
NEXT j
PRINT
NEXT i
2.11.2. Добавить в первую программу строки, реализующие ал-
горитм преобразования матрицы A(i, j) в матрицу B(i, j), путем за-
мены строк и столбцов местами. Вывести в файл с именем REZULT.DAT в
текущем каталоге значения элементов преобразованной матрицы.
DIM B(9,9) : OPEN “REZULT.DAT” FOR OUTPUT AS #2
FOR i=1 TO 9
FOR j=1 TO 9
B(i, j)=A(j, i)
PRINT #2, USING “####.#”; B(i, j);
NEXT j
PRINT #2
NEXT i
CLOSE #1, #2
или точками с запятой числовых или символьных выражений, значения ко-
торых выводятся.
      Оператор PRINT # выводит запись в последовательный файл по-
добно тому, как это делает оператор PRINT при выводе на экран. Конст-
рукция USING позволяет управлять форматом выводимых значений.
     2.11. Примеры программ обработки массивов
      2.11.1.    Набрать программу для формирования и вывода на экран
матрицы размерности 9 на 9, значения элементов которой взяты из файла
DANNIE.DAT, находящегося на диске D в каталоге TBAS, начиная с 10 за-
писи.
      OPTION BASE 1 : DIM a(9,9)
      OPEN “D:\TBAS\DANNIE.DAT” FOR INPUT AS #1
            FOR j=0 TO 9
                 INPUT #1, i
            NEXT j
      FOR i=0 TO 9
            FOR j=0 TO 9
                 INPUT #1, A(i, j )
                 PRINT USING “####.#”;A(i, j);
            NEXT j
                 PRINT
      NEXT i
      2.11.2.    Добавить в первую программу строки, реализующие ал-
горитм преобразования матрицы A(i, j) в матрицу B(i, j), путем за-
мены строк и столбцов местами. Вывести в файл с именем REZULT.DAT в
текущем каталоге значения элементов преобразованной матрицы.
      DIM B(9,9) : OPEN “REZULT.DAT” FOR OUTPUT AS #2
      FOR i=1 TO 9
            FOR j=1 TO 9
                 B(i, j)=A(j, i)
                 PRINT #2, USING “####.#”; B(i, j);
            NEXT j
                 PRINT #2
      NEXT i
            CLOSE #1, #2