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.