PROGRAM PERKALIAN

Program Perkalian;
Uses crt;
var a,b,hitung:integer;
begin
  clrscr;
  write('Masukkan Bil1: ');
  readln(a);
  write('Masukkan Bil2: ');
  readln(b);
  hitung:=a*b;
  writeln('Hasil kali Bil1*Bil2 = ', hitung);
  readln;
end.

PROGRAM LUAS LINGKARANG

Program Perkalian;
Uses crt;
var a,b,hitung:integer;
begin
  clrscr;
  write('Masukkan Bil1: ');
  readln(a);
  write('Masukkan Bil2: ');
  readln(b);
  hitung:=a*b;
  writeln('Hasil kali Bil1*Bil2 = ', hitung);
  readln;
end.

PROGRAM BIODATA

Program Perkalian;
Uses crt;
var a,b,hitung:integer;
begin
  clrscr;
  write('Masukkan Bil1: ');
  readln(a);
  write('Masukkan Bil2: ');
  readln(b);
  hitung:=a*b;
  writeln('Hasil kali Bil1*Bil2 = ', hitung);
  readln;
end.

PROGRAM HOBIKU 1 DAN 2

Program Hobiku;
Uses crt;
Begin
   clrscr;
   Writeln('Hobiku banyak iho :  ');
   Writeln('1. Membaca ');
   Writeln('2. Mendengarkan Radio ');
   Writeln('3. Berenang ');
   Writeln('4. Memasak ');
   Readln;
End.

Program Hobiku;

Uses crt;

Begin

   clrscr;

   Writeln('Hobiku banyak iho :  ');

   Writeln('1. Membaca ');

   Writeln('2. Mendengarkan Radio ');

   Writeln('3. Berenang ');

   Writeln('4. Memasak ');

   Readln;

End.

PROGRAM UAN

Program UAN; {BAGAS N DAN BAGUS F}
Uses crt;
Var NilaiMat,NilaiInd,NilaiIng:integer;
    rata:real;
    Lulus:boolean;
begin
        clrscr;
        Write('Masukkan nilai Mat= ');
        readln(NilaiMat);
        Write('Masukkan nilai B.Ind= ');
        Readln(NilaiInd);
        Write('Masukkan nilai B.Ing= ');
        Readln(NilaiIng);
        rata:=(NilaiMat+NilaiInd+NilaiIng)/3;
        Lulus:=(rata>=60);
        writeln('Rata-rata nilai UAN adalah',rata);
        Writeln('Status kelulusan anda',Lulus);
        readln;
end.

PROGRAM VOLUME TABUNG

program VolumeTabung;
uses crt;
const phi=3.14;
var r,t,V:real;
begin
Clrscr;
        writeln('masukan nilai jari jari: ');
        readln(r);
        writeln('masukan nilai tinggi: ');
        readln(t);
        V:=phi*r*r*t;
        writeln('Volume Tabung adalah ',V);
        readln;
end.

PROGRAM DISKON BAJU 3

Program DiskonBaju3; {BAGAS N DAN BAGUS F}
Uses crt;
Var HargaNormal,ProsenDiskon:integer;
    BesarDiskon,HargaAkhir,TotalBayar,TotalBelanja:real;
Begin
        Clrscr;
        Write('Masukkan total Harga Barang: ');
        readln( TotalBelanja);
        if(TotalBelanja>=6000000) then
                ProsenDiskon:=20
        else if(TotalBelanja>=6000000) then
                ProsenDiskon:=25
        else
                ProsenDiskon:=15;

        BesarDiskon:=(ProsenDiskon/100)*TotalBelanja;
        TotalBayar:=TotalBayar-BesarDiskon;
        Writeln('Total harga yang harus dibayar adalah: ',TotalBayar:6:2);
        Readln;
end.

PROGRAM BIODATA

Program Biodata; {BAGAS DAN BAGUS F}
Uses crt;
Var nama,alamat: String[30];
        umur:integer;
Begin
        clrscr;
        Write('Masukkan Nama anda: ');
        readln(nama);
        Write('Masukkan Alamat anda: ');
        readln(alamat);
        Write('Masukkan Umur anda: ');
        readln(umur);
        Writeln('Nama anda adalah :',nama);
        Writeln('Alamat anda adalah :',alamat);
        Writeln('Umur anda adalah :',umur);
        readln;
end.

PROGRAM DISKON BAJU 1

Program Menghitung_diskon;
Uses crt;
var harga,diskon,harga_akhir:real;
begin
   write('masukan harga barang=');
   readln(harga);
   write('masukan prosentase diskon barang,skala 1-100=');
   readln(diskon);
   harga_akhir:=harga-(harga*diskon/100);
   writeln('harga barang setelah didiskon adalah=', harga_akhir);
   readln;
end.

PROGRAM BILANGAN

Program Bilangan; {BAGAS N DAN BAGUS F}
Uses crt;
Var a,b,d: integer;
        c: boolean;
        e: real;
Begin
        clrscr;
        Write('Masukkan nilai a : ');
        Readln(a);
        Write('Masukkan nilai b : ');
        Readln(b);
        d:=a*b;
        e:=a/b;
        c:=(a mod b =0);
        Writeln('Benarkah a kelipatan b?',c);
        Writeln('Hasil kali a dan b adalah ',d);
        Writeln('Hasil bagi a dan b adalah',e:6:2);
        Readln;
End.

PROGRAM MENYAPA

Program Menyapa;
Uses crt;
Begin
        Clrscr;
        Writeln('Ini Adalah Program Menyapa Budi');
        Writeln('Hai Budi Apa Kabarmu hari ini?');
        Writeln('Semangat dan sukses selalu');
        Readln;
End.

PROGRAM DISKON BAJU

program DiskonBaju2; 

Uses crt;

Var HargaNormal,ProsenDiskon,TotalBelanja,TotalBayar:integer;

    BesarDiskon,HargaAkhir:real;

Begin

        Clrscr;

        Write('Masukkan Total harga pembelian:');

        Readln(TotalBayar);

        if (TotalBelanja>=200000) then

            ProsenDiskon:=25;

        Else

            ProsenDiskon:=20;

        BesarDiskon:=(ProsenDiskon/100)*TotalBelanja;

        TotalBayar:=Totalbelanja-BesarDiskon;

        Writeln('Total yang harus dibayar adalah: ',TotalBayar:6:2);

        Readln;

End.