Skip to content

PROCEDURE

Juni 29, 2014

1. Mulai

2. Tentukan Pilihan

3. Nilai W

– Jika nilai W belum diketahui, lanjut langkah 5

– Jika nilai W diketahui, lanjut langkah 19

– Jika ingin berhenti lanjut langkah 28

4. Nilai V

– Jika nilai V belum diketahui, lanjut langkah 8

– Jika nilai V diketahui, lanjut langkah 13

– Jika ingin berhenti lanjut langkah 28

5. Masukkan I (Tegangan)

6. Masukkan R (hambatan)

7. Hitung V = I x R

8. Nilai V

9. Lanjut langkah 15

10. Masukkan V (Tegangan)

11. Masukkan I (Arus)

12. Masukkan t (Waktu)

13. Hitung W = V x I x t

14. Nilai W

15. Lanjut langkah 21

16. Masukkan W (Energi)

17. Masukkan t (Waktu)

18. Hitung P = W/t

19. Nilai P

20. Menghitung Ulang

– Jika Ingin kembali menghitung, lanjut langkah 24

–  Jika Ingin berhenti, lanjut langkah 28

21. Pilihan Menghitung Ulang

– Jika ingin menghitung ulang V (Tegangan),

lanjut langkah 8

– Jika ingin menghitung ulang W (Energi), lanjut

langkah 13

– Jika ingin menghitung ulang P (Daya), lanjut

langkah 21

22. Berhenti

23. Selesai

Flowchart

1

=================================

2

 

 

Program

write(*,1)

1     format (6x,’project 1′,/3x,’Menghitung Daya’)

Write (*,*)

write (*,*) ‘Keterangan Rumus Tersedia’

write (*,*) ‘V = Tegangan (Volt)’

write (*,*) ‘I = Arus Listrik (Ampere)’

write (*,*) ‘R = Hambatan (Ohm)’

write (*,*) ‘W = Energi dalam listrik (Joule)’

write (*,*) ‘P = Daya yang dihasilkan (Watt)’

write (*,*) ‘t = Waktu (Detik)’

write (*,*)

write (*,*) ‘——————————————-’

write (*,*) ‘——————————————-’

write (*,*)

400   write (*,*) ‘Tuliskan angka pilihan Anda’

write (*,*) ‘ketik kode angka’

write (*,*) ’1. jika W belum diketahui’

write (*,*) ’2. jika W diketahui’

write (*,*) ’3. jika ingin berhenti’

read (*,’(BN,F2.0)’,err=401) pilihan

IF (Pilihan.EQ.1.) go to 50

IF (Pilihan.EQ.2.) go to 300

IF (Pilihan.EQ.3.) go to 900

IF (Pilihan.GT.3.) go to 10

10     write (*,11)

11     format (//,1x,’anda kurang beruntung

memasukkan data, coba lagi’)

goto 400

401    write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 400

50     write (*,*)

write (*,*) ‘——————————————-’

write (*,*) ‘——————————————-’

write (*,*)

write (*,*) ‘Tuliskan angka pilihan Anda’

write (*,*) ‘ketik kode angka’

write (*,*) ’1. jika V belum diketahui’

write (*,*) ’2. jika V diketahui’

write (*,*) ’3. jika ingin berhenti’

read (*,’(BN,F2.0)’,err=51) pilihan

IF (Pilihan.EQ.1.) go to 100

IF (Pilihan.EQ.2.) go to 200

IF (Pilihan.EQ.3.) go to 900

IF (Pilihan.GT.3.) go to 12

12     write (*,11)

go to 50

51     write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 50

100   write (*,*)

write (*,*) ‘—————————————–’

write (*,*) ‘——————————————’

write (*,*) ‘                           ============’

write (*,*) ‘                            ==                 ==’

write (*,*) ‘Rumus Menghitung  ==  V=I x R   ==’

write (*,*) ‘    Tegangan           ==                ==’

write (*,*) ‘                             ===========’

write (*,*) ‘————————————————–’

write (*,*) ‘——————————————-’

write (*,*)

103    Write (*,*) ‘masukkan I (Ampere)’

Read (*,*,err=101) I

104    Write (*,*) ‘masukkan R (Ohm)’

Read (*,*,err=102) R

V = I*R

Write (*,2) V

2        Format(1x,’Jadi

Tegangan=’,F10.2,2x,’Volt’,F10.2)

goto 150

101    write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 103

102    write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 104

write (*,*)

200   write (*,*)

write (*,*) ‘—————————————-’

write (*,*) ‘—————————————–’

