gg connect, ,

ru dBuka agy negh blog nna, ,asa tnendd. .

wHat???

i giVe U My heArt..

daLem iia,,!!!!!!!

ApA??????

buaT_Lo

Tugas aLgoriTma 2

Kamus

Type

Data : Record

Nama : string

Alamat : string

Tujuan : string

Kelas : string

Harga : real

Jumlah_beli : integer

Total_harga : real

Tiket : array [1..100] of Data

VAR

A : Tiket

I,j,jumlah_data : byte

Tukar : data

Procedure Input

{

With A [i] Do

{

Readln (nama,alamat,tujuan,kelas,jumlah_beli)

}

}

Procedure Proses

{

With A [i] Do

{

If (tujuan = ‘Bandung’) and (kelas = ‘VVIP’) then

Harga = 90.000

Else

If (tujuan = ‘Bandung’) and (kelas = ‘VIP’) then

Harga = 75.000

Else

If (tujuan = ‘Jakarta’) and (kelas = ‘VVIP’) then

Harga = 120.000

Else

If (tujuan = ‘Jakarta’) and (kelas = ‘VIP’) then

Harga = 90.000

Total_harga = harga * jumlah_beli

}

}

Procedure Urut

{

For I = 1 to jumlah_data -1 Do

For j = 1 to jumlah_data –I Do

{

If A [j]. Nama > A [j+1]. Nama then

Tukar = A [j]

A [j] = A [j+1]

A [j+1] = tukar

}

}

Procedure Output

{

Writeln (‘_____________________________________________’)

Writeln (‘nama alamat tujuan kelas harga jumlah_beli total_harga’)

Writeln (‘_____________________________________________’)

For I = 1 to jumlah_data Do

{

With A [i] Do

Writeln ( nama, alamat, tujuan, kelas, harga, jumlah_beli, total_harga)

}

Writeln (‘_____________________________________________’)

}

Algoritma Utama

{

Readln (jumlah_data)

For I = 1 to jumlah_data Do

{

Input

Proses

}

Urut

Output

}