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

Лабораторная работа № 4.2

Дан массив

Найти:

Вариант 13

Все , больше по модулю 2

Составляем программу

DIM С(5,5)

DATA -0.1, -0.05,0.7, 0.8, -1.5

DATA 0.2, 0.4, -1, 0.1, -1.5

DATA 2, 4, 5, 6,-10

DATA 7, 3.4, -10.7, 3, -2

DATA 2.4, -5.6, 7, 8, -2.7

FOR I = 1 TO 5

FOR J = 1 TO 5

READ C (I, J)

IF ABS(C ( I, J)) > 2 THEN PRINT C (I, J);

NEXT J

PRINT

NEXT I

END

Составляем блок-схему:

НАЧАЛО

I = 1

J = 1

Ввод

нет

Да

Печать

J = J + 1

Да

нет

I = I + 1

Да

нет

КОНЕЦ

Соседние файлы в папке лаб4-2