Website ane :v

:v hoho Alhamdulillah wa syukurillah Final Semester 3 nya sudah kelar, dan ini adalah hasil buatan saya menggunakan Dreamweaver Cs6 dengan Connect Database :D
ini dia :D 

 ini adalah script program untuk menjadikan Tabel Matrix


Uses Crt;
Var Tabel : Array[1..3,1..3] of Integer;
i,j : Integer;
Begin
ClrScr;
writeln('Matrix 3 x 3 ');
{Data Tabel Matrix tiap element}
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[1,3]:=7;

Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[2,3]:=8;

Tabel[3,1]:=5;
Tabel[3,2]:=6;
Tabel[3,3]:=9;

{proses cetak}
For I := 1 to 3 Do

Begin
For J:= 1 to 3 Do

Begin
Write(Tabel[i,j]:6);
End;
writeln;
End;
Readln;
End.







dan ini adalah hasil dari codingan tersebut

selamat mencoba :)

Nilai Akhir

Ini adalah script yang saya kerjakan untuk mengetahui nilai akhir saya, namun jika penghitungannya berbeda ubah saja logikanya :D

Selamat Mencoba :D

uses crt;
var nama, kls, fak,npm, huruf : string;
    N1, N2, N3, jum, rata : real;
begin
     clrscr;
     writeln('###############################################################################');
     writeln('                         PROGRAM MENGHITUNG NILAI AKHIR                          ');
     writeln('===============================================================================');
     writeln;
     write('  Masukan Nama            : ');              readln(nama);
     write('  Masukan Npm             : ');              readln(NPM);
     write('  Masukan Kelas           : ');              readln(kls);
     write('  Masukan Fakultas        : ');              readln(fak);
     writeln;
     write('  Masukan Nilai Tugas     : ');              readln(N1);
     write('  Masukan Nilai Uts       : ');              readln(N2);
     write('  Masukan Nilai UAS       : ');              readln(N3);

     clrscr;
     writeln('===============================================================================');
     writeln('                               NILAI AKHIR ANDA                          ');
     writeln('===============================================================================');
     writeln('  Nama            : ',nama);
     writeln('  NPM             : ',npm);
     writeln('  Kelas           : ',kls);
     writeln('  Fakultas        : ',fak);
     writeln;
     jum:=N1+N2+N3;
     rata:=jum/3;
     writeln('  Nilai Akhir : ',rata:0:0);

     If  (rata>=0) and (rata<40) then
    Huruf:='E'
    Else if (rata>40) and (rata<55) then
    Huruf:='D'

    Else if (rata>55) and (rata<70) then
    Huruf:='C'

    Else if (rata>70) and (rata<80) then
    Huruf:='B'

    Else if (rata>80) and (rata<=100) then
    Huruf:='A'

        Else

Huruf:='Z';
Writeln;
Writeln('  Grade :  ',huruf);

     If  (rata>=0) and (rata<40) then
        writeln('  Keterangan : TIDAK LULUS')

        Else if (rata>40) and (rata<55) then
    writeln('  Keterangan : TIDAK LULUS')

    Else if (rata>55) and (rata<70) then
    writeln('  Keterangan : LULUS')

    Else if (rata>70) and (rata<80) then
    writeln('  Keterangan : LULUS')

    Else if (rata>80) and (rata<=100) then
         writeln('  Keterangan : LULUS');


readln;
end.

dan inilah hasil codingan saya diatas :D 

Menentukan Bilangan Genap

ini adalah scriptnya untuk menentukan Bilangan Genap, 

Uses Crt;
Var
Genap : Array[1..10] of Integer;
i,j : Integer;
bil : Integer;
Begin
ClrScr;
For i := 1 to 10 Do
Begin
bil := (i mod 2); {* i dibagi j dicek apakah 0*}
begin
genap[i]:=i;
If bil >0 then Genap[i]:= 0 {*jika habis dibagi,berarti genap*}
end;
If genap[i] <> 0 Then Write(Genap[i],' '); {*cetak array yg genap*}
End;
Readln;
End.


ini adalah hasil tampilan dari coding atau script di atas, Silahkan dicoba :D

Script Rental Mobil

Disini saya memakai turbo pascal, dan dibawah ini adalah script rental mobil yang saya kerjakan untuk memenuhi Ulangan tengah semester saya


uses crt;
var nama,MOBIL :array[1..50] of string;
    kode,TELAT,JASA,LAMA:array[1..50] of integer;
    harga,TSM,TJS,DENDA,SUBTOT,DISK,TKS :array[1..50] of real;
    i,j,b : integer;
    x : char;

