Contoh Soal UTS Pemprograman Pascal Gasal 2023 Reguler Sore

Ilmuit.id  -  Contoh Soal UTS Pemprograman Pascal Gasal 2023 Reguler Sore, Contoh soal uts untuk pemrograman pascal dibawah ini sekedar sharing, Karena tidak semua soal sama tetapi dengan latihan dan praktek  terus menurus maka  nantinya semoga kita kan terbiasa.

1. berikan penjelasan tentang apakah perbedana variabel dengan konstanta pada pemrorogramanpascal dan jelaskan cara penulisanya ?

Jawab : 

ariabel dan konstanta adalah dua konsep dasar dalam pemrograman Pascal yang memiliki perbedaan signifikan.

• Variabel:Variabel adalah suatu simbol yang digunakan untuk menyimpan dan merepresentasikan nilai yang dapat berubah selama jalannya program.

• Nilai variabel dapat diubah selama eksekusi program.

• Untuk mendeklarasikan variabel, gunakan pernyataan seperti var di blok deklarasi.

 Contohnya:

var

  nilai: integer; // deklarasi variabel bertipe integer

Nilai variabel bisa diubah selama eksekusi program, misalnya:

nilai := 10; // memberi nilai 10 pada variabel 'nilai'

Konstanta:

Konstanta adalah suatu nilai yang tetap selama jalannya program dan tidak dapat diubah.

Nilai konstanta harus ditetapkan pada saat deklarasi dan tidak dapat diubah selama eksekusi program.

Untuk mendeklarasikan konstanta, gunakan pernyataan seperti const di blok deklarasi. Contohnya:

const

PI = 3.14; // deklarasi konstanta PI dengan nilai 3.14

PI := 3.1416; // ini akan menghasilkan kesalahan karena PI bersifat konstan

Jadi, perbedaan utama antara variabel dan konstanta terletak pada kemampuan perubahan nilai. Variabel dapat diubah selama eksekusi program, sedangkan konstanta nilainya tetap sepanjang program berjalan.

2. Buatlah program pascal untuk menghitung besaran komisi yang d iterima oleh sales man berdasar hasil penjualannya . inputan berupa nama dan nilai penjualan dimana komisi bisa di ubah ?

program HitungKomisi;

var

  namaSales: string;

  nilaiPenjualan, persentaseKomisi, komisi: real;

begin

  // Input

  write('Masukkan nama sales: ');

  readln(namaSales);

  write('Masukkan nilai penjualan: ');

  readln(nilaiPenjualan);

  write('Masukkan persentase komisi: ');

  readln(persentaseKomisi);

  // Menghitung komisi

  komisi := nilaiPenjualan * (persentaseKomisi / 100);

  // Output

  writeln('Nama Sales: ', namaSales);

  writeln('Nilai Penjualan: ', nilaiPenjualan:0:2);

  writeln('Persentase Komisi: ', persentaseKomisi:0:2, '%');

  writeln('Komisi yang diterima: ', komisi:0:2);

  readln;

end.

Output :

Anda dapat menyesuaikan persentase komisi sesuai kebutuhan. Program ini akan menghitung komisi berdasarkan nilai penjualan yang dimasukkan dan persentase komisi yang telah ditetapkan.

3. Buatlah program pascal menghitung nilai rata rata seoarng  mahasiswa serat menetukan nilai  kelulusanya dan predikat akhir. 

• Dengan ketentuan kelulusan nilai rata rata dibawah 0-70  tidak lulus, 71 - 100 lulus. 
• Ketentuan predikat : 91 - 100 sangat memuaskan, 81 - 90 memuaskan, 71 - 80 baik, 61 - 70 cukup, 0 - 60 kurang. inputan adalah nilai rata rata. ?

Jawab : 

program NilaiMahasiswa;

var

  nilaiRataRata: real;

  kelulusan: string;

  predikat: string;

begin

  // Input nilai rata-rata mahasiswa

  write('Masukkan nilai rata-rata mahasiswa: ');

  readln(nilaiRataRata);

  // Menentukan kelulusan

  if (nilaiRataRata >= 0) and (nilaiRataRata <= 70) then

    kelulusan := 'Tidak Lulus'

  else if (nilaiRataRata >= 71) and (nilaiRataRata <= 100) then

    kelulusan := 'Lulus'

  else

    kelulusan := 'Nilai tidak valid';

  // Menentukan predikat akhir

  if (nilaiRataRata >= 91) and (nilaiRataRata <= 100) then

    predikat := 'Sangat Memuaskan'

  else if (nilaiRataRata >= 81) and (nilaiRataRata <= 90) then

    predikat := 'Memuaskan'

  else if (nilaiRataRata >= 71) and (nilaiRataRata <= 80) then

    predikat := 'Baik'

  else if (nilaiRataRata >= 61) and (nilaiRataRata <= 70) then

    predikat := 'Cukup'

  else if (nilaiRataRata >= 0) and (nilaiRataRata <= 60) then

    predikat := 'Kurang'

  else

    predikat := 'Predikat tidak valid';

  // Output hasil

  writeln('Kelulusan: ', kelulusan);

  writeln('Predikat Akhir: ', predikat);

  readln;

end.