Первый оператор конструкции IF THEN не может быть последним оператором в цикле DO.

Примечания:

Внутри любого блока конструкции могут содержаться свои законченные конструкции типа IF THEN ELSE.

Циклы типа DO не могут начинаться в одном блоке конструкции, а заканчиваться в другом.

 

Задача:

В одномерном массиве из N элементов выделить и записать в отдельные массивы:

1). Элементы, значения которых меньше нуля.

2). Элементы, значения которых лежат в пределах от 0 до 100.

3). Все элементы, значения которых больше 100.

Вывести, сколько процентов от общего количества составляет количество первого, второго, третьего массивов. При составлении программы использовать структуру IF THEN ELSE.

 

DIMENSION A(1000),A1(1000),A2(1000),A3(1000)

15 J=1Переменные J,K,L служат счетчиками для количества элементов массива. Почему L=0 – разберитесь в программе ниже.

K=1

L=0

WRITE(6,*)’Введите количество элементов массива и их значения’

READ(5,*) N,(A(I),I=1,N)

DO 10 I=1,N

C Блок записи в массив А1 отрицательных элементов массива А:

IF(A(I).LT.0.) THEN

A1(J)=A(I)запоминается в массиве А1 отрицательное число

J=J+1счетчик первого массива увеличиваем на 1

С В массив А2 записываем значения элементов массива А от 1 до 100.

ELSE IF (A(I).GE.0..AND.A(I).LE.100.) THEN

A2(K)=A(I)

K=K+1счетчик второго массива увеличиваем на 1

С Блок записи в массив А3 элементов массива А, больших 100.

ELSE

L=L+1поняли?

END IF

A3(L)=A(I)

END IF

CONTINUE








Дата добавления: 2015-06-10; просмотров: 635;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.