13
*’(3Х,F9.6,1X,A6,5(4X,F5.1))’,’(3X,F9.6,1X,A6,3X,A6,4(4X,F5.1))’,
*’(3X,F9.6,1X,A6,2(3X,A6),3(4X,F5.1))’,’(3X,F9.6,1X,A6,3(3X,A6),
*2(4X,F5.1))’,
*’(3X,F9.6,1X,A6,4(3X,A6),4X,F5.1)’,’(3X,F9.6,2X,F5.1,4(4X,F5.1),
*3X,A6)’,
*’(3X,F9.6,2X,F5.1,3(4X,F5.1),2(3X,A6))’,’(3X,F9.6,2X,F5.1,
*2(4X,F5.1),3(3X,A6))’,
*’(3X,F9.6,2X,F5.1,4X,F5.1,4(3X,A6))’,’(3X,F9.6,2X,F5.1,5(3X,A6))’/
22 WRITE(*,44)
44 FORMAT(//’ Устройство вывода результатов расчета ?,’)
WRITE(*,’(A\)’)
*’ 0 - дисплей, 1 - принтер, 2 - файл на диске ’
READ(*,*)NYST
IF(NYST.EQ.0) OPEN(1,FILE=’CON’)
IF(NYST.EQ.l) OPEN(1,FILE=’PRN’)
IF(NYST.EQ.2) WRITE(*,’(A\)’) ’ Введите имя файла ’
IF(NYST.EQ.2) READ(*,’(A)’)FNAME
IF(NYST.EQ.2) OPEN(1,FILE=FNAME)
IF(NYST.EQ.0) WRITE(*,100)
100 FORMAT(25(/))
IF(NYST.EQ.l) PAUSE
*’ Включите принтер, вставьте бумагу и нажмите <ВВОД> ’
WRITE(1,88)PROP(NPROP),RAZM(NPROP)
88 FORMAT(A58/A39/)
NW=3
IF(NPR.EQ.0) WRITE(1,3)
3 FORMAT(’ Содержание в мол.%’)
IF(NPR.EQ.l) WR1TE(1,33)
33 FORMAT(’ Содержание в об.%’)
NW=NW+1
I=1
9 J=I+1
13 CONTINUE
IF(YC(J).NE.0D0) THEN
WRITE(1,5)AR(I),YC(I)*100.,AR(J),YC(J)*100.
5 FORMAT(2(A26,F7.4))
NW=NW+1
DO 11 I=J+1,25
IF(YC(I).NE.0D0.AND.I.NE.25) GO TO 9
IF(YC(I).NE.0D0.AND.I.EQ.25)THEN
WRITE(1,5)AR(I),YC(I)*100.
NW=NW+1
GO TO 99
ENDIF
11 CONTINUE
ELSE
J=J+1
IF(J.LE.25) THEN
GO TO 13
ELSE
WRITE(1,5)AR(I),YC(I)*100.
NW=NW+1