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

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

Дан массив

Найти:

Вариант 6

Произведение всех элементов

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

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

P =1

FOR I = 1 TO 5

FOR J = 1 TO 5

READ C (I, J)

P=P* C (I, J)

NEXT J

PRINT

NEXT I

PRINT “ P = “; P

END

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

НАЧАЛО

P = 1

I = 1

J = 1

Ввод

P=P* C (I, J)

J = J + 1

Да

нет

I = I + 1

Да

нет

ПЕЧАТЬ P

КОНЕЦ

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