kode fortran persamaan kuadrat

Ini adalah code untuk persamaan kuadrat

Program Kuadrat

   WRITE (*,*)'masukkan a,b,c'

      READ (*,*)  a, b, c

      WRITE (*,*) 'a = ', a

      WRITE (*,*) 'b = ', b

 WRITE (*,*) 'c = ', c

      WRITE (*,*)

      IF (a == 0.0) THEN

      IF (b == 0.0) THEN

         IF (c == 0.0) THEN

            WRITE(*,*)  'trivial'

         ELSE

            WRITE(*,*)  'tidak mungkin'

         END IF

      ELSE

         WRITE(*,*)  'x = ', -c/b

        END IF

        ELSE

      d = b*b - 4.0*a*c

      IF (d > 0.0) THEN

         d     = SQRT(d)

         rumus1 = (-b + d)/(2.0*a)

         rumus2 = (-b - d)/(2.0*a)

         WRITE(*,*)  'x1= ', rumus1, ' x2 ', rumus2

      ELSE IF (d == 0.0) THEN

         WRITE(*,*)  'x= ', -b/(2.0*a)

      ELSE

         WRITE(*,*)  'imajiner karena d lebih kecil dari 0'

         WRITE(*,*)  'Discriminant = ', d

      END IF

      END IF

      END PROGRAM

Inilah hasil untuk a= 0 b=0 c=0

Inilah hasil untuk a=0 b=0 dan c= sembarang

Inilah hasil untuk a=0 b=sembarang c= sembarang

Ini adalah print out untuk diskriminant lebih kecil dari 0

Ini adalah print out untuk diskriminant lebih besar dari 0

Disclaimer !

Teks kode fortran persamaan kuadrat di atas adalah postingan sharing semata. Seluruh media yang tersedia di Cah Bantul ini hanyalah untuk berbagi wawasan dan info update terkini. Apabila ada kesamaan nama, alamat atau juga hal lain dalam postingan harap dimaklumi menimbang informasi digital adalah bentuk sosial media yang menjadi konsumsi publik, bukan sebagai hak milik.

Berlangganan Update via Email: