Powered By Blogger Submit Your Site To The Web's Top 50 Search Engines for Free! Online Marketing

Subscribe Now

Saturday, April 25

Laporan Akhir Pointer pada Pascal


Tampilan Koding Window pascal :



Tampilan Output Pointer :



KODING SELENGKAPNYA:


uses crt;
type
pointer = ^cell;
cell = record
     value : integer;
     next: pointer;
end;
var last, belakang, q, p: pointer;
    angka,nomor : integer;
    jawab : char;
    found : boolean;
procedure printlist;
begin
     last:=belakang;
     while last <> nil do
     begin
          writeln (last^.value);
          last:=last^.next;
     end;
end;
procedure look;
begin
writeln ('Masukkan Angka yang Akan Dicari: ');
     readln (angka);
     last:=belakang;
     found:=false;
     while (last<>nil) and (found<>true) do
     begin
          if last^.value=angka then
          begin
               found:=true;
               writeln ('Angka Ditemukan ');
               writeln (last^.value);
               found:=true;
          end
          else
          last:=last^.next;
     end;
end;
procedure delete;
begin
     writeln ('Angka Lain Dihapus? ');
     readln (angka);
     last:=belakang;
     found:=false;
     while (last<>nil) and (found<>true) do
     begin
          last:=last^.next;
          if q^.value=angka then
          begin
               dispose (q);
               found:=true;
          end
          else
          if last^.value=angka then
          begin
               writeln (last^.value,' ','Ditemukan dan Dihapus');
               q^.next:=last^.next;
               dispose (last);
               found:=true;
          end;
     end;
end;
begin
clrscr;
     belakang:=nil;
     nomor:=1;
     writeln('Nomor: ',nomor);
     jawab:='y';
     while (jawab<>'t') do
     begin
          writeln ('Masukkan Angka: ');
          readln (angka);
          new (last);
          last^.value:=angka;
          last^.next:=belakang;
          belakang:=last;
          nomor:=nomor+1;
          writeln ('Nomor: ',nomor);
          writeln ('Terus? Y/T');
          readln (jawab);
     end;
     printlist;
     look;
     delete;
     printlist;
     readln;
end.


Cara kerja Program:
Uses CRT;
Digunakan untuk menentukan jenis monitor yang akan kita gunakan dan juga untuk mengaktifkan fungsi CLRSCR;

Pointer : ^Cell
Digunakan untuk menentukan variable pointer yang akan kita pakai.

Cell : record
Untuk menjadikan pointer Cell sebagai record.

Value : integer;
Untuk mengidentifikasi jenis variable dari value disini digunakan Integer.

Next : pointer;
Untuk mendefinisikan variable Next sebagai pointer.

var last, belakang, q, p: pointer;
    angka,nomor : integer;
    jawab : char;
    found : Boolean;

untuk menentukan variable last, belakang, q, dan p sebagai pointer.
Angka, nomor sebagai integer.
Jawab sebagai character
Found sebagai Boolean.

procedure printlist;
begin
     last:=belakang;
     while last <> nil do
     begin
          writeln (last^.value);
          last:=last^.next;
     end;
end;

membuat prosedur printlist.
Dimana last sebagai belakang,
Lalu jika last tidak sama dengan nol program akan melakukan penulisan last^.value artinya akan menuliskan pointer last dengan value sebagai datanya.

procedure look;
begin
writeln ('Masukkan Angka yang Akan Dicari: ');
     readln (angka);
     last:=belakang;
     found:=false;
     while (last<>nil) and (found<>true) do
     begin
          if last^.value=angka then
          begin
               found:=true;
               writeln ('Angka Ditemukan ');
               writeln (last^.value);
               found:=true;
          end
          else
          last:=last^.next;
     end;
end;

memasuki prosedur look.
Program akan menuliskan pada layar “masukkan angka yang akan dicari”
Lalu jika kita memasukkan angka lalu program akan mengingat angka yang telah kita masukkan.
Jika angka ada, maka aka nada tullisan “angka ditemukan”

