Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/f77to90/code/intv.f90 Дата изменения: Fri Aug 30 11:58:44 1996 Дата индексирования: Tue Oct 2 02:38:58 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

USE INTERVAL_ARITHMETICS
IMPLICIT NONE
TYPE (INTERVAL) :: A, B, C, D, E, F
A%LOWER = 6.9
A%UPPER = 7.1
B%LOWER = 10.9
B%UPPER = 11.1
WRITE (*,*) A, B
C = A + B
D = A - B
E = A * B
F = A / B
WRITE (*,*) C, D
WRITE (*,*) E, F
END