Pascal 1

{ PROGRAM PENGGUNAAN LABEL & KONSTANTA

  PEMBUAT MAIKI SRI RAHAYU MI-8

  AMIK 2012}

uses crt;

LABEL

  pertama, terakhir;

CONST

  NAMA  = 'DANAU KERINCI';

  NOHP  = 094232387;

begin

 clrscr;

 writeln(' bahasa pascal ');

 writeln(' BINGUNG ');

     GOTO PERTAMA;

     writeln(' loncat saja kamu ');

pertama :

       writeln(' NAMA wilayah -',NAMA );

       writeln('nohp        - ',nohp);

     GOTO TERAKHIR;

     writeln(' kenapa saya tidak tampil......!' );

terakhir:

   writeln(' Sorry ya ......!');

   writeln(' terima kasih..!' );

   readln;

end.

uses crt;

var

   panjang,lebar,luas:integer;

begin

     clrscr;

     writeln ('DATA MENGHITUNG');

     writeln ('LUAS PERSEGI PANJANG');

     writeln ('======================');

     writeln;

     writeln ('INPUTKAN NILAI PANJANG ADALAH=');readln(panjang);

     writeln ('INPUTKAN NILAI LEBAR ADALAH  =');readln(lebar);

     luas:=panjang*lebar;

     write('JADI LUAS PERSEGI PANJANG ADALAH =',luas);

readln;

           end.

{CONTOH PROGRAM TYPE DATA dan OPERATOR}

{AMIK DEPATI PARBO KERINCI}

{MI-8 TAHUN 2012}

uses crt;

var

   akademi      :string[20];

   huruf        :char;

   A,B,Bil_bulat:integer;

   Bil_pecahan  :real;

   nil_angka    :longint;

   tambah,kurang,pembagian,perkalian,sisa_bagi:integer;

   bagi_bulat,pangkat:integer;

   bagi_pecahan :real;

begin

Clrscr;

   akademi       :='AMIK DEPATI PARBO';

   huruf         :='Z';

   Bil_bulat     :=11234;

   Bil_pecahan   :=35.545647467;

   nil_angka     :=126575665;

   A             :=25;

   B             :=5;

   tambah        :=A+B;

   perkalian     :=A*B;

   kurang        :=A-B;

   bagi_pecahan  :=A/B;

   sisa_bagi     :=A mod B;

   bagi_bulat    :=A div B;

   pangkat       :=sqr(A)+B;

   writeln('PENGGUNAAN VARIABEL');

   writeln('..................');

   writeln('NAMA AKADEMI ADALAH=',akademi);

   writeln('CHARAKTER YANG DITAMPILKAN ADALAH=',HURUF);

   writeln('NILAI BILANGAN ADALAH=',Bil_bulat);

   writeln('NILAI BILANGAN PECAHAN ADALAH=',Bil_pecahan:2);

   writeln('NILAI BILANGAN BULAT ADALAH=',nil_angka);

   writeln;

   writeln('OPERATOR ARITMATIKA');

   writeln('..................');

   writeln('NILAI PENJUMLAHAN A+B ADALAH=',tambah);

   writeln('NILAI PENGURANGAN A-B ADALAH=',kurang);

   writeln('NILAI PERKALIAN A*B ADALAH=',perkalian);

   writeln('NILAI PEMBAGIAN PECAHAN A/B ADALAH=',bagi_pecahan:2);

   writeln('NILAI SISA PEMBAGIAN A mod B ADALAH=',sisa_bagi);

   writeln('NILAI PEMBAGIAN BULAT A div B ADALAH=',bagi_bulat);

   writeln('NILAI PANGKAT SQR A+B ADALAH=',pangkat);

readln;

end.

uses crt;

var

   nama_mahasiswa : string[15];

   npm_mahasiswa : integer;

   alamat_mahasiswa : string[11];

   no_rek : integer;

   cabang : char;

   akhir,awal,pemakaian,biaya_air,rp_m3,pem_meter,biaya_adm,angsuran_sb,denda : integer;

   total_tagihan : longint;

begin

