Contoh Algoritma ADT [Tugas Kelompok]

Algoritma model

Contoh Algoritma ADT [Tugas Kelompok],Program ticket konser,Seperti yang sudah saya jelaskan kemarin di postingan kemarin yang membahas tentang ADT, kinisaat nya saya berbagi jawaban Tugas yang nyuruh kami untuk membuat Algoritma tapi dengan cattan contoh di bawah ini belum menjamin benar 100% karena kami juga baru belajar (jujur ane belum ngerti 100%) , dan tidak banyak ngomong lagi monggo disimak algoritma tiketing konser yang mengunakan TYPE dan Primitif,

Judul_Program Tiket_Konser

Algoritma:

          type tiketKonser: < nama_konser : string,

                                                         kode_konser : string,

                                                         jadwal_konser : string,

                                                         tipe_kelas : string,

                                                         harga_tiket : string,

                                                         quota : integer >

                                                        

          T : array [1..4] of tiketKonser

         

          type datapembeli: < nama_pembeli : string,

                                                         kode_pembelian : string >

                                                        

          D : array [1..9999] datapembeli

          jumlah_pembeli : integer

         

          pilihan : integer;

         

          procedure lihatKonser()

          procedure beliTiket()

          function  buatKodePembelian( T : tiketKonser) -> string

         

Kamus:

          T[1].nama_konser <- "Didi Kempot Show"

          T[1].kode_konser <- "A1"

          T[1].jadwal_konser <- "31 Februari 2013 - pukul 25.00"

          T[1].tipe_kelas <- "Festival"

          T[1].harga_tiket <- "Rp 500.000,-"

          T[1].quota <- 999

         

          T[2].nama_konser <- "Didi Kempot Show"

          T[2].kode_konser <- "A2"

          T[2].jadwal_konser <- "31 Februari 2013 - pukul 25.00"

          T[2].tipe_kelas <- "Tribun"

          T[2].harga_tiket <- "Rp 300.000,-"

          T[2].quota <- 666

         

          T[3].nama_konser <- "Mbah Surip Resurrection"

          T[3].kode_konser <- "B1"

          T[3].jadwal_konser <- "30 Februari 2013 - pukul 23.00"

          T[3].tipe_kelas <- "Festival"

          T[3].harga_tiket <- "Rp 700.000,-"

          T[3].quota <- 1313

         

          T[4].nama_konser <- "Mbah Surip Resurrection"

          T[4].kode_konser <- "B2"

          T[4].jadwal_konser <- "30 Februari 2013 - pukul 23.00"

          T[4].tipe_kelas <- "Tribun"

          T[4].harga_tiket <- "Rp 400.000,-"

          T[4].quota <- 444

         

          Output("1. Lihat konser")

          Output("2. Beli tiket")

          Output("Masukkan pilihan")

         

          Input(pilihan)

          if (pilihan = 1) then

                   lihatKonser()

          else

          if (pilihan = 2) then

                   beliTiket()

          else

                   Output("Pilihan tidak adaaaaaaa! coba lagiii")

         

         

         

         

         

         

         

PROCEDURE lihatKonser()

Kamus lokal: -

Algoritma:

          i transversal [1..4]

                   Output(T[i].nama_konser)

                   Output(T[i].kode_konser)

                   Output(T[i].jadwal_konser)

                   Output(T[i].tipe_kelas)

                   Output(T[i].harga_tiket)

                   Output(T[i].quota <- 444)

                  

                  

                  

                  

                  

                  

                  

PROCEDURE beliTiket()

Kamus lokal:

          nama, kode : string

          kodeBeli : string

          x : integer

         

Algoritma:

          Output("Masukkan nama")

          Input(nama)

          Output("Masukkan kode konser : ")

          Input(kode)

          ißcarikode(kode)

          T[i].quota <- T[i].quota-1

                   x <- i

                    jumlah_pembeli <- jumlah_pembeli+1

         

          kodeBeli <- buatKodePembelian( T[x] )

         

          Output("Anda telah memesan tiket dengan detail sebagai berikut")

          Output(T[x].nama_konser)

          Output(T[x].kode_konser)

          Output(T[x].jadwal_konser)

          Output(T[x].tipe_kelas)

          Output("Kode pembelian anda adalah ", kodeBeli)

         

          D[jumlah_pembeli].nama_pembeli <- nama

          D[jumlah_pembeli].kode_pembeli <- kodeBeli

         

         

         

         

FUNCTION buatKodePembelian( T : tiketKonser) -> string

Kamus lokal:

          a, b, c : string

         

Algoritma:

          a <- T.kode_konser

          b <- T.tipe_kelas

          c <- intToStr(T.quota+1)

                   -> (a,b,c)

         

         

         

         

FUNCTION carikode( kodekonser : string) à integer

Algoritma :

          carikode transversal[1..4]

                   if (kodekonser = T[i].kode_konser) then

                            àcarikode

Tim Kelompok :
- Hazmi
- Rahmi
- Aldi
- Danang Dwi
- Danang Adrianto