Soal dan Jawaban UTS Pemrog Komputer

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