Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:информатика1ё / wesna / wesna / labor2 / 1вар
.doc1 вариант
Дан массив С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