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