CONTOH SOAL FOTRAN 77

DIKETAHUI :

P1 = 80273 TON

P2 = 80273 TON

L1 = L2 = L3 = 83 METER

Pertayaan :

1.Cari nilai Va dan Vb = .......

2.Cari gaya bidang Momen dan Lintang = ......

b. flow chart

c.Input Fotran

  program kuliah8

C--------------------------------------------------------

C       TANGGAL = 01/06/2014                       -

C       PROGRAM MENCARI MOMEN             -

C       OLEH :                                                      -

C       NAMA = AHMAD BUDI SISWANTO     -

C       NIM  = 41109120010                           -

C-------------------------------------------------------

C    MASUKAN DATA

       real x(249,1),p1,p2,l1,l2,l3

       integer i

        p1 = 80273

        p2 = 80273

        l1 = 83

        l2 = 83

        l3 = 83

C    MENCARI NILAI VA DAN VB

       va = (p1*(l2+l3)+p2*(l3))/(l1+l2+l3)

       vb = (p1+p2)-va

C   MENCARI NILAI GAYA MOMEN DAN LINTANG

       do i = 0,249

        x = i

       if(x(i,1).LE.83)then

            mx1 = va*(x(i,1))

            lx1 = va

            write(*,*)"nilai mx1=",mx1,"tm"

            write(*,*)"nilai lx1=",lx1,"ton"

            elseif(83.LE.x(i,1).AND.x(i,1).LT.166)then

            mx2 = va*x(i,1)-(p1*(x(i,1)-l1))

            lx2 = va-p1

            write(*,*)"nilai mx2=",mx2,"tm"

            write(*,*)"nilai lx2=",lx2,"ton"

            elseif(166.le.x(i,1).and.x(i,1).lt.249)then

            mx3 = (va*x(i,1))-(p1*(x(i,1)-l1))-(p2*(x(i,1)-(l1+l2)))

            lx3 = va-p1-p2

            write(*,*)"nilai mx3=",mx3,"tm"

            write(*,*)"nilai lx3=",lx3,"ton"

            elseif(x(i,1).eq.249)then

            mx4 = (va*x(i,1))-(p1*(x(i,1)-l1))-(p2*(x(i,1)-(l1+l2)))

            lx4 = va-p1-p2+vb

            write(*,*)"nilai mx4=",mx4,"tm"

            write(*,*)"nilai lx4=",lx4,"ton"

            else

               write(*,*)"hitung ulang"

             endif

             enddo

C          SELESAI

             end

Download file