Contoh Perhitungan Jarak & Sudut Koordinat Peta (Fortran)

        program menghitungJarakKoordinat
        implicit none
        real value, A,B,C,D            !Nama Titik
        real xa,ya,xb,yb,xc,yc,xd,yd   !Titik Koordinat
        real AC,CD,DB                  !Titik Koordinat
        real ACh, CDh, DBh             !Jarak
        real skala, totalJarak         !skala dan total jarak

        print *, 'PROGRAM MENGHITUNG JARAK BERDASARKAN KOORDINAT PETA'
        print *, 'Ditulis oleh Bintang Bagus Pratama (41117110024)'
        print *, ''

100     print *, '==== Perhitungan Jarak Sebenarnya ===='
        print *, 'Masukan x,y untuk titik A'     !Input Titik Koordinat
        read *, xa,ya
        print *, 'Masukan x,y untuk titik B'
        read *, xb,yb
        print *, 'Masukan x,y untuk titik C'
        read *, xc,yc
        print *, 'Masukan x,y untuk titik D'
        read *, xd,yd
        !Print Titik Koordinat yang di input
        write (*,'(1x,"Titik A ="f5.2,1x,","f5.2)')xa,ya
        write (*,'(1x,"Titik B ="f5.2,1x,","f5.2)')xb,yb
        write (*,'(1x,"Titik C ="f5.2,1x,","f5.2)')xc,yc
        write (*,'(1x,"Titik D ="f5.2,1x,","f5.2)')xd,yd
        print *, ''

        !Rumus Perhitungan Jarak Pada Peta
        print *, 'Jarak pada peta (cm)'
        AC=sqrt(((xc-xa)**2)+((yc-ya)**2))
        CD=sqrt(((xd-xc)**2)+((yd-yc)**2))
        DB=sqrt(((xb-xd)**2)+((yb-yd)**2))
        write (*,'(1x,"AC ="f12.2)') AC
        write (*,'(1x,"CD ="f12.2)') CD
        write (*,'(1x,"DB ="f12.2)') DB
        print *, ''

        !Konversi ke satuan lain berdasarkan skala
        print *, 'Masukan skala'
        read *, skala
        print *, ''
        print *, 'Dikonversikan ke satuan meter (m) berdasarkan skala'
        ACh=AC*skala/100
        CDh=CD*skala/100
        DBh=DB*skala/100
        write (*,'(1x,"Skala ="f15.2)') skala
        write (*,'(1x,"AC ="f18.2)') ACh
        write (*,'(1x,"CD ="f18.2)') CDh
        write (*,'(1x,"DB ="f18.2)') DBh

        !Disini tanya apakah ingin dikonversikan ke satuan lain

        !Total Jarak
        totalJarak = ACh+CDh+DBh
        write (*,'(1x,"Total Jarak ="f9.2)') totalJarak
        print *, ''

        !Perhitungan Sudut
        print *, '==== Perhitungan Sudut ===='
        print *, "Maaf fiturnya belum ada :'v"
        print *, "Panik aku ini suruh buat judul baru :'v"




        print *, ''
        goto 100
        end