procedure delete;
begin
     writeln ('Angka Lain Dihapus? ');
     readln (angka);
     last:=belakang;
     found:=false;
     while (last<>nil) and (found<>true) do
     begin
          last:=last^.next;
          if q^.value=angka then
          begin
               dispose (q);
               found:=true;
          end
          else
          if last^.value=angka then
          begin
               writeln (last^.value,' ','Ditemukan dan Dihapus');
               q^.next:=last^.next;
               dispose (last);
               found:=true;
          end;
     end;
end;

memasuki prosedur delete.
Program akan menulis “angka lain dihapus?”
Maksudnya angka yang akan dihapus berapa?
Jika kita masukkan angka yang akan dihapus dari program, maka program akan menuliskan angka – angka yang telah kita input sebelumnya dengan tidak memunculkan angka yang telah dihapus..

begin
clrscr;
     belakang:=nil;
     nomor:=1;
     writeln('Nomor: ',nomor);
     jawab:='y';
     while (jawab<>'t') do
     begin
          writeln ('Masukkan Angka: ');
          readln (angka);
          new (last);
          last^.value:=angka;
          last^.next:=belakang;
          belakang:=last;
          nomor:=nomor+1;
          writeln ('Nomor: ',nomor);
          writeln ('Terus? Y/T');
          readln (jawab);
     end;
     printlist;
     look;
     delete;
     printlist;
     readln;
end.

Memasuki koding program sebenarnya.
Program akan menghapus layar dengan perintah clrscr.
Lalu program akan menulis nomor-nomor yang kita masukkan.
Jika jawab tidak sama dengan t maka program akan melakukan penulisan “masukkan angka”, lalu akan menginput angka yang telah kita masukkan, lalu kita akan di minta untuk memasukkan input pilihan dimana inputnya Y untuk terus, dan T untuk  tidak melanjutkan penginputan.
Lalu program akan memanggil prosedur prinlist, look, delete, printlist secara berurutan.


Monday, April 20

Assign pada Pascal II

Sebelumnya Assign dapat digunakan untuk menulis file, sekarang perintah assign dapat digunakan untuk membaca file.

Tampilan coding window



Bila program dijalankan dapat membuka file berbasis ASCII, maka tampilannya:


KODING KESELURUHAN
USES CRT;
VAR
BERKAS :TEXT;
KAR : CHAR;
NFILE :STRING;
BEGIN
CLRSCR;
WRITE ('MASUKAN NAMA FILE YANG INGIN DI LOAD : ');
READLN (NFILE);
ASSIGN (BERKAS,NFILE);
RESET (BERKAS);
WRITELN;
WHILE NOT EOF (BERKAS) DO
BEGIN
READ (BERKAS,KAR);
WRITE (KAR);
DELAY (5000);
END;
READLN;
END.


Cara Kerja Program :

USES CRT;
Di gunakan untuk mendklarasikan jenis monitor yang kita gunakan, dalam hal ini kita menggunakan CRT (monitor tabung), Uses CRT juga digunakan untuk mengaktifkan fungsi CLRSCR (Clear Screen).

VAR
BERKAS :TEXT;
KAR : CHAR;
NFILE :STRING;
Di gunakan untuk mendeklarasikan Variabel yang di gunakan dalam program kali ini, kali ini kita menggunakan variable Berkas dengan Tipe Text, Variabel Kar dengan Tipe Character, Variabel NFILE dengan tipe String,

BEGIN
Digunakan untuk memulai suatu proses kerja pada program pascal.

CLRSCR;
Dapat digunakan setelah kita menggunakan USES CRT; pada awal deklarasi program, yang berfungsi untuk menghapus hasil pekerjaan kita sebelumnya pada layar monitor,

WRITE ('MASUKAN NAMA FILE YANG INGIN DI LOAD : ');
READLN (NFILE);
Writeln akan menulis “Masukkan nama file yang ingin di load : “ lalu program akan membaca inputan dari keyboard sebagai NFILE,

ASSIGN (BERKAS,NFILE);
Menggabungkan Berkas dengan tipe Text dengan file yang baru di load..
Jadi apapun bentuk file yang di input akan di definisikan sebagai text, meskipun sebenarnya itu adalah file gambar.

