{"id":253,"date":"2012-04-27T21:15:43","date_gmt":"2012-04-27T14:15:43","guid":{"rendered":"http:\/\/teksipil.wordpress.com\/?p=253"},"modified":"2012-04-27T21:15:43","modified_gmt":"2012-04-27T14:15:43","slug":"jawaban-ujian-tengah-semester-kelas-b","status":"publish","type":"post","link":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/2012\/04\/27\/jawaban-ujian-tengah-semester-kelas-b\/","title":{"rendered":"Soal dan Jawaban UTS Pemrog Komputer"},"content":{"rendered":"<p style=\"text-align:center\"><strong>Jurusan Teknik Sipil, Fakultas Teknik Universitas Lampung<\/strong><\/p>\n<p style=\"text-align:center\"><strong>Ujian UTS : Pemrograman Komputer<\/strong><\/p>\n<p style=\"text-align:center\"><strong>Tanggal\/Waktu: 27 April 2012\/ Jam 8.00 &#8211; 9.40<\/strong><\/p>\n<p>Diketahui Konstruksi Perletakan seperti Gambar berikut,<\/p>\n<p><a href=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/soal-uts-pemrograman-komputer-27-april-2012_html_5fd1273f1.gif\"><img fetchpriority=\"high\" decoding=\"async\" class=\"aligncenter size-full wp-image-270\" src=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/soal-uts-pemrograman-komputer-27-april-2012_html_5fd1273f1.gif\" alt=\"\" width=\"500\" height=\"145\" \/><\/a><\/p>\n<p>Diminta:<\/p>\n<p>1. Buat program fortran (fortran code) untuk menghitung bidang momen (M) dan lintang (Q) dari konstruksi seperti tergambar.<\/p>\n<p>2. Buat diagram alir (Flow Chart) dari logika pemrograman yang dibuat.<\/p>\n<p>Jawaban Ujian Tengah Semester yang dilaksanakan pada Tanggal 27 April 2012 Jam 8.00 &#8211; 9.40 WIB di Gedung E.21. Fakultas Teknik Universitas Lampung.<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;- uts.f &#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-<\/p>\n<p>open(unit=1,file=&#8217;uts.inp&#8217;,status=&#8217;old&#8217;)<br \/>\nopen(unit=2,file=&#8217;uts.out&#8217;,status=&#8217;unknown&#8217;)<br \/>\nread(1,*)y,p,q,n<br \/>\nVa = p*((100-y)\/100)+q*(100-y)*((100-y)*0.5\/100)<br \/>\nVb = p*(y\/100)+ q*(100-y)*((y+0.5*(100-y))\/100)<br \/>\nwrite(*,*)Va, Vb, Va + Vb &#8211; p &#8211; q*(100-y)<br \/>\nwrite(2,*)Va, Vb, Va + Vb &#8211; p &#8211; q*(100-y)<br \/>\ndo i=1,n+1<br \/>\nx = real(i-1)<br \/>\nif(x.LE.y)then<br \/>\nxa = x<br \/>\nDMx = Va*xa<br \/>\nDQx = Va<br \/>\nwrite(*,*)x,DMx,DQx<br \/>\nwrite(2,*)x,DMx,DQx<br \/>\nendif<br \/>\nif(x.GE.y)then<br \/>\nxb = x &#8211; y<br \/>\nDMx = Va*(xb+y) &#8211; p*xb &#8211; 0.5*q*xb**2<br \/>\nDQx = Va &#8211; p &#8211; q*xb<br \/>\nwrite(*,*)x,DMx,DQx<br \/>\nwrite(2,*)x,DMx,DQx<br \/>\nendif<br \/>\nend do<br \/>\nstop<br \/>\nend<br \/>\n&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;- uts.f &#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-<\/p>\n<p>File inputnya adalah sebagai berikut,<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;- uts.inp &#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-<\/p>\n<p>40 10 5 100<\/p>\n<p>&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;- uts.inp &#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-<\/p>\n<p>File hasil dapat dilihat di &#8220;uts.out&#8221;<\/p>\n<p>Dari hasil program diatas didapat gambar sebagai berikut,<\/p>\n<p style=\"text-align:center\"><a href=\"http:\/\/localhost\/wp321\/wp-content\/uploads\/2012\/04\/momen.jpg\"><img decoding=\"async\" class=\"alignnone size-medium wp-image-255\" src=\"http:\/\/localhost\/wp321\/wp-content\/uploads\/2012\/04\/momen.jpg?w=300\" alt=\"\" width=\"300\" height=\"157\" \/><\/a><\/p>\n<p style=\"text-align:center\">Gambar 1. Bidang Momen<\/p>\n<p style=\"text-align:center\"><a href=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/lintang1.jpg\"><img decoding=\"async\" class=\"alignnone size-medium wp-image-256\" src=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/lintang1.jpg?w=300\" alt=\"\" width=\"300\" height=\"164\" \/><\/a><\/p>\n<p style=\"text-align:center\">Gambar 2. Bidang Lintang<\/p>\n<p style=\"text-align:left\">Jawaban ujiannya dapat didownload pada <a href=\"http:\/\/www.ziddu.com\/download\/19248834\/uts.zip.html\" target=\"_blank\">link ini<\/a>.<\/p>\n<p style=\"text-align:left\">Gambar Diagram Alir (Flow Chart) dari Fortran Code di atas adalah sebagai berikut,<\/p>\n<p style=\"text-align:center\"><a href=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/flow-chart-ujian-uts-pemrog-28-april-2012_html_4981d0891.gif\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-275\" src=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/flow-chart-ujian-uts-pemrog-28-april-2012_html_4981d0891.gif\" alt=\"\" width=\"408\" height=\"767\" \/><\/a><\/p>\n<p style=\"text-align:center\">Gambar Diagram Alir (Flow Chart)<\/p>\n<p style=\"text-align:left\">Gambar Flow Chart nya dapat di download <a href=\"https:\/\/dosen.unila.ac.id\/wp-content\/uploads\/sites\/21\/2012\/04\/flow-chart-ujian-uts-pemrog-28-april-20121.pdf\" target=\"_blank\">dari sini<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Jurusan Teknik Sipil, Fakultas Teknik Universitas Lampung Ujian UTS : Pemrograman Komputer Tanggal\/Waktu: 27 April 2012\/ Jam 8.00 &#8211; 9.40 Diketahui Konstruksi Perletakan seperti Gambar berikut, Diminta: 1. Buat program &hellip; <a class=\"readmore\" href=\"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/2012\/04\/27\/jawaban-ujian-tengah-semester-kelas-b\/\">Continue Reading &rarr;<\/a><\/p>\n","protected":false},"author":21,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,6],"tags":[],"class_list":["post-253","post","type-post","status-publish","format-standard","hentry","category-kuliah","category-pemrograman-komputer"],"_links":{"self":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts\/253"}],"collection":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/users\/21"}],"replies":[{"embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/comments?post=253"}],"version-history":[{"count":0,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts\/253\/revisions"}],"wp:attachment":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/media?parent=253"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/categories?post=253"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/tags?post=253"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}