kasir n data karyawan

program quiz;
uses
 winCrt;
var
 p,ulang,pilih,jk:char;
 kd_brg,nm_ksr,nm_brg,kd_krywn,nm,alamat:string;
 harga,jml_byr,hrg_beli,diskon:real;
 akar:real;
 jml,kuadrat,bil:byte;
begin
 ulang:= 'Y';
 while(ulang='Y') or (ulang='y') do
 begin
  writeln('PROGRAM PILIHAN');
  writeln('----------------');
  writeln('[1]ENTRY DATA KARYAWAN');
  writeln('[2]PROGRAM KASIR');
  writeln;
  write('Masukkan Pilihan Anda[1/2] : ');readln(p);
  case p of
  '1':begin
      clrscr;
       writeln('PROGRAM ENTRY DATA KARYAWAN');
       writeln('---------------------------');
       writeln('Masukkan Data Karyawan:');
       write('Kode Karyawan : ');readln(kd_krywn);
       write('Nama          : ');readln(nm);
       write('Kelamin[L/P]  : ');readln(jk);
       write('Alamat        : ');readln(alamat);
       clrscr;
       writeln('DATA KARYAWAN');
       writeln('-------------');
       writeln('Kode Karyawan   : ',kd_krywn);
       writeln('Nama            : ',nm);
       writeln('Kelamin         : ',jk);
       writeln('Alamat          : ',alamat);
       writeln('----------------------------');
      end;
  '2':begin
       clrscr;
       writeln('PROGRAM PERHITUNGAN KASIR');
       writeln('*************************');
       write('Nama Kasir   : ');readln(nm_ksr);
       write('Kode Barang  : ');readln(kd_brg);
       write('Nama Barang  : ');readln(nm_brg);
       write('Harga Satuan : ');readln(harga);
       write('Jumlah       : ');readln(jml);
        hrg_beli:= jml*harga;
        if hrg_beli >= 100000 then
        begin
         diskon:= 0.1*hrg_beli;
         jml_byr:= hrg_beli-diskon;
        end else
        begin
         diskon:= 0;
         jml_byr:=hrg_beli;
        end;
       clrscr;
       writeln('Data Pembelian Anda');
       writeln('-------------------');
       writeln('Kode Barang       : ',kd_brg);
       writeln('Nama Barang       : ',nm_brg);
       writeln('Harga Barang      : ',harga:10:0);
       writeln('Jumlah Barang     : ',jml);
       writeln('Jumlah Pembelian  : ',hrg_beli:10:0);
       writeln('Diskon            : ',diskon:10:0);
       writeln('Jumlah Bayar      : ',jml_byr:10:0);
       writeln('--------------------------------');
       writeln('Terima Kasih Atas Kunjungan Anda');
       writeln('********************************');
    end else
       clrscr;
       writeln('Anda Salah Memasukkan Pilihan');
  end;
       write('Kembali Ke Menu?[Y/T] : ');readln(ulang);
       clrscr;
 end;
  writeln('TERIMA KASIH');
end.

IF hari

program konversi2;
uses
    wincrt;
var
   a: byte;

begin
     write('nomor hari : ');readln(a);
     if (a=1) then write ('senin')
     else
     if (a=2) then write ('Selasa')
     else
     if (a=3) then  write('rabu')
     else
     if (a=4) then  write('kamis')
     else
     if (a=5) then  write('jumat')
     else
     if (a=6) then  write('sabtu')
     else
     if (a=7) then  write('minggu')
     else
         write('tidak hari');

end.

case angka

Program Angka;
uses wincrt;
var
a:integer;
begin
write('Angka (1-3) = ');readln(a);
writeln;
case a of
1:write('Satu');
2:write('Dua');
3:write('Tiga');
else
write('Pilihan Salah!');
end;
end.

ganjil_gnap

program ganjil_genap;
uses
    wincrt;

var
nilai : integer;

 begin
    gotoxy(12,3);writeln('PROGRAM PENCETAKAN BILANGAN');
    gotoxy(11,4);writeln('=============================');
    write('Masukkan nilai : ');readln(nilai);
    writeln;
    if (nilai Mod 2) = 0 then
    writeln ('Nilai ',nilai,' ','adalah Genap')
    else
    writeln('Nilai ',nilai,' ','adalah Ganjil');

 end.  

program tekan tombol

Program TekanTombol;
Uses WinCrt;
Label
   Mulai;
Var
   Tombol,
   Jawab : Char;
Begin
 Mulai:
  ClrScr;
  Writeln('PROGRAM TENTUKAN TOMBOL');
  Writeln('-----------------------');
  Write('Tekan Sembarang TOMBOL : ');
  Readln(Tombol);
  Case Tombol Of
   'a'..'z','A'..'Z' : Begin
                         Writeln('Anda menekan tombol ',Tombol);
                         Writeln('Tombol ',Tombol,' Termasuk HURUF');
                       End;
   '0'..'9'          : Begin
                         Writeln('Anda menekan tombol ',Tombol);
                         Writeln('Tombol ',Tombol,' Termasuk ANGKA');
                       End;
   Else
                      Begin
                         Writeln('Anda menekan tombol ',Tombol);
                         Writeln('Tombol ',Tombol,' Bukan HURUF/ANGKA');
                       End;
  End;
  writeln;
  Write('Mau mencoba lagi [Y/T] ? ');Readln(jawab);
  If (Jawab = 'Y') or (Jawab = 'y') Then
  Goto mulai