RESET (BERKAS);
Menset ulang variable berkas sebagai hasil load dari NFILE..

WRITELN;
WHILE NOT EOF (BERKAS) DO
Maksudnya akan menulis data yang ada pada file berkas ..

BEGIN
READ (BERKAS,KAR);
Program akan membaca file berkas sebagai Variabel Kar (Character),

WRITE (KAR);
Program akan menulis variable KAR dimana variable kar adalah variable berkas dan variable berkas sudah di definisikan sebagai Character,

DELAY (5000);
Untuk mengatur dalay (waktu tiap karakter akan di tampilkan)

END.
Selesai.



Assign pada Pascal


Assign pada pascal dapat digunakan untuk menulis sebuah file text.

langsung aja nih, tampilan coding window nya:


Lalu, bila dijalankan maka akan tampak seperti dibawah ini:



KODING LENGKAP

USES CRT;
VAR
BERKAS :TEXT;
KALIMAT :STRING;
NFILE :STRING;
BEGIN
CLRSCR;
WRITE ('MASUKAN NAMA FILE UNTUK DI BUAT : ');
READLN (NFILE);
ASSIGN (BERKAS,NFILE);
REWRITE (BERKAS);
WRITELN;
WRITELN ('KETIKAN * UNTUK BERHENTI');
KALIMAT:='';
WHILE KALIMAT [1]<>'*'DO
BEGIN
READLN (KALIMAT);
IF KALIMAT [1]<>'*'THEN
WRITE (BERKAS,KALIMAT);
END;
CLOSE (BERKAS);
END.

Cara Kerja Program:

USES CRT;
Di gunakan untuk mendklarasikan jenis monitor yang kita gunakan, dalam hal ini kita menggunakan CRT (monitor tabung), Uses CRT juga digunakan untuk mengaktifkan fungsi CLRSCR (Clear Screen).
VAR
BERKAS :TEXT;
KAR : CHAR;
NFILE :STRING;
Di gunakan untuk mendeklarasikan Variabel yang di gunakan dalam program kali ini, kali ini kita menggunakan variable Berkas dengan Tipe Text, Variabel Kar dengan Tipe Character, Variabel NFILE dengan tipe String,
BEGIN
Digunakan untuk memulai suatu proses kerja pada program pascal.
CLRSCR;
Dapat digunakan setelah kita menggunakan USES CRT; pada awal deklarasi program, yang berfungsi untuk menghapus hasil pekerjaan kita sebelumnya pada layar monitor,
WRITE ('MASUKAN NAMA FILE UNTUK DI BUAT : ');
READLN (NFILE);
Writeln akan menulis “Masukkan nama file untuk di buat : “ lalu program akan membaca inputan dari keyboard sebagai NFILE,
ASSIGN (BERKAS,NFILE);
Menggabungkan Berkas dengan tipe Text dengan file yang baru di buat..
REWRITE (BERKAS);
Menulis ulang file berkas dimana berkas adalah file yang telah kita masukkan sebelumnya..
WRITELN;
WRITELN ('KETIKAN * UNTUK BERHENTI');
Writeln yg diatas berguna untuk membuat spasi, sedangkan yang dibawahnya berguna untuk menuliskan “Ketikkan * untuk berhenti”
KALIMAT:='';
Mendefinisikan Kalimat dengan character kosong ( ‘’ );
WHILE KALIMAT [1]<>'*'DO
BEGIN
READLN (KALIMAT);
IF KALIMAT [1]<>'*'THEN
WRITE (BERKAS,KALIMAT);
END;
CLOSE (BERKAS);
END.
Maksudnya ketika kalimat tidak sama dengan * maka akan membaca kalimat, dan bila kalimat tidak sama dengan * lalu akan menulis Berkas dan Kalimat.
Jika kalimat = * maka program akan menulis kalimat sebagai file yang bernama seperti yang telah kita input sebelumnya..
Lalu program akan berhenti.


Tuesday, April 14

Function pada Pascal

Contoh program menentukan program besar dan kecilnya suatu input.
Window Coding:



Tampilan Output Program:



