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)