clrscr;

       writeln ('DATA PRIBADI');

       write ('INPUT NAMA MAHASISWA :');readln(nama_mahasiswa);

       write ('INPUT NPM MAHASISWA :');readln(npm_mahasiswa);

       write ('INPUT ALAMAT MAHASISWA :');readln(alamat_mahasiswa);

       writeln;

       writeln;

       writeln ('MENGHITUNG REKENING PDAM');

       write ('NOMOR REKENING :');readln(no_rek);

       write ('CABANG :');readln(cabang);

       write ('PEMAKAIAN AKHIR :');readln(akhir);

       write ('PEMAKAIA AWAL :');readln(awal);

       write ('PEMAKAIAN:');readln(pemakaian);

       write ('RP M3:');readln(rp_m3);

       writeln ('BIAYA AIR =',pemakaian*rp_m3);

       write ('PEMAKAIAN METER :');readln(pem_meter);

       write ('BIAYA :');readln(biaya_adm);

       write ('ANGSURAN :');readln(angsuran_sb);

       write ('DENDA :');readln(denda);

       writeln ('TOTAL TAGIHAN =',pemakaian*rp_m3+pem_meter+biaya_adm);

       readln;

end.

{CONTOH PROGRAM ENTRY DATA PENJUALAN}

{Menggunakan if.....then.....else.....}

{AMIK DEPATI PARBO KERINCI 2012-MI8}

uses crt;

var

   kd_penjual : string[4];

   nm_penjual : string[15];

   almt_penjual : string[11];

   jekel : char;

   pendapatan : real;

   gp : real;

   komisi : real;

   ms_kerja : integer;

   tunjangan_a,tunjangan_i : real;

   gb : real;

   taju,pendapatan_a : real;

begin

clrscr;

       gotoxy(10,3);write('>>ENTRY DATA PENJUALAN BARANG<<');

       gotoxy(20,4);write('>>TOKO ABC<<');

       gotoxy(10,5);write('--------------------------------');

       gotoxy(12,7);write('INPUT KODE PENJUAL =');readln(kd_penjual);

       gotoxy(12,8);write('INPUT NAMA PENJUAL =');readln(nm_penjual);

       gotoxy(12,9);write('INPUT ALAMAT PENJUAL =');readln(almt_penjual);

       gotoxy(12,10);write('INPUT JENIS KELAMIN =');readln(jekel);

       gotoxy(12,11);write('INPUT JUMLAH PENDAPATAN =');readln(pendapatan);

       if (pendapatan<=500000) then

begin

     {pendapatan := pendapatan_a;}

     gp := 500000;

     komisi :=0.05*pendapatan;

end

else

        if (pendapatan = 500000-1500000) then

begin

     gp :=500000;

     {pendapatan :=pendapatan_a;}

     komisi :=0.1*pendapatan;

end

else

        if (pendapatan>1500000) then

begin

     gp :=500000;

     {pendapatan :=pendapatan_a;}

     komisi := 0.15*pendapatan;

end;

     gotoxy(12,12);write('GAJI POKOK =',gp);

     gotoxy(12,13);write('KOMISI =',komisi);

     gotoxy(12,14);write('INPUT MASA KERJA =');readln(ms_kerja);

     if (ms_kerja<5) then

begin

     tunjangan_a :=0.15*gp;

     tunjangan_i :=0.15*gp;

end

else

     if (ms_kerja = 5-10) then

begin

     tunjangan_a :=0.00;

     tunjangan_i :=0.05*gp;

end

else

     if (ms_kerja>10) then

begin

     tunjangan_a :=0.05*gp;

     tunjangan_i :=0.15*gp;

end;

     taju:=tunjangan_a+tunjangan_i;

     gotoxy(12,15);write('TUNJANGAN ANAK+ISTRI =',taju);

     gb :=gp+komisi+taju;

     gotoxy(12,17);write('GAJI BERSIH =',gb);

readkey;

end.

uses crt;

var

 disc,trf,tot_bayar:real;

 jml_brk:integer;

 nama_penu: string[20];

 kode_penu: string[4];

 jekel:char;

 alamat_penu: string[25];

 kode_tj: char;

 tuju: string[15];

begin

 clrscr;

                gotoxy(10,3);  write('>>DATA PENUMPANG TRAVEL/BUS<<');

                gotoxy(20,4);  write('>>PO.X KERINCI<<');

                gotoxy(10,5);  write('.........................');

                gotoxy(12,7);  write('Input Kode Penumpang          ='); readln(kode_penu);

                gotoxy(12,8);  write('Input Nama Penumpang          ='); readln(nama_penu);

                gotoxy(12,9);  write('Input Alamat Penumpang        ='); readln(alamat_penu);

                gotoxy(12,10); write('Input Jenis Kelamin Penumpang ='); readln(jekel);

                gotoxy(34,11); write('orang');

                gotoxy(34,11); write('Input Jumlah Berangkat'); readln(jml_brk);

                gotoxy(12,12); write('Input Kode Tujuan'); readln(kode_tj);

 if (upcase(kode_tj)='j') or (upcase(kode_tj)='p') or (upcase(kode_tj)='B') or (upcase(kode_tj)='L')

  or (upcase(kode_tj)='K') then