Cara Kerja Program:

USES CRT;
Untuk Mendeklarasikan Bahwa saya menggunakan Monitor CRT sebagai Monitor Utama (Background Hitam dengan Tulisan Putih),

FUNCTION BESAR (A,B:INTEGER):INTEGER;
Program akan membuat sebuah function dengan A,B sebagai Integer.
BEGIN
Program akan memulai proses

IF A>B THEN
BESAR:=A
ELSE
BESAR:=B;
END;
Maksudnya jika A > B maka Variabel Besar = A, tetapi bila bukan itu atau dengan kata lain sebaliknya, maka program akan mendefinisikan variable B sebagai Besar.
Lalu program akan keluar dari fungsi

VAR NIL1,NIL2:INTEGER;
Mendefinisikan NIL1, dan NIL2 sebagai Integer,

BEGIN
Proses dimulai,

CLRSCR;
Program akan menghapus semua sisa pengolahan data sebelumnya,

WRITE ('BILANGAN PERTAMA: '); READLN (NIL1);
Program akan menulis “BILANGAN PERTAMA: “ lalu akan membaca input dari user sebagai NIL1

WRITE ('BILANGAN KEDUA : '); READLN (NIL2);
Program akan menulis “BILANGAN KEDUA: “ lalu akan membaca input dari user sebagai NIL2

WRITELN ('BILANGAN TERBESAR ADALAH ',BESAR(NIL1,NIL2):2);
Program akan menulis “BILANGAN TERBESAR ADALAH” dan akan memilih bilangan mana yang terbesar dari kedua bilangan yang telah kita input sebelumnya.

READLN;
Program akan berhenti untuk sementara sebelum berhenti sebelum user menekan Enter.

END.
Program akan berhenti

Monday, April 13

Faktorial pada Pascal

Coding window pada pascal:


Tampilan bila program dijalankan:



Code Program Faktorial pada Pascal :

USES CRT;
PROCEDURE FAKTORIAL;
 VAR A,B,C,TOT:INTEGER;
 BEGIN
 WRITELN ('MASUKKAN ANGKA');
 READLN (A);
 B := A;
 TOT := 1;
  BEGIN
  WHILE B >= 1 DO
   BEGIN
   TOT := TOT * B;
   B := B - 1;
   END;
  WRITELN (TOT);
  READLN;
  END;
END;
BEGIN
CLRSCR;
FAKTORIAL;
END.

 

CARA KERJA

Pada Program kali ini saya menggunakan kode:
USES CRT;
Untuk Mendeklarasikan Bahwa saya menggunakan Monitor CRT sebagai Monitor Utama (Background Hitam dengan Tulisan Putih),
Lalu memasuki kode prosedur :
PROCEDURE FAKTORIAL;
Disini saya mendeklarasikan sebuah Procedure bernama FAKTORIAL,
VAR A,B,C,TOT:INTEGER;
Pada saat ini program akan mendeklarasikan Variabel A,B,C,dan Tot sebagai Integer (bilangan Bulat):
 BEGIN
 WRITELN ('MASUKKAN ANGKA');
 READLN (A);
 B := A;
 TOT := 1;
Pada saat ini program akan memulai sebuah operasi di dalam procedure, program akan menulis “MASUKKAN ANGKA”,
lalu program akan mengidentifikasi angka yang anda masukkan sebagai sebuah bilangan bulat (Integer),
lalu program akan mengubah nilai B menjadi sama dengan nilai yang anda masukkan (dalam hal ini nilai A),
lalu program juga akan mengubah nilai TOT menjadi 1,
BEGIN
  WHILE B >= 1 DO
   BEGIN
   TOT := TOT * B;
   B := B - 1;
   END;
  WRITELN (TOT);
  READLN;
END;
Masuk lebih dalam dengan proses (masih dalam prosedur yang sama), kali ini program akan melooping, jika B >= 1 akan melakukan :
          Mendefinisikan nilai TOT dengan TOT * B,
          Mengurangi Nilai B dengan 1.
