Selasa, 24 Maret 2009
Minggu, 15 Maret 2009
Rabu, 04 Maret 2009
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 = ‘
Harga = 90.000
Else
If (tujuan = ‘
Harga = 75.000
Else
If (tujuan = ‘
Harga = 120.000
Else
If (tujuan = ‘
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
}
Senin, 02 Maret 2009
biMbang,,g bGdz dEgh..
curhat naon nya,,,mni gda inspirasi gtu hohoho,,,,
hri ini nia kpikiran agy ma tu c0,,,nia tau nia g pntes bgd ma dia,,,secara gitu dia rang'a ganteng,pinter,baek,'n iank pasti tajir heu",,
tapi jujur,,,nia kaya g nhan gtu klo inget dia tegh...bwaan'a pngen ktemu trus,,,pdhal spa lo spa gue he",,dia indah wt nia,,di perfect bgd degh,,,tpi lbh bnyak juga ce iank perfect wt dia heu"..
mufin nia dra,,,nia g bs b00ng...klo nia bharap bgd bs jd pcar dia ha",,,,
tp kmu hrs pcaya ma nia,,,nia sangat sayang ma kmu...mlebihi dia,,,,
nia ttep cinta ma kmu dra,,,,nia gmo ngehianatin kmu agy....
hri ini nia kpikiran agy ma tu c0,,,nia tau nia g pntes bgd ma dia,,,secara gitu dia rang'a ganteng,pinter,baek,'n iank pasti tajir heu",,
tapi jujur,,,nia kaya g nhan gtu klo inget dia tegh...bwaan'a pngen ktemu trus,,,pdhal spa lo spa gue he",,dia indah wt nia,,di perfect bgd degh,,,tpi lbh bnyak juga ce iank perfect wt dia heu"..
mufin nia dra,,,nia g bs b00ng...klo nia bharap bgd bs jd pcar dia ha",,,,
tp kmu hrs pcaya ma nia,,,nia sangat sayang ma kmu...mlebihi dia,,,,
nia ttep cinta ma kmu dra,,,,nia gmo ngehianatin kmu agy....
Langganan:
Postingan (Atom)