Лабораторный практикум по информатике. Гурьяшова Р.Н - 55 стр.

                4. Листинг Fortran-программы
  Условия X(I) > 0 и Y(I) > 0 объединены логической связкой .AND. .
! Вычисление координат искомой точки
PROGRAM POINT
! Объявление типа и задание данных
INTEGER :: I,K,N = 5            ! I,K,N - целого типа
REAL :: XMIN = 1.0E38
REAL :: X(1 : 5) = (/4,1,-2,5,-2/)
REAL :: Y(1 : 5) = (/5,2,1,-2,-3/)
! Вывод координат точек
WRITE(*,1) '          КООРДИНАТЫ ТОЧЕК:'
WRITE(*,"(5F5.0/)")X,Y
WRITE(*,*)' ТОЧКИ, ЛЕЖАЩИЕ В 1 КВАДРАНТЕ: '
DO I = 1,N         ! Начало цикла
! Вычисление и вывод точек 1 квадранта
  IF(X(I) > 0 .AND. Y(I) > 0)THEN ! Если Xi>0 и Yi>0
    WRITE(*,2)I,X(I),I,Y(I)
    2 FORMAT(1X,'X(',I2,') = ',F3.0,                   &
                 1X,'Y(',I2,') = ',F3.0)
! Вычисление наименьшей абсциссы
    IF(X(I) < XMIN) THEN ! Если Xi < Xmin
       XMIN = X(I); K = I
    END IF
  END IF
END DO ! Конец цикла
! Вывод координат искомой точки Xk,Yk
WRITE(*,*)' ИСКОМАЯ ТОЧКА:'
WRITE(*,12)K,X(K),K,Y(K),XMIN
12 FORMAT(1X,'X(',I2,') = ',F3.0, 1X,                  &
 'Y(',I2,') = ',F3.0,' XMIN = ',F3.0)
END
                 5. Макет печати результатов
       КООРДИНАТЫ ТОЧЕК:
  4.     1.   -2.    5.   -2.              Результаты ручного и
  5.     2.    1.   -2.   -3.
                                           машинного      расчётов
 ТОЧКИ, ЛЕЖАЩИЕ В 1 КВАДРАНТЕ:
    X (1) = 4. Y (1) = 5.                  совпадают. На графике
    X (2) = 1. Y (2) = 2.                  искомая точка обозна-
         ИСКОМАЯ ТОЧКА:                    чена (стр.53).
X (2) = 1. Y (2) = 2. XMIN = 1

                                55