LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 1)

LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 1)

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

  Nah 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.

     Tampilannya akan seperti di bawah ini.

     Dan Tampilan Hasilnya akan seperti di bawah ini

      Itulah contoh latihan membuat program sewa angkutan, Berikut ini saya berikan contoh                     latihan    lagi program untuk menentukan bilangan terbesar dan terkecil. berikut contohnya.

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.

   Kalau sudah maka tampilan programnya akan seperti dibawah ini

   

   Dan tampilan hasilnya akan seperti di bawah ini

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 1)

LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 1) 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang LATIHAN -LATIHAN PENYELEKSIAN KONDISI PADA PASCAL (Bagian 1). Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: