{"id":674,"date":"2013-07-21T10:33:54","date_gmt":"2013-07-21T10:33:54","guid":{"rendered":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/?p=674"},"modified":"2013-07-21T10:42:37","modified_gmt":"2013-07-21T10:42:37","slug":"penggunaan-array-di-free-pascal-compiler-lazarus","status":"publish","type":"post","link":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/2013\/07\/21\/penggunaan-array-di-free-pascal-compiler-lazarus\/","title":{"rendered":"Penggunaan Array di Free Pascal Compiler (Lazarus)"},"content":{"rendered":"

Dengan menggunakan Lazarus, kita dapat membuat program atau code Pascal.<\/p>\n

Untuk contoh perhitungan bidang momen dan lintang dengan menggunakan Array dapat dilihat pada code berikut,<\/p>\n

program Project1;<\/p>\n

{$mode objfpc}{$H+}<\/p>\n

uses
\n{$IFDEF UNIX}{$IFDEF UseCThreads}
\ncthreads,
\n{$ENDIF}{$ENDIF}
\nClasses
\n{ you can add units after this };<\/p>\n

{$R *.res}<\/p>\n

type<\/strong>
\n hasil = array [1..101] of real;<\/strong><\/p>\n

var<\/strong>
\n Fileout : text ;<\/strong>
\n i : integer ;<\/strong>
\n x,Va : real ;<\/strong>
\n Dmx,Ddx : hasil;<\/strong><\/p>\n

begin<\/strong>
\n assign(fileout,’momen.txt’);<\/strong>
\n rewrite(fileout);<\/strong>
\n for i := 1 to 101 do<\/strong>
\n begin<\/strong>
\n x := real (i-1);<\/strong>
\n Va := 13.5 ;<\/strong>
\n if x <= 50 then<\/strong>
\n begin<\/strong>
\n Dmx[i] := Va*x ;<\/strong>
\n Ddx[i] := Va ;<\/strong>
\n writeln(fileout,’ x = ‘,x:5:2,’ Dmx= ‘,Dmx[i]:5:2, ‘ Ddx= ‘,Ddx[i]:5:2);<\/strong>
\n end;<\/strong>
\n if x >= 50 then<\/strong>
\n begin<\/strong>
\n Dmx[i] := (Va*x) – (2*(x-50))-(0.5*1*(x-50)*(x-50));<\/strong>
\n Ddx[i] := Va-2-(1*(x-50));<\/strong>
\n writeln(fileout,’ x = ‘,x:5:2,’ Dmx= ‘,Dmx[i]:5:2, ‘ Ddx= ‘,Ddx[i]:5:2);<\/strong>
\n end;<\/strong>
\n end;<\/strong>
\n close (fileout);<\/strong><\/p>\n

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

Pascal code di atas merupakan isi dari file “project1.lpr.”<\/p>\n

Hasil perhitungan ditulis ke dalam file “momen.txt”. Isi dari file ini dapat dilihat sebagai berikut,<\/p>\n

x = 0.00 Dmx= 0.00 Ddx= 13.50
\nx = 1.00 Dmx= 13.50 Ddx= 13.50
\nx = 2.00 Dmx= 27.00 Ddx= 13.50
\nx = 3.00 Dmx= 40.50 Ddx= 13.50
\nx = 4.00 Dmx= 54.00 Ddx= 13.50
\nx = 5.00 Dmx= 67.50 Ddx= 13.50
\nx = 6.00 Dmx= 81.00 Ddx= 13.50
\nx = 7.00 Dmx= 94.50 Ddx= 13.50
\nx = 8.00 Dmx= 108.00 Ddx= 13.50
\nx = 9.00 Dmx= 121.50 Ddx= 13.50
\nx = 10.00 Dmx= 135.00 Ddx= 13.50
\nx = 11.00 Dmx= 148.50 Ddx= 13.50
\nx = 12.00 Dmx= 162.00 Ddx= 13.50
\nx = 13.00 Dmx= 175.50 Ddx= 13.50
\nx = 14.00 Dmx= 189.00 Ddx= 13.50
\nx = 15.00 Dmx= 202.50 Ddx= 13.50
\nx = 16.00 Dmx= 216.00 Ddx= 13.50
\nx = 17.00 Dmx= 229.50 Ddx= 13.50
\nx = 18.00 Dmx= 243.00 Ddx= 13.50
\nx = 19.00 Dmx= 256.50 Ddx= 13.50
\nx = 20.00 Dmx= 270.00 Ddx= 13.50
\nx = 21.00 Dmx= 283.50 Ddx= 13.50
\nx = 22.00 Dmx= 297.00 Ddx= 13.50
\nx = 23.00 Dmx= 310.50 Ddx= 13.50
\nx = 24.00 Dmx= 324.00 Ddx= 13.50
\nx = 25.00 Dmx= 337.50 Ddx= 13.50
\nx = 26.00 Dmx= 351.00 Ddx= 13.50
\nx = 27.00 Dmx= 364.50 Ddx= 13.50
\nx = 28.00 Dmx= 378.00 Ddx= 13.50
\nx = 29.00 Dmx= 391.50 Ddx= 13.50
\nx = 30.00 Dmx= 405.00 Ddx= 13.50
\nx = 31.00 Dmx= 418.50 Ddx= 13.50
\nx = 32.00 Dmx= 432.00 Ddx= 13.50
\nx = 33.00 Dmx= 445.50 Ddx= 13.50
\nx = 34.00 Dmx= 459.00 Ddx= 13.50
\nx = 35.00 Dmx= 472.50 Ddx= 13.50
\nx = 36.00 Dmx= 486.00 Ddx= 13.50
\nx = 37.00 Dmx= 499.50 Ddx= 13.50
\nx = 38.00 Dmx= 513.00 Ddx= 13.50
\nx = 39.00 Dmx= 526.50 Ddx= 13.50
\nx = 40.00 Dmx= 540.00 Ddx= 13.50
\nx = 41.00 Dmx= 553.50 Ddx= 13.50
\nx = 42.00 Dmx= 567.00 Ddx= 13.50
\nx = 43.00 Dmx= 580.50 Ddx= 13.50
\nx = 44.00 Dmx= 594.00 Ddx= 13.50
\nx = 45.00 Dmx= 607.50 Ddx= 13.50
\nx = 46.00 Dmx= 621.00 Ddx= 13.50
\nx = 47.00 Dmx= 634.50 Ddx= 13.50
\nx = 48.00 Dmx= 648.00 Ddx= 13.50
\nx = 49.00 Dmx= 661.50 Ddx= 13.50
\nx = 50.00 Dmx= 675.00 Ddx= 13.50
\nx = 50.00 Dmx= 675.00 Ddx= 11.50
\nx = 51.00 Dmx= 686.00 Ddx= 10.50
\nx = 52.00 Dmx= 696.00 Ddx= 9.50
\nx = 53.00 Dmx= 705.00 Ddx= 8.50
\nx = 54.00 Dmx= 713.00 Ddx= 7.50
\nx = 55.00 Dmx= 720.00 Ddx= 6.50
\nx = 56.00 Dmx= 726.00 Ddx= 5.50
\nx = 57.00 Dmx= 731.00 Ddx= 4.50
\nx = 58.00 Dmx= 735.00 Ddx= 3.50
\nx = 59.00 Dmx= 738.00 Ddx= 2.50
\nx = 60.00 Dmx= 740.00 Ddx= 1.50
\nx = 61.00 Dmx= 741.00 Ddx= 0.50
\nx = 62.00 Dmx= 741.00 Ddx= -0.50
\nx = 63.00 Dmx= 740.00 Ddx= -1.50
\nx = 64.00 Dmx= 738.00 Ddx= -2.50
\nx = 65.00 Dmx= 735.00 Ddx= -3.50
\nx = 66.00 Dmx= 731.00 Ddx= -4.50
\nx = 67.00 Dmx= 726.00 Ddx= -5.50
\nx = 68.00 Dmx= 720.00 Ddx= -6.50
\nx = 69.00 Dmx= 713.00 Ddx= -7.50
\nx = 70.00 Dmx= 705.00 Ddx= -8.50
\nx = 71.00 Dmx= 696.00 Ddx= -9.50
\nx = 72.00 Dmx= 686.00 Ddx= -10.50
\nx = 73.00 Dmx= 675.00 Ddx= -11.50
\nx = 74.00 Dmx= 663.00 Ddx= -12.50
\nx = 75.00 Dmx= 650.00 Ddx= -13.50
\nx = 76.00 Dmx= 636.00 Ddx= -14.50
\nx = 77.00 Dmx= 621.00 Ddx= -15.50
\nx = 78.00 Dmx= 605.00 Ddx= -16.50
\nx = 79.00 Dmx= 588.00 Ddx= -17.50
\nx = 80.00 Dmx= 570.00 Ddx= -18.50
\nx = 81.00 Dmx= 551.00 Ddx= -19.50
\nx = 82.00 Dmx= 531.00 Ddx= -20.50
\nx = 83.00 Dmx= 510.00 Ddx= -21.50
\nx = 84.00 Dmx= 488.00 Ddx= -22.50
\nx = 85.00 Dmx= 465.00 Ddx= -23.50
\nx = 86.00 Dmx= 441.00 Ddx= -24.50
\nx = 87.00 Dmx= 416.00 Ddx= -25.50
\nx = 88.00 Dmx= 390.00 Ddx= -26.50
\nx = 89.00 Dmx= 363.00 Ddx= -27.50
\nx = 90.00 Dmx= 335.00 Ddx= -28.50
\nx = 91.00 Dmx= 306.00 Ddx= -29.50
\nx = 92.00 Dmx= 276.00 Ddx= -30.50
\nx = 93.00 Dmx= 245.00 Ddx= -31.50
\nx = 94.00 Dmx= 213.00 Ddx= -32.50
\nx = 95.00 Dmx= 180.00 Ddx= -33.50
\nx = 96.00 Dmx= 146.00 Ddx= -34.50
\nx = 97.00 Dmx= 111.00 Ddx= -35.50
\nx = 98.00 Dmx= 75.00 Ddx= -36.50
\nx = 99.00 Dmx= 38.00 Ddx= -37.50
\nx = 100.00 Dmx= 0.00 Ddx= -38.50<\/p>\n

Code lengkap dari penggunaan array dapat dilihat pada file ini<\/a><\/p>\n

 <\/p>\n

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

Dengan menggunakan Lazarus, kita dapat membuat program atau code Pascal. Untuk contoh perhitungan bidang momen dan lintang dengan menggunakan Array dapat dilihat pada code berikut, program Project1; {$mode objfpc}{$H+} uses … 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":[28,6],"tags":[],"class_list":["post-674","post","type-post","status-publish","format-standard","hentry","category-lazarus","category-pemrograman-komputer"],"_links":{"self":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts\/674"}],"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=674"}],"version-history":[{"count":0,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/posts\/674\/revisions"}],"wp:attachment":[{"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/media?parent=674"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/categories?post=674"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dosen.unila.ac.id\/ahmadzakaria\/wp-json\/wp\/v2\/tags?post=674"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}