tugas fisika(usaha,energi dan daya

1.  Bayu mendorong meja yang massanya 4 kg dgn percepatan 2m/s" sejauh 5 m. berapkah usahanya??

jawab:
W = Fs
= mas
= 4 kg 2 m/s" 5 m
= 40 joule

2.  Sebuah benda dengan massa 0,5 kg jatuh dari ketinggian 4m ke tanah, jika g = 10 m/s2, hitunglah :

1. energi potensial ketika melayang jatuh
2. Energi kinetik ketika menyentuh tanah

Jawab:
Diketahui :
m= o,5 kg
h = 4m
g = 10 m/s2

Jawab :

1. energi potensial ketika melayang jatuh

EP = M.G.H
0,5 kg . 4 m. 10 m/s2
= 20 J

2. Energi kinetik ketika menyentuh tanah

Karena energi mekanik = constant

Bahwa : Ketika menyentuh tanah tidak ada tinggi
ketika jatuh tidak ada velocity

Rumus EK : 1/2 . M. V2

Jadi 1/2 . 0,5 . 0

Berapapun dikali nol, pasti nol
EK = 0

3.  Sebuah benda bermassa m bergerak dengan kecepatan 20 m/s

sehingga memiliki energi kinetik sebesar 250 joule. Berapakah

energi benda tersebut jika kecepatannya menjadi 40 m/s?

dik:                         v1 = 20 m/s

Ek1 = 250 joule

v2 = 40 m/s

     Dit: Ek2 = ?

     Jwb :           Ek =1/2 mv2

                        Ek1 =1/2 m v12

250 = m (20)2

500 = m . 400

m = 1,25 kg

Ek2 = 1/2m v22

= . 1,25 . (40)2 = 1000 joule

4.  Sebuah mobil bermassa 1 ton dipacu dari kecepatan 36 km/jam menjadi berkecepatan 144 km/jam dalam 4 sekon. Jika efisiensi mobil 80 %, tentukan daya yang dihasilkan mobil!

Penyelesaian:

Terjadi perubahan kecepatan, maka usaha yang dilakukan adalah:

W = ½ m v₂² – ½ m v₁² (1 ton = 1000 kg, 144 km/jam = 40 m/s, 36 km/jam = 10 m/s)

W = ½ 1.000 .(40)² – ½ 1.000 . (10 )²

W = 750.000 joule

P = W/t

P=187.500 watt

Tugas Fisika

1. Seekor burung yang bermassa 26 gram terbang dengan kecepatan 60m/s. Berapa besar momentum burung tersebut???
Diket  :
massa (m) = 26 gram =0,26kg
kecepatan (v) = 60m/s
Ditanya : momentum burung??
Jawab :
p=m.v
p=0,22.80
  = 15,6m/s

2. Sebuah bola sepak bermassa 140 gram di tendang dengan kecepatan 144km/jam. Hitunglah implus bola sepak tersebut??
Diket :
massa(m) =140gram=0,140kg
kecepatan(v)=144km/jam=40m/s
Ditanya : implus ?
Jawab :
I=m.v
I=0,140.40
  =5Ns

3.Dua orang membawa gerobak dengan arah yang berlawanan.Gerobak pertama bermassa 50kg dengan kecepatan 4m/s dan gerobak kedua bermassa 25kg dengan kecepatan -2m/s. Jika setalah meraka berpapasan V1pangkat1=2m/s berapa V2pangkat2??
Diket :
m1=50kg   m2=25kg
v1=4m/s    v2=-2m/s
Ditanya :V2 pangkat2??
Jawab :
Sebelum                  Sesudah
m1.v1+m2.v2   =   m1.v1pangkat1+m2.v2pangkat1
50.4+25.(-2)    =  50.2+25.v2pangkat1
200+(-50)        =  100+25.v2pangkat1
150                  =  100+25-v2pangkat1
150-100           =  25.v2pangkat1
50                    =  25.v2pangakat1
v2pangkat 1     =  50/25
v2pangkat1      =  2m/s

Membuat Layout Menggunakan Corel Draw

Menentukan Gaji Menggunakan Visual Basic

Langkah 1  :

Buatlah 8 tabel untuk mengisi daftarnya dengan cara mengklik menu table pada tool box. Buat sesuai yang anda inginkan

Langkah 2  :

Buatlah 5 texbox dengan cara mengklik menu texbox pada tool box. Buat sesuai yang di inginkan dan letakkan pada daftar gaji,kelebihan jam,hadiah,bonus dan total gaji.

Langkah 3 :

Buatlah 1 comboBox dengan cara mengklik menu comboBox pada tool box. Buat sesuai yang di inginkan dan letakkan pada daftar terlambat.

Langkah 4 :

Buatlah 2 commandButton dengan cara mengklik menu commandBotton pada tool box. Buat sesuai yang yang di inginkan

Langkah 5:

Codinglah aplikasi sederhana tersebut.

Penjelasan Coding  : 

Dim angka(1 To 2) As String

Dim nilai(1 To 2) As String

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        If Text1.Text = "" Then

        Combo1.SetFocus

        Else

        Command1.SetFocus

        End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = 8) Then

KeyAscii = 0

End If

End Sub

Private Sub Command1_Click()

If Text1 = "" Then

Text1.SetFocus

ElseIf Text2 = "" Then

Text2.SetFocus

ElseIf Not (Combo1 = "tidak" Or Combo1 = "ya") Then

Combo1.Text = ""

Combo1.SetFocus

Else

If Text2 > 40 Then

angka(1) = Val(Text2.Text) - (40)

angka(2) = angka(1) * (25000)

Text4.Text = angka(2)

Else

Text4.Text = "0"

End If

If Combo1.Text = "tidak" Then

nilai(1) = Val(Text1.Text) * (10)

nilai(2) = nilai(1) / (100)

Text3.Text = nilai(2)

Else

Text3.Text = "0"

End If

Text5 = Val(Text1) + Val(Text3) + Val(Text4)

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "tidak"

Combo1.AddItem "ya"

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        If Text1.Text = "" Then

        Text1.SetFocus

        Else

        Text2.SetFocus

        End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = 8) Then

KeyAscii = 0

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        If Text1.Text = "" Then

        Text2.SetFocus

        Else

        Combo1.SetFocus

        End If

End If

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = 8) Then

KeyAscii = 0

End If

End Sub