begin

     repeat
     clrscr;
     writeln('-----------------------------------------');
     writeln('          RENTAL MOBIL BORLAND           ');
     writeln('-----------------------------------------');
     writeln(' KODE  | NAMA BOBIL   | HARGA/HARI ');
     writeln('-----------------------------------------');
     writeln('  1    | NEW AVANZA   | Rp.300.000 ');
     writeln('  2    | NEW XENIA    | Rp.300.000 ');
     writeln('  3    | NEW JAZZ     | Rp.400.000 ');
     WRITELN('  4    | INNOVA       | Rp.600.000 ');
     WRITELN('  5    | SUZUKI APV   | Rp.550.000 ');
     WRITELN('-----------------------------------------');
     WRITELN;

     WRITELN('--------------------------------------------------------------------------------');
     WRITELN('                                  KETERANGAN                                       ');
     WRITELN('--------------------------------------------------------------------------------');
     writeln('  1. SEWA + SUPIR DIKENAKAN TAMBAHAN BIAYA Rp. 150.000 / HARI. ');
     writeln('  2. KETERLAMBATAN DIKENAKAN BIAYA Rp. 30.000 / HARI. ');
     writeln('  3. PELANGGAN MENDAPATKAN DISKON 10% JIKA LAMA SEWA LEBIH DARI 3 HARI. ');
     writeln('  4. PELANGGAN YANG TERLAMBAT MENGEMBALIKAN MOBIL TIDAK MENDAPATKAN DISKON. ');
     writeln('--------------------------------------------------------------------------------');

     write('Masukan Jumlah Pelanggan = ');      readln(b);
     for i:= 1 to b do
     begin
     writeln;
     writeln('Data Pelanggan ke - ',i);
     write(' NAMA PELANGGAN                     = ');                   READLN(NAMA[i]);
     WRITE(' KODE MOBIL                         = ');                   READLN(kode[i]);

       IF KODE[i]=1 THEN
       mobil[i]:='NEW AVANZA ';
       IF KODE[i]=2 THEN
       mobil[i]:='NEW XENIA';
       IF KODE[i]=3 THEN
       mobil[i]:='NEW JAZZ';
       IF KODE[i]=4 THEN
       mobil[i]:='INNOVA';
       IF KODE[i]=5 THEN
       mobil[i]:='SUZUKI APV';


       IF KODE[i]=1 THEN
       harga[i]:=300000;
       IF KODE[i]=2 THEN
       harga[i]:=300000;
       IF KODE[i]=3 THEN
       Harga[i]:=400000
       else
       IF KODE[i]=4 THEN
       Harga[i]:=600000;
       IF KODE[i]=5 THEN
       harga[i]:=550000;

     WRITELN(' NAMA MOBIL                         = ',MOBIL[i]);
     writeln(' Harga / hari                       = Rp.',harga[i]:1:0);
     WRITE(' LAMA SEWA (HARI)                   = ');       READLN(LAMA[i]);
     WRITE(' JASA SUPIR (HARI)                  = ');      READLN(JASA[i]);
     WRITE(' TERLAMBAT PENGEMBALIAN (JAM)       = ');     READLN(TELAT[i]);

     WRITELN;
     end;

     CLRSCR;
     WRITELN('-------------------------------------------------------------------------------');
     WRITELN('                                 NOTA SEWA MOBIL                               ');
     WRITELN('-------------------------------------------------------------------------------');
     for i:= 1 to b do
     begin
     writeln('Data Note Pelanggan ke - ',i);
     WRITELN(' NAMA PELANGGAN   = ',NAMA[i]);
     WRITELN;
     WRITELN(' KODE MOBIL       = ',KODE[i]);
     WRITELN(' NAMA MOBIL       = ',MOBIL[i]);
     WRITELN(' LAMA SEWA        = ',LAMA[i],' HARI');
     WRITELN(' JASA SUPIR       = ',JASA[i],' HARI');
     WRITELN(' TERLAMBAT        = ',TELAT[i] ,' JAM');
     WRITELN;
     WRITELN(' DETAIL BIAYA : ');

     TSM[i]:=HARGA[i]*LAMA[i];
     WRITELN('      TOTAL SEWA MOBIL       = Rp.',TSM[i]:3:0);

     TJS[i]:=JASA[i]*150000;
     writeln('      TOTAL JASA SUPIR       = Rp.',TJS[i]:0:0);

     DENDA[i]:=TELAT[i]*(30000/24);
     WRITELN('      DENDA TERLAMBAT        = Rp.',DENDA[i]:1:0);

     WRITELN('      _________________________________________ +');
     WRITELN;

     SUBTOT[i]:=TSM[i]+TJS[i]+DENDA[i];
     WRITELN('      SUB TOTAL              = Rp.',SUBTOT[i]:0:0);

     if (lama[i]>=3) then
     disk[i]:=subtot[i]*0.1;
     If telat[i] >0 then
     disk[i]:=subtot[i]*0;
     writeln('      DISKON                 = RP.',DISK[i]:0:0);

     WRITELN('      _________________________________________ - ');
     WRITELN;


     TKS[i]:=SUBTOT[i]-DISK[i];
     WRITELN('      TOTAL KESELURUHAN      = Rp.',TKS[i]:0:0);
     WRITELN('--------------------------------------------------------------------------------');
     end;
     write(' TRANSAKSI LAGI? (Y/T) : ');                                 readln(x);
     until (x='T') or (x='t');
          end.



dan ini adalah hasil dari script tersebut

#Semoga bermanfaat bagi para pembaca, jika tidak paham silahkan komentar