Skip to main content

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:



Labels:
Location: Makassar, Sulawesi Selatan, Indonesia

Comments

Post a Comment

Popular posts from this blog

Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy. Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat. Berikut pemakaian gotoxy pada program pascal. uses crt ; type     mahasiswa = record ;     nim    : string[8] ;     nama   : string[30] ;     jenjang: string[2] ;     prodi  : string[30] ;     Nilai  : byte ;     end; var    recMhs : array[1..30] of mahasiswa ;    ket    : string[10];    i      : byte ; Begin      for i:= 1 to 12 do      begin           Write('NIM       : '); readln(recMhs[i].nim) ;           Write('Nama      : '); readln(recMhs[i
Post a Comment
Baca selengkapnya....

Contoh Program Perkalian Menggunakan FOR BERSARANG Pada Turbo Pascal

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan for dalam for atau sering disebut juga dengan for bersarang. Kode Program: program buat_kolom_baris;   {for bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 0;    for a := 1 to 10 do    begin      for b := 1 to 5 do      begin      write (a:5,'*',b,'=',(a*b):2);      end;    writeln;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________'); readln; end. Hasil Program: Selamat Mencoba,, semoga berhasil... ^_^
Post a Comment
Baca selengkapnya....

Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo Pascal

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan while dalam while atau sering disebut juga dengan while bersarang. Kode Program: program buat_kolom_baris;   {while dalam while}{while bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 1;    while a <= 10 do    begin       b := 1;       while b <= 5 do       begin       write (a:5,'*',b,'=',(a*b):2);       b := b + 1;       end;    writeln;    a := a + 1;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________');    readln; end. Hasil Program: Semoga artikel Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo Pascal ini
Post a Comment
Baca selengkapnya....