begin

 if ( kode_tj='j') or (kode_tj='J') then

    begin

    tuju:='Jakarta';

    trf:= 450000;

   end

 else if (kode_tj='b') or (kode_tj='B') then

      begin

      tuju:='Bandung';

      trf:= 350000;

     end

   else if (kode_tj='p') or (kode_tj='P') then

        begin

        tuju:='Padang';

        trf:= 200000;

       end

     else if (kode_tj='l') or (kode_tj='L') then

          begin

          tuju:='Lampung';

          trf:= 250000;

         end

       else if (kode_tj='k') or (kode_tj='K') then

             begin

             tuju:='Kalimantan';

             trf:= 150000;

            end;

                gotoxy(12,13); write('tampilkan nama tujuan    =',tuju);

                gotoxy(12,14); write('tampilkan tarif travel   =',trf:6:0);

 if jml_brk>3 then

 disc:= 0.05*trf*jml_brk

else

 disc:=0;

tot_bayar:=trf*jml_brk;

gotoxy(12,15); write('Tampilkan Discount                      =Rp.',disc:6:0);

gotoxy(12,16); write('Tampilkan total bayar Untuk',jml_brk,'orang=Rp.',tot_bayar:7:0);

end;

 begin

 gotoxy(12,18); write('Kode Tujuan Salah Input.........!!!');

 gotoxy(12,19); write('Input kode yang ada dalam program saudara.....!!!');

 end;

 readkey;

end.

{CONTOH PROGRAM ENTRY DATA PENUMPANG}

{Menggunakan case.....of.....}

{AMIK Depati Parbo KERINCI 2012-MI8}

uses crt;

var

 disc,trf,tot_bayar:real;

 jml_brk:integer;

 nama_penu: string[15];

 kode_penu: string[4];

 jekel:char;

 alamat_penu: string[11];

 kode_tj: char;

 tuju: string[15];

begin

 clrscr;

 gotoxy(10,3);  write('>>DATA PENUMPANG TRAVEL/BUS<<');

                gotoxy(20,4);  write('>>PO.X KERINCI<<');

                gotoxy(10,5);  write('.........................');

                gotoxy(12,7);  write('Input Kode Penumpang          ='); readln(kode_penu);

                gotoxy(12,8);  write('Input Nama Penumpang          ='); readln(nama_penu);

                gotoxy(12,9);  write('Input Alamat Penumpang        ='); readln(alamat_penu);

                gotoxy(12,10); write('Input Jenis Kelamin Penumpang ='); readln(jekel);

                {gotoxy(34,11); write('orang');}

                gotoxy(12,11); write('Input Jumlah Berangkat='); readln(jml_brk);

                gotoxy(12,12); write('Input Kode Tujuan='); readln(kode_tj);

   case kode_tj of

   'J':trf:=450000;

   'P':trf:=200000;

   'B':trf:=350000;

   'L':trf:=250000;

   'K':trf:=150000;

   end;

   case kode_tj of

   'j','J': begin

            trf:=450000;

            tuju:='JAKARTA';

            disc:=0.1;

            end;

   'p','P': begin

            trf:=200000;

            tuju:='PADANG';

            end;

   'b','B': begin

            trf:=350000;

            tuju:='BANDUNG';

            end;

   'l','L': begin

            trf:=250000;

            tuju:='LAMPUNG';

            end;

   'k','K': begin

            trf:=150000;

            tuju:='KALIMANTAN';

            end;

   end;

 tot_bayar:=trf*jml_brk;

disc:=0.05*trf*jml_brk;

gotoxy(12,13); write('tampilkan nama tujuan    =',tuju); gotoxy(12,14); write('tampilkan tarif travel   =',trf:6:0);

gotoxy(12,15); write('Tampilkan Discount                      =Rp.',disc:6:0);

gotoxy(12,16); write('Tampilkan total bayar Untuk',jml_brk,'orang=Rp.',tot_bayar:7:0);

 begin

 gotoxy(12,18); write('Kode Tujuan Salah Input.........!!!');

 gotoxy(12,19); write('Input kode yang ada dalam program saudara.....!!!');

 end;

 readkey;

end.

 

uses crt;

var

   I :integer;

begin

     for I :=1 to 10 do

     writeln('maiki');

     readln;

end.

uses crt;

var

   i :char;

begin

     for i :='a' to 'z' do

     writeln(i);

     readln;

     end.