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 di atas adalah postingan sharing semata. Seluruh media yang tersedia di Cah Bantul ini hanyalah untuk berbagi wawasan dan info update terkini tentang Cah Bantul ini. 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:

0 Response to "kode fortran persamaan kuadrat"

Posting Komentar