Latihan Dan Soal Untuk Program Penyeleksian Kondisi Pascal (Bagian 1)

1. Buatlah program untuk menghitung sewa sebuah Angkutan yang harga untuk 1 Km pertama Rp.4500 dan selanjutnya 2000/Km ?

Jawab :

   program Sewa_Angkutan;

   uses crt;

   const

     pertama = 4500;

     lanjut  = 2000;

   var

     jarak,bayar : longint;

   begin

     clrscr;

     writeln('      PROGRAM SEWA ANGKUTAN      ');

     writeln('---------------------------------');

     writeln;

     write('Jarak Tempuh (Km) = ');readln(jarak);

     if jarak > 1 then

        begin

             bayar:=pertama + (jarak * lanjut);

        end

     else

         bayar := pertama;

     writeln('Bayar = Rp. ',bayar);

   readln;

   end.

gambar di Pascal

     

       Hasil Program:

2. Buatlah algoritma untuk menentukan bilangan terbesar dari tiga buah bilangan bulat yang dimasukkan melalui piranti masukan. (Asumsi: ketiga bilangan adalah bilangan yang berbeda)

Contoh keluaran yang diinginkan;  
   Masukkan Bilangan Pertama  : 4
   Masukkan Bilangan Kedua    : 2
   Masukkan Bilangan Ketiga   : 7
   Bilangan Yang Terbesar     : 7

Jawab :

   program Mengetahui_Bilangan_Terbesar;
   uses crt;
   var
      bil1,bil2,bil3:longint;
   begin
      clrscr;
      writeln('   MENGETAHUI BILANGAN TERBESAR   ');
      writeln('----------------------------------');
      writeln;
      write('Masukkan Bilangan Pertama : ');readln(bil1);

      write('Masukkan Bilangan Kedua   : ');readln(bil2);

      write('Masukkan Bilangan Ketiga  : ');readln(bil3);

      writeln('----------------------------------');

      writeln;

      if (bil1 > bil2) and (bil1 > bil3) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil1);

      end

      else if (bil2 > bil1) and (bil2 > bil3) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil2);

      end

      else if(bil3 > bil1) and (bil3 > bil2) then

      begin

        writeln('Bilangan Yang Terbesar    : ', bil3);

      end;

      writeln;

      writeln('----------------------------------');

   readln;

   end.

Gambar di Pascal

   Hasil Program:

Lanjut ke Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 2)