TUGAS FOTRAN

Ø   ALGORITMA

-          Baca data input Xa,Ya,Xb,Yb,Xc,Yc,Xd,Yd,Xs,Ys

-          Print Out :

if((Xa.LT.Xs.AND.Xs.LT.Xb).AND.(Ya.LT.Ys.AND.Ys.LT.Yc))then

endif

if((Xc.LT.Xs.AND.Xs.LT.Xd).AND.(Yb.LT.Ys.AND.Ys.LT.Yd))then

Jika  YES write(*,*)"di dalam kotak "

Jika NO write(*,*)"di luar kotak"

endif

selesai

Ø   FLOW CHART

Ø   INPUT FOTRAN

       program tugas3

c       baca data

        real Xa,Ya,Xb,Yb,Xc,Yc,Xd,Yd,Xs,Ys

        Xa = 2

        Ya = 2

        Xb = 13

        Yb = 2

        Xc = 2

        Yc = 6

        Xd = 13

        Yd = 6

c       masukan nilai point S:

        Xs = 3

        Ys = 3

c       masukan rumus if

        if((Xa.LT.Xs.AND.Xs.LT.Xb).AND.(Ya.LT.Ys.AND.Ys.LT.Yc))then

        write(*,*)"POINT BERADA DIDALAM KOTAK ABCD"

        else

        write(*,*)"POINT BERADA DI LUAR KOTAK ABCD"

        endif

c       selesai

        end

Ø   HASIL RUNNING FOTRAN