Semester 1, Algoritma

Function Menu

PROGRAM Menu

DEKLARASI

Type menu1 : record

< 

Kode : integer

nama : string

harga : integer

hjual : integer

> 

Menu : menu1

Type makanan2 : array [1..5] of menu1

Makanan : makanan2

type menu2 : record

< 

kode : integer

Nama : string

hbahan1 : integer

hbahan2 : integer

hbahan3 : integer

hargatotal : integer

> 

menu : menu2

type minuman2 : array [1..5] of menu2

minuman : minuman2

x:integer

Procedure menu_makanan(input makanan[i]:menu1)

Procedure menu_minuman(minuman[i]:menu2)

ALGORITMA

Writeln(“Selamat Datang”)

Writeln(“1 = Makanan, 2 = Minuman”)

Write(“Masukkan Pilihan Anda = “)

Read(x)

If (x == 1)

menu_makanan(makanan)

else

menu_minuman(minuman)

endif

Procedure menu_makanan(input makanan : menu1)

k.awal : menerima input makanan

k.akhir : keluaran harga

DEKLARASI

Y : bool

X : char

harga_jual : integer

i : integer

Function makanan1(makanan : menu1) à real

ALGORITMA

For i ß 1 to 5 do

Y = true

repeat

Write(“KODE = “)

Read(makanan[i].kode)

Write(“Nama = “)

Read(makanan[i].nama)

Write(“Harga = “)

Read(makanan[i].harga)

 harga_jualßmakanan1(makanan[i])

write(“Tambah Y/N = “)

read(x)

if(x=’y’) then

y = true

else

y = false

endif

until(y = false)

Write(“Kode = “,makanan[i].kode)

Write(“Nama = “,makanan[i].nama)

Write(“ Harga = “,makanan[i].harga)

Write(“Harga Jual = “,harga_jual)

Endfor

Function makanan1(makanan[i]:menu1)àreal

ALGORITMA

Makanan[i].hjualßmakanan[i].harga+(makanan[i].harga*0,1)

Procedure menu_minuman(minuman[i] : menu2)

k.awal : mendapat inputan

k.akhir : tampilan menu minuman

DEKLARASI

Function minuman1(minuman[i]:menu2) à menu2

Y = bool

X = char

I =  integer

harga_total = integer

ALGORITMA

For I ß1 to 5 do

Y = true

repeat

Write(“KODE                      = “)

Read(minuman[i].kode)

Write(“Nama                     = “)

Read(minuman[i].nama)

Write(“Harga bahan 1    = “)

Read(minuman[i].hbahan1)

Write(“Harga bahan 2    = “)

Read(minuman[i].hbahan2)

Write(“Harga bahan 3    = “)

harga_total ßminuman1(minuman[i])

Write(“Mau Tambah Y/N = ”)

If(X=’Y’)

Y = true

Else

Y = false

Endif

Until(y = false)

Write(“KODE                      = “,minuman[i].kode)

Write(“Nama                     = “,minuman[i].nama)

Write(“Harga bahan 1    = “,minuman[i].hbahan1)

Write(“Harga bahan 2    = “,minuman[i].hbahan2)

Write(“Harga bahan 3    = “,minuman[i].hbahan3)

Write(“Harga Total          = “,harga_total)

endfor

Function minuman1(minuman[i] : menu2)àmenu2

ALGORITMA

Minuman[i].hargatotalßminuman[i].hbahan1+minuman[i].hbahan2+minuman[i].hbahan3

PROCEDURE

Program Menu_makanan_minuman

DEKLARASI

Type menu1 : record

< 

Kode : integer

Nama : string

Harga : integer

Hjual : real

> 

Makanan : menu1

type menu2 : record

< 

Kode : integer

nama: string

hbahan1 : integer

hbahan2 : integer

hbahan3 : integer

hargatotal : integer>

minuman : menu2

x : integer

Procedure menu_makanan(input makanan:menu1)

Procedure menu_minuman(input minuman:menu2)

ALGORITMA

Writeln(“Selamat datang”)

Writeln(“1 = makanan    2 = Minuman)

Write(“Masukkan pilihan anda = “)

Read(x)

If (x==1) then

menu_makanan(makanan)

else

menu_minuman(minuman)

endif

Procedure menu_makanan(input makanan:menu1)

k.awal : menerima inut kode,nama,harga,harga jual

k.akhir : menampilkan keluaran yg diminta

DEKLARASI

Y : bool

X : char

ALGORITMA

Y = true

repeat

