Первый оператор конструкции 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; просмотров: 640;