Minggu, 20 Februari 2011

Semester 1, Algoritma, Record

PROGRAM Data_Mahasiswa
DEKLARASI
Type biodata : record
                NIM                       : integer
                Nama                    : string
                Jurusan                                : string
                Semester            : integer
                Jumlah_SKS        : integer
dt_mhs.biodata
ALGORITMA
Write(“Masukkan NIM : “)
Read(dt_mhs.biodata : NIM)
Write(“Nama : “)
Read(dt_mhs.biodata : Nama)
Write(“Jurusan : “)
Read(dt_mhs.biodata : Jurusan)
Write(“Semester : “)
Read(dt_mhs.biodata : Semester)
Write(“Jumlah SKS : “)
Read(dt_mhs.biodata : Jumlah_SKS)

Writeln(“NIM : “,dt_mhs.biodata : NIM)
Writeln(“Nama : “,dt_mhs.biodata : Nama)
Writeln(“Jurusan : “,dt_mhs.biodata : Jurusan)
Writeln(“Semester : “,dt_mhs.biodata : Semester)
Write(“Jumlah SKS : “,dt_mhs.biodata : Jumlah_SKS)


PROGRAM Nilai_kelas_1PTI1
DEKLARASI
Type biodata : record
                NIM                                       : integer
                Nama                                    : string
                Tugas, uts, uas, akhir      : real
Nilai_huruf                         : character
Type 1PTI1[1..42] of biodata
Mhs_ubm : 1PTI1
ALGORITMA
For  i ← 1 to 42 do
                Write(“Masukkan NIM ke [ “,I,” ] = “)
                Read(Mhs_ubm[i].NIM)
                Write(”Nama ke [ “, i, “ ] = “)
                Read(Mhs_ubm[i].Nama)
                Write(“Nilai tugas ke [ “, i, “ ] = “)
                Read(Mhs_ubm[i].tugas)
                Write(“Nilai UTS ke [ “, i, “] = “)
                Read(Mhs_ubm[i].uts)
                Write(“Nilai UAS [ “, i, “ ] = “)
                Read(Mhs_ubm[i].uas)
                Mhs_ubm.akhir ← (0.2*Mhs_ubm.tugas)+(0.3*Mhs_ubm.uts)+(0.5*Mhs_ubm.uas)
Endfor
If(Mhs_ubm.akhir <= 100) && (Mhs_ubm.akhir >= 80)
Mhs_ubm.Nilai_huruf ← ‘A’
Else if(Mhs_ubm.akhir <= 79) && (Mhs_ubm.akhir >= 68)
                Mhs_ubm.Nilai_huruf ← ‘B’
Else if(Mhs_ubm.akhir <= 67) && (Mhs_ubm.akhir >= 56)
                                Mhs_ubm.Nilai_huruf ← ‘C’
Else if (Mhs_ubm.akhir <= 55) && (Mhs_ubm.akhir >= 46)
                                                Mhs_ubm.Nilai_huruf ← ‘D’
Else if (Mhs_ubm.akhir <= 45) && (Mhs_ubm.akhir >= 0)
                                                                Mhs_ubm.Nilai_huruf ← ‘E’
                                                                Endif
                                                Endif
                                Endif
                Endif
Endif
For i ← 1 to 42 do
Write( i, “. Nilai ke [ “, i, “ ] = ”, Mhs_ubm.akhir[i])






Buatlah sebuag algoritma dengan metode record untuk membuat tampilan sbb:
Kode barang
Nama barang
Tipe barang
Harga
Harga baru :        *jika barang diatas 100.000 dan bukan tipe cair, maka naiknya  harga 20% + harga + ongkos kirim selain itu naiknya 10.000
*jika barang dibawah 100.000 atau barang di atas 0 dan bertipe cair maka ongkos kirim 9.000 selain itu ,maka ongkos kirim, 8.000

Type barang : record
                Kode_barang     : integer
                Nama_barang   : string
                Tipe_barang       : string
                Harga                    : integer
                Harga_baru        : integer
                Ongkir                   : integer
Barang : jenis_barang
                Write(“Masukkan kode barang : “,barang.Kode_barang)
                Read(barang.kode_barang)
                Write(“Nama barang : “,barang.Nama_barang)
                Read(barang.nama_barang)
                Write(“Tipe barang  : “,barang.Tipe_barang)
                Read(barang.tipe_barang)
                Write(“Harga : “,barang.harga)
                Read(barang.Harga)
                If(100000 <= barang.Tipe_barang cair)
                                Harga_baru (barang.harga*0.2) + barang.harga + 8000
                Else
                                Harga_baru (barang.harga*0.2) + barang.harga + 9000
               
                Writeln(“Kode Barang : “,barang.Kode_barang)
                Writeln(“Nama Barang : “,barang,Nama_barang)
                Writeln(“Tipe Barang : “,barang.Tipe_barang)
                Writeln(“Harga : “,barang.Harga)
                Write(“Harga + Biaya Ongkos Kirim : “,barang.Harga_baru)


Buatlah algoritma yang mempunyai tampilan layar seperti ini
Masukkan nama anda
Masukkan tanggal anda lahir
Masukkan bulan anda lahir
Bintang anda adalah
1.         Aries                      : 21 mar - 20 apr                 jan         feb         mar        apr         mei        jun         jul           ags         sep                                                                                                         1                 2           3              4              5              6              7              8              9
                                                                                okt         nov        des        
                                                                                10           11           12
2.       Taurus                  : 21 apr - 21mei   
3.       Gemini                 : 22 mei – 21 jun
4.       Cancer                  : 22 jun – 22 jul
5.       Leo                         : 23 jul – 22 agust
6.       Virgo                     : 22 agust – 22 sept
7.       Libra                      : 24 sep – 23 okt
8.       Scorpion              : 24 okto – 22 nov
9.       Sagitarius             : 23 nov – 21 des
10.   Capricon              : 22 des – 20 jan
11.   Aquarius              : 21 jan – 19 feb
12.   Pisces                    : 20 feb – 20 mar

PROGRAM Ramalan_bintang
DEKLARASI
Type zodiak : array [1..12] of integer
Bintang : zodiak
For i 1 to 12 do
                Write(“Masukkan Nama ke [ “, i, “ ] = “)
                Read(Bintang[i])
                Write(“Tanggal lahir ke [ “ , i, “ ] = “)
                Read(Bintang[i])
                Write(Bulan lahir ke [ “ , i, “ ] = “)
                Read(Bintang[i])
               

Tidak ada komentar:

Posting Komentar