ВУЗ:
Составители:
Рубрика:
или точками с запятой числовых или символьных выражений, значения ко-
торых выводятся.
Оператор 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
Страницы
- « первая
- ‹ предыдущая
- …
- 42
- 43
- 44
- 45
- 46
- …
- следующая ›
- последняя »
