MET LEBARAN 2012....Mohon maaf kalo ada salah kata dan perbuatan...minal aidin wal faidzin..mohon maaf lahir batin...

BAB 1 FLOWCHART

TABEL SIMBOL FLOWCHART

BAB 10 ENUMERASI

Program 1 :
PROGRAM enum1;
USES crt;
TYPE
    OS=(UNIX,MS_DOS,WIN_XP,WIN_VISTA,WIN_7,WIN_8);
VAR
   SisOp:OS;
BEGIN
     clrscr;
     FOR SisOp:=UNIX TO WIN_8 DO
         writeln(Ord(SisOp));

     Readln;
END.

Program 2 :
PROGRAM enum1;
USES crt;
TYPE
    OS=(UNIX,MS_DOS,WIN_XP,WIN_VISTA,WIN_7,WIN_8);
VAR
   SisOp:OS;

PROCEDURE EntriKodeSisOp(VAR SisOp:OS);
 VAR
  pil:integer;
BEGIN
     clrscr;
     Writeln('1. UNIX       4. Windows Vista');
     Writeln('2. MS-DOS     5. Windows 7');
     Writeln('3. Windows XP 6. Windows 8');
     Writeln;
     REPEAT
       write('Pilihan [1...6] : ');
       readln(pil)
     UNTIL (pil >= 1) AND (pil <= 6);
     SisOp:=OS(pil-1);
END;

PROCEDURE TampilkanSisOp(SisOp:OS);
BEGIN
     CASE SisOp OF
       UNIX      : Writeln('UNIX');
       MS_DOS    : Writeln('MS-DOS');
       WIN_XP    : Writeln('Windows XP');
       WIN_VISTA : Writeln('Windows Vista');
       WIN_7     : Writeln('Windows 7');
       WIN_8     : Writeln('Windows 8');
     END;
END;

BEGIN
     EntriKodeSisOp(SisOp);
     TampilkanSisOp(SisOp);

     Readln;
END.

BAB 11 FUNGSI DAN PROCEDURE

Fungsi : sub program yang hasil runningnya memberikan suatu nilai.
Procedure : sub program yang pada saat pemanggilan program tersebut tidak memberikan nilai.
Bentuk Fungsi :
FUNCTION nama_fungsi (daftar_parameter) : tipe;
    Bagian_deklarasi;
    Bagian_pernyataan;

Bentuk PROCEDURE :
PROCEDURE nama_procedure (daftar_parameter);
     Bagian_deklarasi;
     Bagian_pernyataan;

Pada procedure tidak ada pendeklarasian tipe dari hasil procedure, karena procedure memang tidak memberikan hasil nilai saat di panggil.

BAB 10 Operasi Matematika

Program konversi desimal ke biner :

PROGRAM bit;
USES crt;
VAR
   pencacah,bil : byte;
BEGIN
     clrscr;
     writeln('MENAMPILKAN KODE BINER');
     writeln('Masukkan sebuah bilangan antara 0 s/d 255');
     readln(bil);

     writeln;
     writeln('01234567');
     FOR pencacah := 1 TO 8 DO
     BEGIN
          write(bil AND 1);
          bil := bil SHR 1;
     END;
readln;
END.

Merubah gambar desktop background pada flash disk

Copy script dibawah ini dan paste di notepad, terus abis itu kamu kasih nama Desktop.ini deh. Selesai. Gampang kan ? 

[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
Attributes=&H0000FFFF&
IconArea_Image=namaimagekalian.jpg
IconArea_Text=0xff00fffff
[.ShellClassInfo]
ConfirmFileOp=0

IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=217

/*    merah=0xf00ff
ungu=0xf00fff
kuning=0xff00fffff
putih=0xff000ff (ket. ungu)
hijau=0xf00f
*/

Nah, kalo udah kan kamu ganti tuh tulisan yang warnanya merah yang namaimagekalian.jpg
Kalian ganti aja sama nama file gambar yang mau kalian jadiin sebagai background dan taruh di dalam flashdisk kalian. Gampang banget kan??
Oh iya, itu yang bagian :IconArea_Text=0xff00fffffitu gunanya buat mengubah warna nama file kamu loh, tuh lihat yang digambar warna tulisan nama file-nya kuning kan ?? Nah sekarang kamu bisa tuh ganti nilainya biar warnanya bisa berubah ke warna lain

BAB 8 Pernyataan IF dan Case

-------------------------------
Pernyataan IF :
PROGRAM suhuif ;
USES crt ;
VAR
  suhu : real ;
BEGIN
  clrscr;
  write('Suhu tubuh : ');
  readln(suhu);
  IF suhu > 37 THEN
      writeln('Suhu Tinggi !');
  writeln('Selesai !');
END.

------------------------------------
Pernyataan IF ELSE
PROGRAM suhuIfElse;
USES crt;
VAR
   suhu : real;
BEGIN
   clrscr;
  write('Suhu tubuh : ');
  readln(suhu);
  IF suhu > 37 THEN
      writeln('Suhu Tinggi !');
  ELSE
      writeln('Suhu Tidak Tinggi...');
  writeln('Selesai !');
END.

--------------------------------------
Pernyataan CASE
PROGRAM  case;
USES crt;
VAR
   pil : integer;
BEGIN
   clrscr;
   write('Pilihan [1, 2, atau 3] : ');
   readln(pil);
 CASE pil OF
  1: writeln('Pilihan Anda adalah 1');
  2: writeln('Pilihan Anda adalah 2');
  3: writeln('Pilihan Anda adalah 3');
 ELSE
  writeln('Salah pilih !');
 END;
END.

--------------------------------------
Pernyataan CASE
PROGRAM  case;
USES crt;
VAR
   kdbul : integer;
BEGIN
   clrscr;
   write('Kode Bulan [1..12] : ');
   readln(kdbul);
 CASE kdbul OF
  1,3,5,7,8,10,12 : writeln('Jumlah hari = 31');
  4,6,9,11            : writeln('Jumlah hari = 30');
  2                       : writeln('Jumlah hari 28 atau 29');
 ELSE
  writeln('Salah pilih kode bulan !');
 END;
END.

BAB 7 Ekspresi Boolean & Pernyataan Majemuk

program boolean;
uses crt;
var
   x:integer;
   y:integer;
   kar:char;
begin
     clrscr;
     writeln('A > a = ','A' > 'a');
     writeln('a > A = ','a' > 'A');
     writeln('10 > 3 = ', 10 > 3);
     writeln;

     write('Masukkan nilai x = ');
     readln(x);
     write('Masukkan nilai y = ');
     readln(y);
     writeln('x > y = ', x>y);
     writeln('y < x = ', y
     writeln;

     write('Masukkan sebuah karakter : ');
     readln(kar);
     writeln('Apakah merupakan huruf kapital ?');
     writeln( (kar>='A') AND (kar<='Z') );
     writeln('Berupa Z atau z ?');
     writeln( (kar='Z') OR (kar='z') );
     writeln('Bukan berupa huruf kapital ?');
     writeln(NOT ((kar>='A') AND (kar<='Z')) );

     readln;
end.