Menulis Nilai Dari TOT,
Sampai disini jika program berjalan, maka program akan menuggu User untuk menginput (Enter), sebelum masuk ke proses berikutnya,
END;
Maksudnya program akan keluar dari Prosedur FAKTORIAL (mengakhiri sebuah prosedur),
BEGIN
Program akan memulai sebuah proses,
FAKTORIAL;
Program akan memanggil Prosedur FAKTORIAL,
END.
Program Selesai.

Sunday, April 5

Program Record pada Pascal

Tampilan jendela coding :

Tampilan Output Program:


Code Program Record pada Pascal:

USES CRT;
TYPE
RECPEGAWAI=RECORD
KODE, ALAMAT, NAMA, GAJI: STRING;
END;
VAR PEGAWAI: RECPEGAWAI;
BEGIN
WITH PEGAWAI DO
BEGIN
CLRSCR;
KODE:='XXX/MVI/209';
NAMA:='STANFORD GATES BARLEY';
ALAMAT:='STANBURG VALLEY, CALIFORNIA, US';
GAJI:='10000000';
WRITELN ('KODE PEGAWAI  = ',PEGAWAI.KODE);
WRITELN ('NAMA PEGAWAI  = ',PEGAWAI.NAMA);
WRITELN ('ALAMAT PEGAWAI= ',PEGAWAI.ALAMAT);
WRITELN ('GAJI PEGAWAI  = ',PEGAWAI.GAJI);
READLN;
END;
END.


CARA KERJA PROGRAM


USES CRT
Digunakan untuk mendefinisikan jenis monitor yang kita gunakan.

TYPE
RECPEGAWAI = RECORD
KODE, ALAMAT, NAMA, GAJI: STRING;
END;
Digunakan untuk mendeklarasikan tipe record, disini saya mendeklarasikan type record RECPEGAWAI sebagai RECORD, di dalam RECPEGAWAI terdapat KODE, ALAMAT, NAMA, GAJI sebagai bagian dari recordnya.

VAR PEGAWAI: RECPEGAWAI;
Digunakan untuk mendefinisikan PEGAWAI sebagai RECPEGAWAI, dimana RECPEGAWAI adalah RECORD, maka PEGAWAI adalah RECORD juga.

BEGIN
WITH PEGAWAI DO
Digunakan untuk mempersingkat penulisan RECORD.

BEGIN
Digunakan untuk memulai suatu proses

CLRSCR;
Digunakan untuk membersihkan layar

KODE:='XXX/MVI/209';
Memberi nilai pada PEGAWAI.KODE dengan “XXX/MVI/209”

NAMA:='STANFORD GATES BARLEY';
Memberi nilai pada PEGAWAI.NAMA dengan “STANFORD GATES BARLEY”

ALAMAT:='STANBURG VALLEY, CALIFORNIA, US';
Memberi nilai pada PEGAWAI.ALAMAT dengan “STANGURG VALLEY, CALIFORNIA, US”

GAJI:='10000000';
Memberi nilai pada PEGAWAI.GAJI dengan “10000000”

READLN;
Membaca input yang kita masukkan, maksudnya digunakan untuk mempause program kita.

END; dan END.
Digunakan untuk menyudahi kode atau deklarasi, atau proses dan sebagainya…


Saturday, April 4

Bilangan Prima dengan Pascal

Code Program Bilangan Prima pada Pascal:


Tampilan jika program dijalankan:


Logika Program:

Program akan mendeklarasikan PRIMA sebagai sebuah fungsi Array, dimana PRIMA memiliki range antara 1 sampai 100, dan anggota PRIM adalah Integer, lalu mendefinisikan I dan J sebagai integer, lalu memulai program, lalu membersihkan layar, mengidentifikasi I untuk I = 2 sampai 100,
PRIMA = I, lalu membagi bilangan I dibagi J, lalu mencari apakah nilai bagi tersebut adalah 0 atau bukan, bila basilnya 0 maka PRIMA[I] := 0, lalu bila hasil bagi bukan nol, maka akan mencetak angka yang menjadi pembaginya,proses akan berulang sampai 100 kali.

Popular Posts This Months

Related Posts Plugin for WordPress, Blogger...

IP