Algoritma & Pemrograman 1 ( Latihan - Latihan Penyeleksian Pada Pascal ) "Part 1"

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

    Kemudian untuk membuat programnya ketikkan scrip di bawah ini di pascal

   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.

  jika sudah di ketik maka Hasilnya seperti di bawah ini :

 Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya 

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

Langsung saja ketikan scrib di bawah in di pascalnya.

   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.

     jika sudah di ketik maka Hasilnya seperti di bawah ini :

 Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya