{"id":681,"date":"2013-07-21T11:46:36","date_gmt":"2013-07-21T11:46:36","guid":{"rendered":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/?p=681"},"modified":"2013-10-30T03:10:51","modified_gmt":"2013-10-30T03:10:51","slug":"perhitungan-momen-dan-lintang-menggunakan-fpc","status":"publish","type":"post","link":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/2013\/07\/21\/perhitungan-momen-dan-lintang-menggunakan-fpc\/","title":{"rendered":"Perhitungan Momen dan Lintang menggunakan Free Pascal (FPC)"},"content":{"rendered":"

Diketahui Reaksi perletakan sendi rol sebagai berikut,<\/p>\n

 <\/p>\n

\"Untitled<\/a><\/p>\n

 <\/p>\n

Diminta:<\/p>\n

1. Buat Program untuk menghitung bidang Momen dan Lintang dengan menggunakan program Pascal.<\/p>\n

2. Buat Diagram Alir (Flow Chart) program tersebut.<\/p>\n

Jawab:<\/p>\n

1. Pascal code adalah sebagai berikut,<\/p>\n

uses crt; <\/strong>
\ntype<\/strong>
\n hasil = array[1..151] of real ;<\/strong>
\n var<\/strong>
\n fileout : text ; { ini berisi output program }<\/strong>
\n i,j : integer ;<\/strong>
\n P1,P2,Va,x : real ;<\/strong>
\n DMx,DDx : hasil ;<\/strong>
\n begin<\/strong>
\n Assign(fileout, ‘mr1.txt’); { membuka file baru }<\/strong>
\n rewrite(fileout);<\/strong>
\n P1 := 2 ;<\/strong>
\n P2 := 3 ;<\/strong>
\n Va := P1*(100\/150) + P2*(50\/150); <\/strong>
\n writeln(‘ Va = ‘,Va);<\/strong><\/p>\n

for i:= 1 to 151 do<\/strong>
\n begin <\/strong>
\n x := real(i-1);<\/strong>
\n if x <= 50 then<\/strong>
\n begin <\/strong>
\n DMx[i] := Va*x ;<\/strong>
\n DDx[i] := Va ; <\/strong>
\n end;<\/strong><\/p>\n

if x >= 50 then<\/strong>
\n begin<\/strong>
\n if x <= 100 then<\/strong>
\n begin<\/strong>
\n DMx[i] := Va*x – P1*(x-50) ;<\/strong>
\n DDx[i] := Va – P1 ;<\/strong>
\n end;<\/strong><\/p>\n

if x >= 100 then<\/strong>
\n begin<\/strong>
\n DMx[i] := Va*x – P1*(x-50) – P2*(x-100) ;<\/strong>
\n DDx[i] := Va – P1 – P2 ;<\/strong>
\n end;<\/strong><\/p>\n

end;<\/strong>
\n end;<\/strong><\/p>\n

for j:= 1 to 151 do<\/strong>
\n begin<\/strong>
\n writeln(fileout,’ DMx = ‘,DMx[j]:10:5 ,’ DDx =’,DDx[j]:10:5);<\/strong>
\n writeln(‘ DMx = ‘,DMx[j]:10:5,’ DDx =’,DDx[j]:10:5);<\/strong>
\n end;<\/strong>
\nclose(fileout);<\/strong>
\nend.<\/strong><\/p>\n

Hasil program di atas adalah seperti berikut,<\/p>\n

DMx = 0.00000 DDx = 2.33333<\/strong>
\n DMx = 2.33333 DDx = 2.33333<\/strong>
\n DMx = 4.66667 DDx = 2.33333<\/strong>
\n DMx = 7.00000 DDx = 2.33333<\/strong>
\n DMx = 9.33333 DDx = 2.33333<\/strong>
\n DMx = 11.66667 DDx = 2.33333<\/strong>
\n DMx = 14.00000 DDx = 2.33333<\/strong>
\n DMx = 16.33333 DDx = 2.33333<\/strong>
\n DMx = 18.66667 DDx = 2.33333<\/strong>
\n DMx = 21.00000 DDx = 2.33333<\/strong>
\n DMx = 23.33333 DDx = 2.33333<\/strong>
\n DMx = 25.66667 DDx = 2.33333<\/strong>
\n DMx = 28.00000 DDx = 2.33333<\/strong>
\n DMx = 30.33333 DDx = 2.33333<\/strong>
\n DMx = 32.66667 DDx = 2.33333<\/strong>
\n DMx = 35.00000 DDx = 2.33333<\/strong>
\n DMx = 37.33333 DDx = 2.33333<\/strong>
\n DMx = 39.66667 DDx = 2.33333<\/strong>
\n DMx = 42.00000 DDx = 2.33333<\/strong>
\n DMx = 44.33333 DDx = 2.33333<\/strong>
\n DMx = 46.66667 DDx = 2.33333<\/strong>
\n DMx = 49.00000 DDx = 2.33333<\/strong>
\n DMx = 51.33333 DDx = 2.33333<\/strong>
\n DMx = 53.66667 DDx = 2.33333<\/strong>
\n DMx = 56.00000 DDx = 2.33333<\/strong>
\n DMx = 58.33333 DDx = 2.33333<\/strong>
\n DMx = 60.66667 DDx = 2.33333<\/strong>
\n DMx = 63.00000 DDx = 2.33333<\/strong>
\n DMx = 65.33333 DDx = 2.33333<\/strong>
\n DMx = 67.66667 DDx = 2.33333<\/strong>
\n DMx = 70.00000 DDx = 2.33333<\/strong>
\n DMx = 72.33333 DDx = 2.33333<\/strong>
\n DMx = 74.66667 DDx = 2.33333<\/strong>
\n DMx = 77.00000 DDx = 2.33333<\/strong>
\n DMx = 79.33333 DDx = 2.33333<\/strong>
\n DMx = 81.66667 DDx = 2.33333<\/strong>
\n DMx = 84.00000 DDx = 2.33333<\/strong>
\n DMx = 86.33333 DDx = 2.33333<\/strong>
\n DMx = 88.66667 DDx = 2.33333<\/strong>
\n DMx = 91.00000 DDx = 2.33333<\/strong>
\n DMx = 93.33333 DDx = 2.33333<\/strong>
\n DMx = 95.66667 DDx = 2.33333<\/strong>
\n DMx = 98.00000 DDx = 2.33333<\/strong>
\n DMx = 100.33333 DDx = 2.33333<\/strong>
\n DMx = 102.66667 DDx = 2.33333<\/strong>
\n DMx = 105.00000 DDx = 2.33333<\/strong>
\n DMx = 107.33333 DDx = 2.33333<\/strong>
\n DMx = 109.66667 DDx = 2.33333<\/strong>
\n DMx = 112.00000 DDx = 2.33333<\/strong>
\n DMx = 114.33333 DDx = 2.33333<\/strong>
\n DMx = 116.66667 DDx = 0.33333<\/strong>
\n DMx = 117.00000 DDx = 0.33333<\/strong>
\n DMx = 117.33333 DDx = 0.33333<\/strong>
\n DMx = 117.66667 DDx = 0.33333<\/strong>
\n DMx = 118.00000 DDx = 0.33333<\/strong>
\n DMx = 118.33333 DDx = 0.33333<\/strong>
\n DMx = 118.66667 DDx = 0.33333<\/strong>
\n DMx = 119.00000 DDx = 0.33333<\/strong>
\n DMx = 119.33333 DDx = 0.33333<\/strong>
\n DMx = 119.66667 DDx = 0.33333<\/strong>
\n DMx = 120.00000 DDx = 0.33333<\/strong>
\n DMx = 120.33333 DDx = 0.33333<\/strong>
\n DMx = 120.66667 DDx = 0.33333<\/strong>
\n DMx = 121.00000 DDx = 0.33333<\/strong>
\n DMx = 121.33333 DDx = 0.33333<\/strong>
\n DMx = 121.66667 DDx = 0.33333<\/strong>
\n DMx = 122.00000 DDx = 0.33333<\/strong>
\n DMx = 122.33333 DDx = 0.33333<\/strong>
\n DMx = 122.66667 DDx = 0.33333<\/strong>
\n DMx = 123.00000 DDx = 0.33333<\/strong>
\n DMx = 123.33333 DDx = 0.33333<\/strong>
\n DMx = 123.66667 DDx = 0.33333<\/strong>
\n DMx = 124.00000 DDx = 0.33333<\/strong>
\n DMx = 124.33333 DDx = 0.33333<\/strong>
\n DMx = 124.66667 DDx = 0.33333<\/strong>
\n DMx = 125.00000 DDx = 0.33333<\/strong>
\n DMx = 125.33333 DDx = 0.33333<\/strong>
\n DMx = 125.66667 DDx = 0.33333<\/strong>
\n DMx = 126.00000 DDx = 0.33333<\/strong>
\n DMx = 126.33333 DDx = 0.33333<\/strong>
\n DMx = 126.66667 DDx = 0.33333<\/strong>
\n DMx = 127.00000 DDx = 0.33333<\/strong>
\n DMx = 127.33333 DDx = 0.33333<\/strong>
\n DMx = 127.66667 DDx = 0.33333<\/strong>
\n DMx = 128.00000 DDx = 0.33333<\/strong>
\n DMx = 128.33333 DDx = 0.33333<\/strong>
\n DMx = 128.66667 DDx = 0.33333<\/strong>
\n DMx = 129.00000 DDx = 0.33333<\/strong>
\n DMx = 129.33333 DDx = 0.33333<\/strong>
\n DMx = 129.66667 DDx = 0.33333<\/strong>
\n DMx = 130.00000 DDx = 0.33333<\/strong>
\n DMx = 130.33333 DDx = 0.33333<\/strong>
\n DMx = 130.66667 DDx = 0.33333<\/strong>
\n DMx = 131.00000 DDx = 0.33333<\/strong>
\n DMx = 131.33333 DDx = 0.33333<\/strong>
\n DMx = 131.66667 DDx = 0.33333<\/strong>
\n DMx = 132.00000 DDx = 0.33333<\/strong>
\n DMx = 132.33333 DDx = 0.33333<\/strong>
\n DMx = 132.66667 DDx = 0.33333<\/strong>
\n DMx = 133.00000 DDx = 0.33333<\/strong>
\n DMx = 133.33333 DDx = -2.66667<\/strong>
\n DMx = 130.66667 DDx = -2.66667<\/strong>
\n DMx = 128.00000 DDx = -2.66667<\/strong>
\n DMx = 125.33333 DDx = -2.66667<\/strong>
\n DMx = 122.66667 DDx = -2.66667<\/strong>
\n DMx = 120.00000 DDx = -2.66667<\/strong>
\n DMx = 117.33333 DDx = -2.66667<\/strong>
\n DMx = 114.66667 DDx = -2.66667<\/strong>
\n DMx = 112.00000 DDx = -2.66667<\/strong>
\n DMx = 109.33333 DDx = -2.66667<\/strong>
\n DMx = 106.66667 DDx = -2.66667<\/strong>
\n DMx = 104.00000 DDx = -2.66667<\/strong>
\n DMx = 101.33333 DDx = -2.66667<\/strong>
\n DMx = 98.66667 DDx = -2.66667<\/strong>
\n DMx = 96.00000 DDx = -2.66667<\/strong>
\n DMx = 93.33333 DDx = -2.66667<\/strong>
\n DMx = 90.66667 DDx = -2.66667<\/strong>
\n DMx = 88.00000 DDx = -2.66667<\/strong>
\n DMx = 85.33333 DDx = -2.66667<\/strong>
\n DMx = 82.66667 DDx = -2.66667<\/strong>
\n DMx = 80.00000 DDx = -2.66667<\/strong>
\n DMx = 77.33333 DDx = -2.66667<\/strong>
\n DMx = 74.66667 DDx = -2.66667<\/strong>
\n DMx = 72.00000 DDx = -2.66667<\/strong>
\n DMx = 69.33333 DDx = -2.66667<\/strong>
\n DMx = 66.66667 DDx = -2.66667<\/strong>
\n DMx = 64.00000 DDx = -2.66667<\/strong>
\n DMx = 61.33333 DDx = -2.66667<\/strong>
\n DMx = 58.66667 DDx = -2.66667<\/strong>
\n DMx = 56.00000 DDx = -2.66667<\/strong>
\n DMx = 53.33333 DDx = -2.66667<\/strong>
\n DMx = 50.66667 DDx = -2.66667<\/strong>
\n DMx = 48.00000 DDx = -2.66667<\/strong>
\n DMx = 45.33333 DDx = -2.66667<\/strong>
\n DMx = 42.66667 DDx = -2.66667<\/strong>
\n DMx = 40.00000 DDx = -2.66667<\/strong>
\n DMx = 37.33333 DDx = -2.66667<\/strong>
\n DMx = 34.66667 DDx = -2.66667<\/strong>
\n DMx = 32.00000 DDx = -2.66667<\/strong>
\n DMx = 29.33333 DDx = -2.66667<\/strong>
\n DMx = 26.66667 DDx = -2.66667<\/strong>
\n DMx = 24.00000 DDx = -2.66667<\/strong>
\n DMx = 21.33333 DDx = -2.66667<\/strong>
\n DMx = 18.66667 DDx = -2.66667<\/strong>
\n DMx = 16.00000 DDx = -2.66667<\/strong>
\n DMx = 13.33333 DDx = -2.66667<\/strong>
\n DMx = 10.66667 DDx = -2.66667<\/strong>
\n DMx = 8.00000 DDx = -2.66667<\/strong>
\n DMx = 5.33333 DDx = -2.66667<\/strong>
\n DMx = 2.66667 DDx = -2.66667<\/strong>
\n DMx = 0.00000 DDx = -2.66667<\/strong><\/p>\n

Code program Pascal di atas di compile dengan menggunakan Program Free Pascal (FPC) under Linux Debian.<\/p>\n

Code Program Pascal (FPC) di atas serta execute \u00a0program dapat dilihat pada file ini.<\/a><\/p>\n

2. Diagram Alir (Flow chart<\/em>) dari program di atas adalah sebagai berikut,<\/p>\n

 <\/p>\n

\"flowchart\"<\/a><\/p>\n

Gambar Diagram Alir Program untuk menghitung bidang momen dan lintang.<\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Diketahui Reaksi perletakan sendi rol sebagai berikut,     Diminta: 1. Buat Program untuk menghitung bidang Momen dan Lintang dengan menggunakan program Pascal. 2. Buat Diagram Alir (Flow Chart) program … Continue Reading →<\/a><\/p>\n","protected":false},"author":21,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[29,6],"tags":[],"class_list":["post-681","post","type-post","status-publish","format-standard","hentry","category-free-pascal","category-pemrograman-komputer"],"_links":{"self":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts\/681"}],"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=681"}],"version-history":[{"count":0,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts\/681\/revisions"}],"wp:attachment":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/media?parent=681"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/categories?post=681"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/tags?post=681"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}