Matematika Kelautan II
BP2IP MALAHAYATI ACEH
NAUTIKA PELAYARAN
Matematika Profesi Kelautan
Bismillah
Asssalamualaikum...Jaya Nusantara
Perbandingan Berbalik Nilai
Penyelesaian :
120 --- 40
40 ---- x
40.x = 60.80
= 4.800
40
= 120 [Ton]
Bismillah
Asssalamualaikum...Jaya Nusantara
Perbandingan Berbalik Nilai
Suatu perbandingan disebut sebagai perbandingan berbalik nilai jika dua perbandingan nilainya saling berkebalikan.
Untuk Memahami arti perbandingan berbalik nilai , perhatikan contoh berikut yang merupakan contoh perbandingan kecepatan kapal [Knot] dan Pemakaian BBM Kapal [Ton]:
Penyelesaian :
120 --- 40
40 ---- x
40.x = 60.80
= 4.800
40
= 120 [Ton]

Hasil menggunakan Microsoft Excel Menggunakan rumus
Tampilan Hasil Desain Program Menggunakan
Bahasa Pemogram Ruby Gui Tk Widget
Bahasa Pemogram Ruby Gui Tk Widget
Listing Program Perbandingan Senilai Dengan
Menggunakan Ruby Gui Tk Widget






require 'tk'
require 'tkextlib/tile'
FrmbbmKapal = TkRoot.new do
title "Perbandinngan Senilai Kapal"
background 'Blue'
minsize(750,300)
end
$knotpertama = TkVariable.new
$bbmkapal = TkVariable.new
$knotcari = TkVariable.new
$bbm = TkVariable.new
$bbmhasil = TkVariable.new
TkLabel.new(FrmbbmKapal) do
text "Masukkan Kecepatan PerKnot Kapal Pertama :"
grid('row'=>0, 'column'=>0, 'padx'=>10, 'pady'=>10)
end
TkEntry.new(FrmbbmKapal) do
textvariable $knotpertama
grid('row'=>0, 'column'=>1)
end
TkLabel.new(FrmbbmKapal) do
text "Masukkan Jumlah BBM Kapal / Ton:"
grid('row'=>0, 'column'=>2, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmbbmKapal) do
textvariable $bbmkapal
grid('row'=>0, 'column'=>4)
end
TkLabel.new(FrmbbmKapal) do
text "Nilai Kecepatan Kapal PerKnot Yang di Cari:"
grid('row'=>1, 'column'=>0, 'padx'=>10, 'pady'=>10)
end
TkEntry.new(FrmbbmKapal) do
textvariable $knotcari
grid('row'=>1, 'column'=>1)
end
TkButton.new(FrmbbmKapal) do
text "Hitung "
command{proces}
grid('row'=>4, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkLabel.new(FrmbbmKapal) do
text "Jumlah BBM Kapal :"
grid('row'=>5, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmbbmKapal) do
textvariable $bbmhasil
grid('row'=>5, 'column'=>1)
end
TkLabel.new(FrmbbmKapal) do
text "Ton :"
grid('row'=>5, 'column'=>2, 'padx'=>10, "pady"=>10)
end
def proces
begin
$bbm.value = $knotcari * $bbmkapal
$bbmhasil.value = $bbm / ($knotpertama)
rescue
$bbmhasil.value = ""
end
end
Tk.mainloop()
Alhamdulillaah
Selamat Mencoba yaa wassalam
Selamat Mencoba yaa wassalam






Komentar
Posting Komentar