Skip to content Skip to sidebar Skip to footer

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 :

Output program Hitung Komisi pemrograman pascal

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.

output program kelulusna dan predikat

Post a Comment for "Contoh Soal UTS Pemprograman Pascal Gasal 2023 Reguler Sore"