PROGRAM SINEWAVE

      PARAMETER (PI=3.14159)
      INTEGER I, J, K
      REAL X, Y, S


      DO 10 I=1,50
         X = I * PI / 25.0
         Y = SIN(X)
         S = 20.0 * Y
         K = INT(S+0.5)
         DO 20 J=1,50
            IF (J.EQ.26+K) THEN
               WRITE(*,'(A\)') '*'
            ELSE
               WRITE(*,'(A\)') ' '
            END IF
 20      CONTINUE
         WRITE(*,*)
 10   CONTINUE

      DO 30 I=1,50
         X = I * PI / 25.0
         Y = SIN(X)
         S = 20.0 * Y
         K = INT(S+0.5)
         DO 40 J=1,50
            IF (J.EQ.26+K) THEN
               WRITE(*,'(A\)') ' '
            ELSE
               WRITE(*,'(A\)') '*'
            END IF
 40      CONTINUE
         WRITE(*,*)
 30   CONTINUE

      DO 50 I=1,50
         X = I * PI / 25.0
         Y = SIN(X)
         S = 20.0 * Y
         K = INT(S+0.5)
         DO 60 J=1,50
            IF (J.EQ.26+K) THEN
               WRITE(*,'(A\)') '+'
            ELSE
               WRITE(*,'(A\)') ' '
            END IF
 60      CONTINUE
         WRITE(*,*)
 50   CONTINUE

      STOP
      END




SINEWAVE.EXE�yIntel Fortran Compiler�zŽÀ�sŒ‹‰Ê

                            *
                              *
                                *
                                   *
                                     *
                                       *
                                        *
                                          *
                                           *
                                            *
                                             *
                                             *
                                             *
                                             *
                                            *
                                           *
                                          *
                                        *
                                       *
                                     *
                                   *
                                *
                              *
                            *
                         *
                       *
                     *
                   *
                *
              *
            *
           *
         *
        *
       *
      *
      *
      *
      *
       *
        *
         *
           *
            *
              *
                *
                   *
                     *
                       *
                         *
**************************** *********************
****************************** *******************
******************************** *****************
*********************************** **************
************************************* ************
*************************************** **********
**************************************** *********
****************************************** *******
******************************************* ******
******************************************** *****
********************************************* ****
********************************************* ****
********************************************* ****
********************************************* ****
******************************************** *****
******************************************* ******
****************************************** *******
**************************************** *********
*************************************** **********
************************************* ************
*********************************** **************
******************************** *****************
****************************** *******************
**************************** *********************
************************* ************************
*********************** **************************
********************* ****************************
******************* ******************************
**************** *********************************
************** ***********************************
************ *************************************
*********** **************************************
********* ****************************************
******** *****************************************
******* ******************************************
****** *******************************************
****** *******************************************
****** *******************************************
****** *******************************************
******* ******************************************
******** *****************************************
********* ****************************************
*********** **************************************
************ *************************************
************** ***********************************
**************** *********************************
******************* ******************************
********************* ****************************
*********************** **************************
************************* ************************
                            +
                              +
                                +
                                   +
                                     +
                                       +
                                        +
                                          +
                                           +
                                            +
                                             +
                                             +
                                             +
                                             +
                                            +
                                           +
                                          +
                                        +
                                       +
                                     +
                                   +
                                +
                              +
                            +
                         +
                       +
                     +
                   +
                +
              +
            +
           +
         +
        +
       +
      +
      +
      +
      +
       +
        +
         +
           +
            +
              +
                +
                   +
                     +
                       +
                         +