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 tersebut.
Jawab:
1. Pascal code adalah sebagai berikut,
uses crt;
type
hasil = array[1..151] of real ;
var
fileout : text ; { ini berisi output program }
i,j : integer ;
P1,P2,Va,x : real ;
DMx,DDx : hasil ;
begin
Assign(fileout, ‘mr1.txt’); { membuka file baru }
rewrite(fileout);
P1 := 2 ;
P2 := 3 ;
Va := P1*(100/150) + P2*(50/150);
writeln(‘ Va = ‘,Va);
for i:= 1 to 151 do
begin
x := real(i-1);
if x <= 50 then
begin
DMx[i] := Va*x ;
DDx[i] := Va ;
end;
if x >= 50 then
begin
if x <= 100 then
begin
DMx[i] := Va*x – P1*(x-50) ;
DDx[i] := Va – P1 ;
end;
if x >= 100 then
begin
DMx[i] := Va*x – P1*(x-50) – P2*(x-100) ;
DDx[i] := Va – P1 – P2 ;
end;
end;
end;
for j:= 1 to 151 do
begin
writeln(fileout,’ DMx = ‘,DMx[j]:10:5 ,’ DDx =’,DDx[j]:10:5);
writeln(‘ DMx = ‘,DMx[j]:10:5,’ DDx =’,DDx[j]:10:5);
end;
close(fileout);
end.
Hasil program di atas adalah seperti berikut,
DMx = 0.00000 DDx = 2.33333
DMx = 2.33333 DDx = 2.33333
DMx = 4.66667 DDx = 2.33333
DMx = 7.00000 DDx = 2.33333
DMx = 9.33333 DDx = 2.33333
DMx = 11.66667 DDx = 2.33333
DMx = 14.00000 DDx = 2.33333
DMx = 16.33333 DDx = 2.33333
DMx = 18.66667 DDx = 2.33333
DMx = 21.00000 DDx = 2.33333
DMx = 23.33333 DDx = 2.33333
DMx = 25.66667 DDx = 2.33333
DMx = 28.00000 DDx = 2.33333
DMx = 30.33333 DDx = 2.33333
DMx = 32.66667 DDx = 2.33333
DMx = 35.00000 DDx = 2.33333
DMx = 37.33333 DDx = 2.33333
DMx = 39.66667 DDx = 2.33333
DMx = 42.00000 DDx = 2.33333
DMx = 44.33333 DDx = 2.33333
DMx = 46.66667 DDx = 2.33333
DMx = 49.00000 DDx = 2.33333
DMx = 51.33333 DDx = 2.33333
DMx = 53.66667 DDx = 2.33333
DMx = 56.00000 DDx = 2.33333
DMx = 58.33333 DDx = 2.33333
DMx = 60.66667 DDx = 2.33333
DMx = 63.00000 DDx = 2.33333
DMx = 65.33333 DDx = 2.33333
DMx = 67.66667 DDx = 2.33333
DMx = 70.00000 DDx = 2.33333
DMx = 72.33333 DDx = 2.33333
DMx = 74.66667 DDx = 2.33333
DMx = 77.00000 DDx = 2.33333
DMx = 79.33333 DDx = 2.33333
DMx = 81.66667 DDx = 2.33333
DMx = 84.00000 DDx = 2.33333
DMx = 86.33333 DDx = 2.33333
DMx = 88.66667 DDx = 2.33333
DMx = 91.00000 DDx = 2.33333
DMx = 93.33333 DDx = 2.33333
DMx = 95.66667 DDx = 2.33333
DMx = 98.00000 DDx = 2.33333
DMx = 100.33333 DDx = 2.33333
DMx = 102.66667 DDx = 2.33333
DMx = 105.00000 DDx = 2.33333
DMx = 107.33333 DDx = 2.33333
DMx = 109.66667 DDx = 2.33333
DMx = 112.00000 DDx = 2.33333
DMx = 114.33333 DDx = 2.33333
DMx = 116.66667 DDx = 0.33333
DMx = 117.00000 DDx = 0.33333
DMx = 117.33333 DDx = 0.33333
DMx = 117.66667 DDx = 0.33333
DMx = 118.00000 DDx = 0.33333
DMx = 118.33333 DDx = 0.33333
DMx = 118.66667 DDx = 0.33333
DMx = 119.00000 DDx = 0.33333
DMx = 119.33333 DDx = 0.33333
DMx = 119.66667 DDx = 0.33333
DMx = 120.00000 DDx = 0.33333
DMx = 120.33333 DDx = 0.33333
DMx = 120.66667 DDx = 0.33333
DMx = 121.00000 DDx = 0.33333
DMx = 121.33333 DDx = 0.33333
DMx = 121.66667 DDx = 0.33333
DMx = 122.00000 DDx = 0.33333
DMx = 122.33333 DDx = 0.33333
DMx = 122.66667 DDx = 0.33333
DMx = 123.00000 DDx = 0.33333
DMx = 123.33333 DDx = 0.33333
DMx = 123.66667 DDx = 0.33333
DMx = 124.00000 DDx = 0.33333
DMx = 124.33333 DDx = 0.33333
DMx = 124.66667 DDx = 0.33333
DMx = 125.00000 DDx = 0.33333
DMx = 125.33333 DDx = 0.33333
DMx = 125.66667 DDx = 0.33333
DMx = 126.00000 DDx = 0.33333
DMx = 126.33333 DDx = 0.33333
DMx = 126.66667 DDx = 0.33333
DMx = 127.00000 DDx = 0.33333
DMx = 127.33333 DDx = 0.33333
DMx = 127.66667 DDx = 0.33333
DMx = 128.00000 DDx = 0.33333
DMx = 128.33333 DDx = 0.33333
DMx = 128.66667 DDx = 0.33333
DMx = 129.00000 DDx = 0.33333
DMx = 129.33333 DDx = 0.33333
DMx = 129.66667 DDx = 0.33333
DMx = 130.00000 DDx = 0.33333
DMx = 130.33333 DDx = 0.33333
DMx = 130.66667 DDx = 0.33333
DMx = 131.00000 DDx = 0.33333
DMx = 131.33333 DDx = 0.33333
DMx = 131.66667 DDx = 0.33333
DMx = 132.00000 DDx = 0.33333
DMx = 132.33333 DDx = 0.33333
DMx = 132.66667 DDx = 0.33333
DMx = 133.00000 DDx = 0.33333
DMx = 133.33333 DDx = -2.66667
DMx = 130.66667 DDx = -2.66667
DMx = 128.00000 DDx = -2.66667
DMx = 125.33333 DDx = -2.66667
DMx = 122.66667 DDx = -2.66667
DMx = 120.00000 DDx = -2.66667
DMx = 117.33333 DDx = -2.66667
DMx = 114.66667 DDx = -2.66667
DMx = 112.00000 DDx = -2.66667
DMx = 109.33333 DDx = -2.66667
DMx = 106.66667 DDx = -2.66667
DMx = 104.00000 DDx = -2.66667
DMx = 101.33333 DDx = -2.66667
DMx = 98.66667 DDx = -2.66667
DMx = 96.00000 DDx = -2.66667
DMx = 93.33333 DDx = -2.66667
DMx = 90.66667 DDx = -2.66667
DMx = 88.00000 DDx = -2.66667
DMx = 85.33333 DDx = -2.66667
DMx = 82.66667 DDx = -2.66667
DMx = 80.00000 DDx = -2.66667
DMx = 77.33333 DDx = -2.66667
DMx = 74.66667 DDx = -2.66667
DMx = 72.00000 DDx = -2.66667
DMx = 69.33333 DDx = -2.66667
DMx = 66.66667 DDx = -2.66667
DMx = 64.00000 DDx = -2.66667
DMx = 61.33333 DDx = -2.66667
DMx = 58.66667 DDx = -2.66667
DMx = 56.00000 DDx = -2.66667
DMx = 53.33333 DDx = -2.66667
DMx = 50.66667 DDx = -2.66667
DMx = 48.00000 DDx = -2.66667
DMx = 45.33333 DDx = -2.66667
DMx = 42.66667 DDx = -2.66667
DMx = 40.00000 DDx = -2.66667
DMx = 37.33333 DDx = -2.66667
DMx = 34.66667 DDx = -2.66667
DMx = 32.00000 DDx = -2.66667
DMx = 29.33333 DDx = -2.66667
DMx = 26.66667 DDx = -2.66667
DMx = 24.00000 DDx = -2.66667
DMx = 21.33333 DDx = -2.66667
DMx = 18.66667 DDx = -2.66667
DMx = 16.00000 DDx = -2.66667
DMx = 13.33333 DDx = -2.66667
DMx = 10.66667 DDx = -2.66667
DMx = 8.00000 DDx = -2.66667
DMx = 5.33333 DDx = -2.66667
DMx = 2.66667 DDx = -2.66667
DMx = 0.00000 DDx = -2.66667
Code program Pascal di atas di compile dengan menggunakan Program Free Pascal (FPC) under Linux Debian.
Code Program Pascal (FPC) di atas serta execute program dapat dilihat pada file ini.
2. Diagram Alir (Flow chart) dari program di atas adalah sebagai berikut,
Gambar Diagram Alir Program untuk menghitung bidang momen dan lintang.
Leave a Comment