информатика1ё / wesna / wesna / labor2 / 9варгабб

9 вариант

Дан массив С_i,j , I =1,2,…,5; J =1,2,…,5

Найти: Количество всех отрицательных С_i,j

Для ввода и вывода использовать файлы последовательного доступа.

Решение: Сформулируем файлы isx.d из элементов матрицы

Это можно сделать с помощью встроенного текстового редактора оболочки Norton Commander. Для этого нажать Schift + F4, указать имя файла isx.d и в окне редактора набрать элементы матрицы С, разделяя их проблемы. Другой способ создать файла-программный.

OPEN “isx.d” FOR OUTPUT AS≠1

DATA 1,-1,-2.3,1.8,1

DATA 0,-1,6,5,1

DATA -2,3,2,1,1.5

DATA 1.1, 1.2, 1.3, 1.4, 1.5

DATA 0,0,0,-1.3,1.4,1.5

FOR I=1 TO 25

READ X

PRINT #1,X

NEXT

CLOSE

END

Далее выполняется программа обработки массива

DIM C(5,5)

OPEN “isx.d” FOR INPUT AS#1

OPEN “rez” FOR OUTPUT AS#2

FOR I=1 TO 5

FOR j=1 TO 5

INPUT #1, c(I,j)

NEXT J

NEXT I

K=0

FOR I=1 TO 5

FOR J=1 TO 5

IF C(I,J)<0 THEN K=K+1

NEXT J: NEXT I

PRINT ≠2, K: CLOSE ≠1: END