write (*,*) ‘                           ============’

write (*,*) ‘                            ==                ==’

write (*,*) ‘Rumus Menghitung == W = V x I x t   ==’

write (*,*) ‘    Energi               ==                 ==’

write (*,*) ‘                           ============’

write (*,*) ‘——————————————-’

write (*,*) ‘——————————————’

write (*,*)

write (*,*)

203    Write (*,*) ‘masukkan V (Volt)’

Read (*,*,err=201) V

write (*,*)

204   Write (*,*) ‘masukkan I (Ampere)’

Read (*,*,err=202) I

write (*,*)

goto 152

201   write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 203

202   write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 204

150   write (*,*)

write (*,*) ‘——————————————’

write (*,*) ‘——————————————’

write (*,*) ‘                             ==========’

write (*,*) ‘                             ==              ==’

write (*,*) ‘Rumus Menghitung  == W=V x I x t

==’

write (*,*) ‘    Energi                ==               ==’

write (*,*) ‘                            ===========’

write (*,*) ‘——————————————-’

write (*,*) ‘——————————————-’

write (*,*)

write (*,*)

152   Write (*,*) ‘masukkan t (Detik)’

Read (*,*,err=151) t

W = V*I*t

Write (*,3) W

3       Format(1x,’Jadi Energi =’,F10.2,2x,’Joule’,F6.2)

goto 600

151   write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 152

300   write (*,*)

write (*,*) ‘—————————————–’

write (*,*) ‘—————————————–’

write (*,*) ‘                               ==========’

write (*,*) ‘                               ==         W  ==’

write (*,*) ‘Rumus Menghitung    ==   P =  –  ==’

write (*,*) ‘     Daya                  ==          t   ==’

write (*,*) ‘                               ==========’

write (*,*) ‘—————————————–’

write (*,*) ‘—————————————–’

write (*,*)

303   Write (*,*) ‘masukkan W (Joule)’

Read (*,*,err=301) W

304   Write (*,*) ‘masukkan t (Detik)’

Read (*,*,err=302) t

goto 601

301   write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 303

302   write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 304

600  write (*,*)

write (*,*) ‘—————————————–’

write (*,*) ‘—————————————–’

write (*,*) ‘                            ============’

write (*,*) ‘                            ==           W    ==’

write (*,*) ‘Rumus Menghitung  ==    P =  –    ==’

write (*,*) ‘     Daya                 ==          t     ==’

write (*,*) ‘                          =============’

write (*,*) ‘——————————————–

——’

write (*,*) ‘——————————————–

——’

write (*,*)

601   P = W/t

write (*,*)

write (*,*)

Write (*,4) P

4      Format(1x,’Jadi Daya   =’,F10.2,2x,’Watt’,F6.2)

write (*,*)

write (*,*) ‘——————————————-

——-’

write (*,*) ‘——————————————-

——-’

write (*,*)

700  write (*,*) ‘Tuliskan angka pilihan Anda’

write (*,*) ‘ketik kode angka’

write (*,*) ’1. jika ulang menghitung’

write (*,*) ’2. jika tidak mengulangi perhitungan’

read (*,’(BN,F2.0)’,err=701) pilihan

IF (Pilihan.EQ.1.) go to 111

IF (Pilihan.EQ.2.) go to 900

IF (Pilihan.gt.2.) go to 15

15    write (*,11)

GOTO 700

701   write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 700

write (*,*) ‘——————————————

——–’

write (*,*) ‘——————————————

——–’

write (*,*)

111   write (*,*) ‘Tuliskan angka pilihan Anda’

write (*,*) ‘Mengulang Menghitung’

write (*,*) ‘ketik kode angka’

write (*,*) ’1. V (Tegangan)’

write (*,*) ’2. W (Energi)’

write (*,*) ’3. P (Daya)’

read (*,’(BN,F2.0)’,err=1000) pilihan

IF (Pilihan.EQ.1.) go to 100

IF (Pilihan.EQ.2.) go to 202

IF (Pilihan.EQ.3.) go to 302

IF (Pilihan.GT.3.) go to 112

112   write (*,11)

goto 111

1000  write(*,*)’maaf keyword yang anda masukkan

salah!’

goto 111

900   write(*,5)

5       format (6x,’Calculation Power’,//,11x,’Has

done’,//,6x,

–  ’Matur Thanks You’)

stop

End

Sumber : https://blog.ub.ac.id/kedetautiz/2013/05/30/algoritma-flowchart-list-program/

From → Uncategorized

Tinggalkan sebuah Komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: