Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
12.05.2015
Размер:
19.46 Кб
Скачать

1 вариант

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

Найти:

CLS: DIM C(5,5), Z(5,5)

OPEN “MASSIV.DAT” FOR INPUT AS≠1

FOR I=1 TO 5: FOR J=1 TO 5

INPUT ≠1, C(I,J)

NEXT J: NEXT I: CLOSE ≠1

OPEN “MASSIV.RES” FOR OUTPUT AS≠1

PRINT ≠1,: PRINT ≠1, “ИСХОДНЫЙ МАССИВ:”

FOR I=1 TO 5: FOR J=1 TO 5

PRINT ≠1, USING “≠ ≠ ≠ , ≠”; C(I,J);

NEXT J: PRINT ≠1, NEXT I

PRINT ≠1, “nov. massiv”

FOR I=1 TO 5: FOR J=1 TO 5

IF C(I,J)>0 THEN Z(I,J)= C(I,J) ELSE Z(I,J)=0

PRINT # 1, PRINT # 1, Z(I,J);

NEXT J: PRINT ≠1,

NEXT I: CLOSE ≠1: END

Соседние файлы в папке labor2