• Soal dan Jawaban UTS Pemrog Komputer

    by  • April 27, 2012 • kuliah, Pemrograman Komputer • 0 Comments

    Jurusan Teknik Sipil, Fakultas Teknik Universitas Lampung

    Ujian UTS : Pemrograman Komputer

    Tanggal/Waktu: 27 April 2012/ Jam 8.00 – 9.40

    Diketahui Konstruksi Perletakan seperti Gambar berikut,

    Diminta:

    1. Buat program fortran (fortran code) untuk menghitung bidang momen (M) dan lintang (Q) dari konstruksi seperti tergambar.

    2. Buat diagram alir (Flow Chart) dari logika pemrograman yang dibuat.

    Jawaban Ujian Tengah Semester yang dilaksanakan pada Tanggal 27 April 2012 Jam 8.00 – 9.40 WIB di Gedung E.21. Fakultas Teknik Universitas Lampung.

    ——————————- uts.f ———————————-

    open(unit=1,file=’uts.inp’,status=’old’)
    open(unit=2,file=’uts.out’,status=’unknown’)
    read(1,*)y,p,q,n
    Va = p*((100-y)/100)+q*(100-y)*((100-y)*0.5/100)
    Vb = p*(y/100)+ q*(100-y)*((y+0.5*(100-y))/100)
    write(*,*)Va, Vb, Va + Vb – p – q*(100-y)
    write(2,*)Va, Vb, Va + Vb – p – q*(100-y)
    do i=1,n+1
    x = real(i-1)
    if(x.LE.y)then
    xa = x
    DMx = Va*xa
    DQx = Va
    write(*,*)x,DMx,DQx
    write(2,*)x,DMx,DQx
    endif
    if(x.GE.y)then
    xb = x – y
    DMx = Va*(xb+y) – p*xb – 0.5*q*xb**2
    DQx = Va – p – q*xb
    write(*,*)x,DMx,DQx
    write(2,*)x,DMx,DQx
    endif
    end do
    stop
    end
    ——————————- uts.f ———————————-

    File inputnya adalah sebagai berikut,

    ——————————- uts.inp ——————————-

    40 10 5 100

    ——————————- uts.inp ——————————-

    File hasil dapat dilihat di “uts.out”

    Dari hasil program diatas didapat gambar sebagai berikut,

    Gambar 1. Bidang Momen

    Gambar 2. Bidang Lintang

    Jawaban ujiannya dapat didownload pada link ini.

    Gambar Diagram Alir (Flow Chart) dari Fortran Code di atas adalah sebagai berikut,

    Gambar Diagram Alir (Flow Chart)

    Gambar Flow Chart nya dapat di download dari sini

    Leave a Reply

    Your email address will not be published. Required fields are marked *


    *