Alpro (algoritma dan pemrograman) bagian 1

dikarenakan admin yang belajar tentang pemrograman, maka admin akan memberikan apa yang sudah admin dapatkan dan membaginya disini, karena setiap ilmu yang dibagikan maka ilmu tersebut akan semakin berlipat ganda

• program menentukan nilai terbesar dan nilai terkecil dgn inputan 3 bilangan                             program TerbesarTerkecilABC;
  var
  a,b,c,terbesar,terkecil:integer;
  begin
     writeln('Masukkan 3 Buah bilangan');
     write('Masukan nilai a : ');
     readln(a);
     write('Masukan nilai b : ');
     readln(b);
     write('Masukan nilai c : ');
     readln(c);
     if (a > b) then
                 terbesar:= a
                 else terbesar:=b;
                 if (terbesar > c) then
                 terbesar:= terbesar
                 else terbesar:= c;
      if (a > b) then
                 terkecil:= b
                 else terkecil:=a;
                 if (terkecil > c) then
                 terkecil:= c
                 else terkecil:= terkecil;
                 write ('Jadi Bilangan Terbesarnya Adalah :',terbesar);
                 write ('Jadi Bilangan Terkecilnya Adalah :',terkecil);
                 readln()
  end.            .      

•  program menentukan biaya parkir kendaraan motor / mobil. dengan perhitungan jam dan menit.   program BiayaParkiran;
  
  program BiayaParkiran;
  
  var
  jam1 , menit1 : integer ;
  jam2 , menit2 : integer ;
  jam3, menit3 : integer ;
  total1, total2, total : integer;
  pilih : char ;
  tarif1 :integer;
  tarif2 : integer;
  bayar : integer;
  
  begin
  
    writeln('Pilih Jenis kendaraan : ') ;
    writeln('1. Mobil' );
    writeln('2. Motor');
    write('Pilihan Anda : ');
    readln(pilih);
  
  
    writeln('Masukkan waktu masuk') ;
    write('Jam : ');
    readln(jam1);
    write(' Menit ');
    readln(menit1);
    writeln('Masukkan waktu keluar');
    write('Jam : ');
    readln(jam2);
    write(' Menit ');
    readln(menit2);
  
    total1 := jam1 * 60 + menit1;
    total2 := jam2 * 60 + menit2;
    total  := (total2 - total1) div 60  ;
  
    if (pilih = '1') then
      begin
       if total<=2 then
          bayar :=5000 else
          bayar :=5000 + (2500*(total-2));
  
          if total >= 24 then
             bayar:= 5000 ;
          end else
  
    if (pilih = '2') then
      begin
       if total<=2 then
          bayar:=1000
       else
          bayar:=1000+(1500*(total-2));
    if total >=24 then
       bayar := 15000;
    end;
    jam3 := total   ;
    writeln('Waktu masuk : ',jam1,':',menit1);
    writeln('Waktu keluar : ',jam2,':',menit2);
    writeln;
    writeln('Durasi : ',jam3,':');
    writeln('Bayar   : Rp.',':',bayar);
  
    readln();
  end.

• program untuk menentukan siapa yag lebih tua dengan menasukan tanggal lahir org ke 1 dan tanggal lahir orang ke 2  program MudaTua;
  var tanggal1 :integer;
      tanggal2 :integer;
      bulan1 :integer;
      bulan2 :integer;
      tahun1 :integer;
      tahun2 :integer;
  begin
      writeln('perbandingan usia');
      write('tanggal1, bulan1, tahun1 : ');
      readln(tanggal1,bulan1,tahun1);
      write('tanggal2, bulan2, tahun2 : ');
      readln(tanggal2,bulan2,tahun2);
      if tahun1>tahun2 then
         writeln('anda lebih muda')
      else
         if tahun1<tahun2 then
            writeln('anda lebih tua')
         else begin
             if bulan1>bulan2 then
                writeln('anda lebih muda')
             else
                if bulan1<bulan2 then
                   writeln('anda lebih tua')
                   else begin
                      if tanggal1>tanggal2 then
                         writeln('anda lebih muda')
                      else
                       if tanggal1<tanggal2 then
                         writeln('anda lebih tua')
                       else
                         writeln('anda seumur');
                         readln();
                   end;
         end;
  end.
  
  
  sekin dulu untuk postingan alpro untuk kali ini, akan admin lanjutkan lagi besok, karena sekarang sudah malam, hehe