Write(“Kode                      = “)

Read(makanan.kode)

Write(“Nama                     = “)

Read(makanan.nama)

Write(“Harga                     = “)

Read(makanan.harga)

makanan.hjualßmakanan.harga+(makanan.harga*0.1)

write(“ Mau tambah order Y/N = “)

if(X=’Y’)

Y=true

Else

Y = false

Endif

Until(Y=false)

Writeln(“Kode                   = “,makanan.kode)

Writeln(“Nama                 = “,makanan.nama)

Writeln(“Harga                  = “,makanan.harga)

Write(“Harga jual             = “,makanan.hjual)

Procedure menu_minuman(input minuman:menu2)

k.awal : menerima inut kode,nama,harga,harga jual

k.akhir : menampilkan keluaran yg diminta

DEKLARASI

Y : bool

X : char

ALGORITMA

Y = true

repeat

Write(“Kode                      = “)

Read(minuman.kode)

Write(“Nama                     = “)

Read(minuman.nama)

Write(“Harga bahan 1    = “)

Read(minuman.hbahan1)

Write(“Harga bahan 2    = “)

Read(minuman.hbahan2)

Write(“Harga bahan 3    = “)

Read(minuman.hbahan3)

minman.hargatotalßminuman.hbahan1+minuman.hbahan2+minuman.hbahan3

write(“ Mau tambah order Y/N = “)

if(X=’Y’)

Y = true

Else

Y = false

Endif

Until(Y = false)

Writeln(“Kode                   = “,minuman.kode)

Writeln(“Nama                 = “,minuman.nama)

Writeln(“Harga bahan 1 = “,minuman.hbahan1)

Write(“Harga bahan 2    = “,minuman.hbahan2)

Write(“Harga bahan 3    = “,minuman.hbahan3)

Write(“Harga total           = “,minuman.hargatotal)

FUNGSI

Program Menu_makanan_minuman

DEKLARASI

Type menu1:record

< 

Kode : integer

Nama : string

Harga : integer

Hjual : rea

l>

makanan : menu1

type menu2 : record

< 

Kode : integer

Nama : string

hbahan1 : integer

hbahan2 : integer

hbahan3 : integer

hargatotal : integer>

minuman : menu2

x : integer

Function menu_makanan(input makanan:menu1)àmenu1

Function menu_minuman(input minuman:menu2)à menu2

ALGORITMA

Writeln(“Selamat datang”)

Writeln(“1 = makanan    2 = Minuman)

Write(“Masukkan pilihan anda = “)

Read(x)

If (x==1) then

menu_makanan(makanan)

else

menu_minuman(minuman)

endif

Function menu_makanan(input makanan:menu1)àmenu1

DEKLARASI

Y : bool

X : char

ALGORITMA

Y = true

repeat

Write(“Kode                      = “)

Read(makanan.kode)

Write(“Nama                     = “)

Read(makanan.nama)

Write(“Harga                     = “)

Read(makanan.harga)

makanan.hjualßmakanan.harga+(makanan.harga*0.1)

write(“ Mau tambah order Y/N = “)

if(X=’Y’)

Y = true

Else

Y = false

Endif

Until(Y=false)

Writeln(“Kode                   = “,makanan.kode)

Writeln(“Nama                 = “,makanan.nama)

Writeln(“Harga                  = “,makanan.harga)

Write(“Harga jual             = “,makanan.hjual)

Function menu_minuman(input minuman:menu2)àmenu2

DEKLARASI

Y : bool

X : char

ALGORITMA

Y=true

repeat

Write(“Kode                      = “)

Read(minuman.kode)

Write(“Nama                     = “)

Read(minuman.nama)

Write(“Harga bahan 1    = “)

Read(minuman.hbahan1)

Write(“Harga bahan 2    = “)

Read(minuman.hbahan2)

Write(“Harga bahan 3    = “)

Read(minuman.hbahan3)

minman.hargatotalßminuman.hbahan1+minuman.hbahan2+minuman.hbahan3

write(“ Mau tambah order Y/N = “)

if(X=’Y’)

Y=true

Else

Y=false

Endif

Until(Y=false)

Writeln(“Kode                   = “,minuman.kode)

Writeln(“Nama                 = “,minuman.nama)

Writeln(“Harga bahan 1 = “,minuman.hbahan1)

Write(“Harga bahan 2    = “,minuman.hbahan2)

Write(“Harga bahan 3    = “,minuman.hbahan3)

Write(“Harga total           = “,minuman.hargatotal)