End.

program menu matematika

program Menu;
uses
    winCrt;

procedure menu_prog;
 begin
  gotoxy (6,2) ; writeln('MENU PROGRAM MATEMATIKA');
 end;

procedure bintang;
 begin
   writeln;
   writeln('*****************************************');
   writeln;
 end;

procedure exit;
  begin
    writeln('KELUAR');
  end;

procedure Deret (var n :integer);
var
 a,jumlah:byte;
 begin
  a:= 1; jumlah:=0;
  while a<= n do
   begin
     write(a:3);
     jumlah:=jumlah+a;
     a:=a+1;
   end;
  writeln;
  writeln('Total Jumlah Deret : ',jumlah);
 end;

procedure balok(var p,l,t : integer;  luas : integer) ;
 begin
   writeln;
   luas:= 2 * ((p*l) + (p*t) + (l+t));
   writeln('Luas Balok adalah  ',luas,' cm');
 end;

function Bilangan (var nilai :integer ): string ;
 begin
    writeln;
    if (nilai Mod 2) = 0 then
    writeln ('Nilai ',nilai,' ','adalah Genap')
    else
    writeln('Nilai ',nilai,' ','adalah Ganjil');
 end;

 var
 n1,n2,n3,luas,pil:integer;
 ulang :char;

 begin
 ulang:='Y';
 while (ulang='Y') or (ulang='y') do
  begin
  menu_prog;
  bintang;
  writeln('(1) Menghitung Deret');
  writeln('(2) Menghitung Luas Balok');
  writeln('(3) Mencetak Biangan Ganjil/Genap');
  writeln('(4) KELUAR');
  bintang;
  write (' Silahkan Masukkan Pilihan Menu Anda [1/2/3/4] :  ');readln(pil);
  bintang;
  clrscr;

  case pil of
  1 : begin
     writeln ('Program Mencetak Deret');
     bintang;
     write('Masukkan Jumlah Deret : ');readln(n1);
     writeln;
     Deret(n1);
     bintang;
  end;
  2 : begin
    writeln('Program Menghitung Luas Balok');
    bintang;
    write('Masukkan Panjang Balok : ');readln(n1);
    write('Masukkan Lebar Balok   : ');readln(n2);
    write('Masukkan Tinggi Balok  : ');readln(n3);
    bintang;
    balok(n1,n2,n3,luas);
    bintang;
  end;
  3 : begin
    writeln('Program Pencetakan Bilangan');
    bintang;
    write('Masukkan Bilangan = ');readln(n1);
    Bilangan(n1);
    writeln;
    bintang;
   end;
  4..100 : begin
    writeln(' Menu Yang Anda Pilih Tidak Ada');
    bintang;
   end;
  end;
  writeln;
  write('Apakah Anda Ingin Menu Lain [Y/T] ? : ');readln(ulang);
  clrscr;
  end;
  writeln('Terima kasih telah menggunkaan program ini');
 end.

menu

program MENU;

uses
    wincrt;
var
   KK,kd_brg,hrg,jmlh,jmlh_brg,a:integer;
   jmlh_pmbli:longint;
   nama,almt,nm_ksr,nm_brg:string [20];
   klm,coba:char;
   jmlh_byr:real;

begin
     coba:='Y';
repeat
      writeln('PROGRAM MENU');
      writeln('------------');
      write('Masukkan Pilihan Menu [1/2] : ');readln(a);
      if (a=1) then
begin
     gotoxy(5,6);writeln('ENTRY DATA KARYAWAN');
     writeln;
     write('Kode Karyawan : ');readln(KK);
     write('Nama          : ');readln(nama);
     write('Kelamin       : ');readln(klm);
     write('Alamat        : ');readln(almt);
end else
     begin
     writeln('KASIR');
     write('Nama Kasir : ');readln(nm_ksr);
     write('Kode Barang : ');readln(kd_brg);
     write('Nama Barang : ');readln(nm_brg);
     write('Harga Barang : ');readln(hrg);
     write('Jumlah Barang : ');readln(jmlh);
     jmlh_pmbli:=hrg*jmlh;
     writeln('Jumlah bayaran : ',jmlh_pmbli);
     if jmlh_pmbli >= 100.000 then
        jmlh_byr:=0.2*jmlh_pmbli;
        writeln('Jumlah Bayar diskon: ',jmlh_byr:5:2);
     end;
     begin
          jmlh_byr := jmlh_pmbli;
     end;
         write('Masih Ada Data Lagi?[Y/T] : ');readln(coba);
          writeln;
until (coba='T') or (coba='t');   
  

 end.