Minggu, 15 Januari 2012

ALOGRITMA


(PROSEDURE)

SOAL NYA
1.       Buatlah program untuk menghitung berbagai luas dengan menggunakan procedure ?
2.       Buat procedure yang menghasilkan nilai rata-rata sekumpulan data bilangan bulat yang dibaca secara berulang-ulang dari keyboard(akhir pembacaan dalah 9999).prosedur ini memiliki parameter keluaran,yaitu nilai rata-rata yang di hasilkan ?


JAWAB

1.       MENCARI LUAS PERSEGI PANJANG memakai  input

Prosedur luas_persegi_panjang (input,panjang,lebar:interger)
Deklarasi:
    Luas : real
Algoritma
   Luas<= panjang*lebar
  Write(‘luas persegi panjang =’,luas)
MNCARI LUAS LAYANG-LAYANG memakai  output

 Procedure luas_layang_layang(output    Luas:real)
Dekarasi:
   d1,d2:integer
algoritma
write(‘masukan d1:’);read(d1)
write(‘masukan d2:’);read(d2)
luas<= d1/d2

MENCARI LUAS LIMAS SEGI EMPAT memakai   INPUT&OUTPUT
Prosedure luas_limas_segi_empat ( input panjang,lebar,tinggi:integer ,output luas:real)
Dekarasi
Algoritma :
  - Luas <= (panjang + lebar)* tinggi + (panjang * lebar)

Program  contoh_prosedure
Dekarasi:

Procedure luas_persegi_panjang(input panjang,lebar:integer)
Nilai1,nilai2 :integer


procedure luas_layang_layang(output luas:real)
nilai1,nilai2:integer
LLy:real

Prosedur luas_segi_empat ( input panjang,lebar,tinggi:integer ,output luas:real)
Nilai1,nilai2,nilai3 : integer
LSE:real

Algoritma :

Write(‘masukan panjang:’); read(nilai 1)
Write(‘masukan lebar:’); read(nilai 2)
Luas_persegi_panjang(LPP)

Luas_layang_layang(LLy)
Write(luas_layang_layang:’LLy)

Luas_segi_empat(nilai1,nilai2,nilai3,LSE)




2.        
Prosedur nilai_rata_rata ( input i,x : integer ,output:rata_rata:real)
Dekalarasi :
Algoritma :
  Jumlah <= 0   i<=0
 While x ≠ 9999 do
  i<=  i+x
  end while
 rt<=i/jumlah

program  contoh procedure
dekalarasi :
prosedur nilai_rata_rata(input I,x:integer,output : rata_rata_:real)
i=total
x=jumlah
alogitma :
read(x)
nilai_rata_rata(total,nilai,rt)
Write(rata_rata:,rt)

Tidak ada komentar:

Poskan Komentar

Gadget

Konten ini belum tersedia melalui sambungan terenkripsi.

Gadget

Konten ini belum tersedia melalui sambungan terenkripsi.
 
;