PROGRAM PENDATAAN BUKU(PASCAL)

program pendataanbuku ITHINGT;
uses wincrt;
const maks = 90;
type recbuku = record
kode : string[20];
judul : string[20];
eks : integer;
harga : real;
end;
var
buku : recbuku;
dafbuku : array [1..maks] of recbuku;
j,cacah : integer;
pilih : char;
begin
repeat
writeln('===================================================');
writeln ('menu pilihan');
writeln ('[1]. memasukan data buku');
writeln ('[2]. lihat daftar buku');
writeln ('[3].selesai');
writeln('===================================================');
writeln;
write ('Pilihan Proses :');readln (pilih);
case pilih of
'1' : begin
write ('berapa buku ?');readln (cacah);
for j:=1 to cacah do
begin
writeln ('Data ke -',j);

write('kode buku :');readln(buku.kode);

write('judul buku :');readln(buku.judul);

write('eksemplar :');readln(buku.eks);

write('harga buku:');readln(buku.harga);

end;
end;
'2' : begin
writeln('====================================================');
writeln('=====================Data Buku======================');
writeln('No kode Buku eks Judul Buku Harga');
for j:=1 to cacah do
begin
with dafbuku[j] do
writeln(j,#32, buku.kode:15,#32,buku.eks:15,#32,buku.judul:15,#32,buku.harga:15:2);

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

end;
end; end;
Until pilih= '3' ;

end.

Read More

STRUKTUR DATA

Program Senarai_Berantai;

uses crt;
const garis ='---------------------------------------';
pesan ='Senarai Berantai Masih Kosong';
type simpul = ^data;
data = record
nama : string;
alamat : string;
berikut : simpul;
end;
var
awal,akhir : simpul;
pilih : char;
cacah : integer;

function MENU : char;
var P : char;
begin
clrscr;
gotoxy(30,3); write('DAFTAR MENU PILIHAN');
gotoxy(20,8); write('A. MENAMBAH SIMPUL BARU DI AWAL SENARAI');
gotoxy(20,9); write('B. MENAMBAH SIMPUL BARU DI TENGAH SENARAI');
gotoxy(20,10); write('C. MENAMBAH SIMPUL BARU DI AKHIR SENARAI');
gotoxy(20,11); write('D. MENGHAPUS SIMPUL PERTAMA');
gotoxy(20,12); write('E. MENGHAPUS SIMPUL DI TENGAH');
gotoxy(20,13); write('F. MENGHAPUS SIMPUL TERAKHIR');
gotoxy(20,14); write('G. MENCETAK ISI SENARAI');
gotoxy(20,15); write('H. SELESAI');
repeat
gotoxy(48,20); write('':10);
gotoxy(30,20); write('Pilih salah satu: ');
P := upcase(readkey);
until P in ['A'..'H'];
MENU := P;
end;

function SIMPUL_BARU : simpul;
var B : simpul;
begin
new(B);
with B^ do
begin
write('Nama : '); readln(nama);
write('Alamat: '); readln(alamat);
berikut := nil;
end;
SIMPUL_BARU := B;
end;

procedure TAMBAH_AWAL (N : integer);
var
baru : simpul;
begin
if N <> 0 then
begin
writeln('MENAMBAH SIMPUL BARU DI AWAL SENARAI BERANTAI');
writeln(copy(garis,1,45));
end;
writeln;
baru := SIMPUL_BARU;
if awal=nil then
akhir:= baru
else
baru^.berikut := awal;
awal := baru;
end;

procedure TAMBAH_AKHIR (N : integer);
var
baru : simpul;
begin
if N <> 0 then
begin
writeln('MENAMBAH SIMPUL BARU DI AKHIR SENARAI BERANTAI');
writeln(copy(garis,1,46));
end;
writeln;
baru := SIMPUL_BARU;
if awal=nil then
awal := baru
else
akhir^.berikut := baru;
akhir := baru;
end;

procedure TAMBAH_TENGAH;
var baru,bantu : simpul;
posisi,i : integer;
begin
writeln('MENAMBAH SIMPUL BARU DI TENGAH SENARAI BERANTAI');
writeln(garis); writeln;
writeln('SENARAI BERANTAI BERISI:',cacah:2,' SIMPUL');
repeat
gotoxy(52,5); write(' ');
gotoxy(1,5); write('SIMPUL BARU AKAN DITEMPATKAN SEBAGAI SIMPUL NOMOR: ');
readln(posisi)
until posisi in [1..cacah+1];
if posisi=1 then TAMBAH_AWAL(0)
else if posisi=cacah+1 then TAMBAH_AKHIR(0)
else
begin
writeln;
baru := SIMPUL_BARU;
bantu:= awal;
for i:=1 to posisi-2 do
bantu := bantu^.berikut;
baru^.berikut := bantu^.berikut;
bantu^.berikut := baru;
end;
end;

procedure HAPUS_PERTAMA;
begin
if awal <> nil then
begin
awal := awal^.berikut;
writeln('SIMPUL PERTAMA TELAH TERHAPUS');
end
else
writeln(pesan);
writeln; writeln('TEKAN <RETURN> UNTUK KEMBALI KE MENU UTAMA');
repeat until keypressed
end;

procedure HAPUS_TERAKHIR;
var bantu : simpul;
H : integer;
begin
if awal=nil then
begin
writeln(pesan);
H := 0;
end
else if awal=akhir then
begin
awal := nil;
akhir:= nil;
H := 1;
end
else
begin
bantu := awal;
while bantu^.berikut <> akhir do
bantu := bantu^.berikut;
akhir := bantu;
akhir^.berikut := nil;
H := 1;
end;
if H=1 then
writeln('SIMPUL TERAKHIR TELAH TERHAPUS'); writeln;
writeln('TEKAN <RETURN> UNTUK KEMBALI KE MENU UTAMA');
repeat until keypressed
end;

procedure HAPUS_TENGAH;
var posisi,i : integer;
bantu,bantu1 : simpul;
begin
if cacah=0 then
begin
writeln(pesan); writeln;
writeln('TEKAN <RETURN> UNTUK KEMBALI KE MENU UTAMA');
repeat until keypressed
end
else
begin
writeln('MENGHAPUS SIMPUL YANG ADA DI TENGAH');
writeln(copy(garis,1,35)); writeln;
writeln('SENARAI BERANTAI SEKARANG BERISI :',cacah:2,' SIMPUL');
repeat
gotoxy(37,5); write('':5);
gotoxy(1,5); write('Akan menghapus simpul nomor berapa: ');
readln(posisi);
until posisi in [1..cacah];
if posisi=1 then HAPUS_PERTAMA
else if posisi=cacah then HAPUS_TERAKHIR
else
begin
bantu := awal;
for i:=1 to posisi-2 do
bantu:= bantu^.berikut;
bantu1 := bantu^.berikut;
bantu^.berikut := bantu1^.berikut;
bantu1^.berikut := nil;
dispose(bantu1);
end;
end;
end;

procedure BACA_SENARAI;
var bantu : simpul;
i : integer;
begin
i := 1;
writeln('MEMBACA ISI SENARAI BERANTAI');
writeln('TEKAN <RETURN> UNTUK KEMBALI KE MENU UTAMA');
writeln(copy(garis,1,42)); writeln;
bantu := awal;
if bantu=nil then
writeln(pesan)
else
while bantu <> nil do
begin
writeln('Simpul: ',i:2,'---> Nama : ',bantu^.nama);
writeln('':15,'Alamat: ',bantu^.alamat);
bantu := bantu^.berikut;
inc(i);
end;
repeat until keypressed
end;

{PROGRAM UTAMA}
begin
cacah := 0;
awal := nil;
akhir := nil;
repeat
pilih := MENU;
clrscr;
case pilih of
'A' : TAMBAH_AWAL(1);
'B' : TAMBAH_TENGAH;
'C' : TAMBAH_AKHIR(1);
'D' : HAPUS_PERTAMA;
'E' : HAPUS_TENGAH;
'F' : HAPUS_TERAKHIR;
'G' : BACA_SENARAI;
end;
if pilih in ['A','B','C'] then inc(cacah)
else if (pilih in ['D','E','F']) and (cacah <> 0) then
dec(cacah)
until pilih='H'
end.

Read More

METODE NUMERIK

METODE NUMERIK

{program Transpose dan Determinan}
uses crt;
type t = object
m1,m2 : array [1..2,1..2] of integer;
lok : array [1..4] of integer;
procedure input;
procedure deter;
procedure tampil;
procedure transpos;
end;
var m :t;
i, j, k, pil, det1, det2 : integer;

procedure t.input;
begin
clrscr;
writeln (' Input Matrik I');
for i:= 1 to 2 do
begin
for j := 1 to 2 do
begin
write ('Elemen Matrik [',i,',',j,']:');
readln (m1[i,j]);
end;
end;
gotoxy (35,1); writeln('input Matrik II');k:=2;
for i:= 1 to 2 do
begin
for j := 1 to 2 do
begin
gotoxy (35,k);inc (k);
write ('elemen Matrik [',i,',',j,']: ');
readln (m2[i,j]);
end;
end;
end;
procedure t.tampil;
begin
writeln;
writeln(' *Matrik I*');
writeln (m1[1,1]:5,m1[1,2]:5);
writeln (m1[2,1]:5,m1[2,2]:5);
gotoxy(35,7);writeln('* Matrik II *');
gotoxy (35,8);writeln (m2[1,1]:5,m2[1,2]:5);
gotoxy (35,9);writeln (m2[1,1]:5,m2[2,2]:5);
readln;
end;

procedure t.deter;
begin
det1 := (m1[1,1]*m1[2,2])-(m1[1,2]*m1[2,1]);
det2 := (m2[1,1]*m2[2,2])-(m2[1,2]*m2[2,1]);
writeln;
writeln ('Determinan Matrik I = ',det1);
writeln ('Determinan Matrik II = ',det2);
readln;
end;

Procedure t.transpos;
begin
writeln;writeln ('* Transpose Matrik I *');
writeln(m1[1,1]:5,m1[2,1]:5);
writeln(m1[1,2]:5,m1[2,2]:5);
gotoxy(35,9);writeln('* Transpose Matrik II *');
gotoxy(35,10);writeln(m2[1,1]:5,m2[2,1]:5);
gotoxy(35,11);writeln(m2[1,2]:5,m2[2,2]:5);
readln;
end;

begin

repeat
clrscr;
gotoxy(25,1);writeln ('****** Menu Matrik
******');
gotoxy(25,2);writeln ('1. Input Matrik');
gotoxy(25,3);writeln ('2. Transpose Matrik');
gotoxy(25,4);writeln ('3. Determinan Matrik');
gotoxy(25,5);writeln ('4. Keluar');
gotoxy(27,7);write ('pilihan [1..4] :');
readln(pil);

case pil of
1 : begin
m.input;
m.tampil;
end;
end.




2 : m.transpos;
3 : m.deter;
end;

until (pil)=4
end.

Read More

PASCAL

A.     SOURCE CODE

program perpustakaan;

uses wincrt;

const maks = 70;

type RecBuku= REcord

    Nama: string [10];

    Pengarang : string [15];

    Indeks: integer;

    end;

      var

      Buku : RecBuku;

      DafBuku : array[1..maks] of RecBuku;

      j,n: integer;

      pilih: char;

  begin

  repeat

         writeln('MENU PILIHAN');

         writeln('[T]. MENAMBAH BUKU');

         writeln('[H]. MENGHAPUS BUKU');

         writeln('[S]. SELESAI');

         writeln;

         write('PILIH MENU? '); readln(pilih);

   case pilih of

   'T' : begin

   write('BERAPA BUKU ? '); readln(n);

   for j:=1 to n do

   begin

       writeln('DATA KE- ',j);

       writeln('NAMA BUKU : '); readln(Buku.Nama);

       writeln('PENGARANG : '); readln(Buku.Pengarang);

       writeln('NOMOR INDEKS : '); readln(Buku.Indeks);

       DafBuku[j]:= Buku;

       end;

       end;

   'H': begin

   j:= j-1;

   end;

   end;

   until pilih= 'S';

   end.

B.     OUTPUT

C.     ANALISIS

Progam diatas digunakan untuk mengginputkan dan juga menghapus buku yang ada diperpustakaan,ada beberapa pilihan menu yang digunakan ,menambah buku (T) ,menghapus  buku (H)  dan selesai (S).Jika kita pilih T maka akan muncul berapa buku yang akan ditambah,dan muncul nama buku,pengarang,dan nomor indeks buku yang kita inputkan,banyaknya sesuai dengan apa yang kita inputkan dalam berapa buku?,dan jika kita pilih H maka akan menghapus buku yang telah kita inputkan 1 per 1,jika kita pilih S maka program akan berakhir.

Read More

JAVA BUAT PEMULA

Bahasa pemrograman Java adalah bahasa pemrograman berorientasi objek yang mirip dengan bahasa C++ dan Smalltalk. Java bersifat netral, tidak bergantung pada suatu platform, dan mengikuti prinsip WORA (Write Once and Run Anywhere). Tidak seperti C atau C++, Anda dapat menulis program dalam bahasa Java, cukup sekali mengkompilasi dan dapat dijalankan pada berbagai sistem operasi, seperti Windows, Linux, Solaris, MacOS. Sebaliknya bahasa C++ bergantung pada suatu platform, karena mengharuskan kita mengkompilasi program tersebut pada setiap sistem operasi yang dituju.

• Bab I - Pendahuluan
• Bab II - Instalasi
• Bab III - Memulai Java
• Bab IV - Memulai Java Lebih Lanjut - Struktur Kontrol
• Bab V - Subrutin
• Bab VI - Pemrograman Berorientasi Objek
• Bab VII - Kebenaran dan Ketangguhan Program
• Bab VIII - Pengenalan Struktur Data dan Algoritma
• Bab IX - Pemrograman Generik dan Kelas Koleksi
• Bab X - Pengenalan Input/Output (I/O)

·         Mengenal Bahasa Pemrograman Java

·         Posted Sab, 02/07/2009 - 04:33 by belajarprogram

·         Versi ramah cetak

·         Sejarah Java

·         Java dipelopori oleh James Gosling, Patrick Naughton, Chris Warth, Ed Frank, dan Mike Sheridan dari Sun Microsystems, Inc pada tahun 1991. Mereka membutuhkan kurang lebih 18 bulan untuk membuat versi pertamanya. Bahasa ini pada awalnya disebut “Oak” tapi kemudian diubah menjadi “Java” pada tahun 1995 karena nama Oak telah dijadikan hak cipta dan digunakan sebagai bahasa pemrograman lainnya. Antara pembuatan Oak pada musim gugur 1992 hingga diumumkan ke publik pada musim semi 1995, banyak orang yang terlibat dalam desain dan evolusi bahasa ini. Bill Joy, Arthur van Hoff, Jonathan Payne, Frank Yellin, dan Tim Lindholm merupakan kontributor kunci yang mematangkan prototipe aslinya.

·         Java Modern

·         Java telah digunakan dalam banyak hal dan telah membuktikan keberadaannya pada abad ke 21. Saat ini, Java digunakan bermacam jenis aplikasi seperti aplikasi embedded, aplikasi keuangan, desktop, simulasi pesawat, pemrosesan citra, game, aplikasi perusahaan terdistribusi yang disebut J2EE dan masih banyak lagi.

·         Java Virtual Machine (JVM)

·         Java Virtual Machine merupakan aplikasi sederhana yang ditulis dalam bahasa C untuk mengeksi program yang ditulis dalam bahasa Java. Pada saat kompilasi (perubahan dari bahasa tingkat tinggi ke bahasa lebih rendah), program tersebut diubah menjadi KODE BYTE. Kemudian pada saat eksekusi, JVM membaca kode byte tersebu dan mengubahnya menjadi bahasa mesin yang dimengerti oleh sistem operasi tempat program tersebut dijalankan.

·         Karena JVM sangat bergantung pada platformnya (bahasa mesin merupakan bahasa level rendah yang hanya dimengerti oleh suatu mesin tertentu, misalnya Intel, tapi tidak dapat dimengerti oleh mesin lain, seperti Macintosh), byte code ini dapat dibuat untuk terbebas dari kungkungan platform tertentu. Code byte yang dihasilkan dalam proses kompilasi bahasa Java akan selalu sama untuk setiap sistem operasi atau jenis mesinnya, tetapi JVM akan mengubah kode byte tersebut menjadi bahasa mesin tujuannya.

·         Just In Time Compiler (JIT)

·         Meskipun Java didesain untuk diinterpretasi, secara teknis tidak ada yang menghalangi Java untuk dikompilasi menjadi bahasa mesin seperti bahasa-bahasa pemrograman lainnya. Sun menyediakan kompiler Just In Time Compiler (JIT) untuk mengkompilasi kode byte itu menjadi bahasa mesinnya pada saat yang bersamaan dengan eksekusinya. Walaupun demikian, pendekatan JIT ini menghasilkan kemampuan yang lebih dibandingkan dengan interpretasi biasa.

Kelebihan Java

Posted Sab, 02/07/2009 - 04:34 by belajarprogram

Versi ramah cetak

Bahasa pemrograman lain yang telah ada sebelum Java lahir sudah merupakan bahasa yang baik dan mudah dipelajasi oleh programmer profesional. Akan tetapi para programmer ini menginginkan sesuatu yang baru yang memiliki banyak hal yang menyelesaikan masalah mereka. Utamanya adalah keamanan kode mereka. Hal ini melahirkan pikiran yang revolusioner untuk menemukan bahasa pemrograman lain yang disebut Java. Tidak hanya keamanan tapi juga beberapa hal yang sering disebut sebagai Java-Buzzwords. Kata-kata ini menjelaskan berbagai fitur tambahan dan beberapa hal yang membuat Java demikian sukses dan diterima oleh dunia perangkat lunak. Berikut ini adalah penjelasan serta keuntungan dari kata-kata tersebut.

Sederhana dan Berorientasi Objek

Seperti diuraikan sebelumnya, Java lahir dari suatu pemikiran mendalam akan bahasa pemrograman yang ada pada saat itu, seperti C dan C++. Hal ini akan memudahkan programmer profesional untuk dapat mengerti lebih jelas tentang Java, fungsionalitas, dan lain sebagainya apabila ia memiliki pengetahuan dasar tentang C++ dan konsep pemrograman berorientasi objek. Tujuannya agar konsep dasar dari teknologi Java dapat dimengerti dengan mudah, dan programmer dapat segera menghasilkan sesuatu sedini mungkin. Tidak hanya ini, penemu Java memastikan bahwa Java juga bermula dari bahasa pemrograman dasar yang sudah ada pada saat itu. Kemudian mereka membuang berbagai fitur yang rumit dan membingungkan.

Bahasa pemrograman Java didesain sejak awal untuk menjadi bahasa yang berorientasi objek. Setelah kira-kira 30 tahun, akhirnya teknologi objek menjadi kenyataan dan diterima oleh sebagian besar komunitas pemrograman. Konsep berorientasi objek memungkinkan pembuatan software yang kompleks, berbasis network, sehingga dapat disimpulkan bahwa teknologi Java menghasilkan platform pembuatan perangkat lunak yang baik dan efisien serta berorientasi objek.

Keuntungan yang Anda dapat dari Java

• Mulai dengan cepat: Java merupakan bahasa pemrograman berorientasi objek, mudah dipelajari, terutama untuk programmer yang sudah menguasai C atau C++

• Tulis lebih sedikit program: Jumlah kelas, jumlah metode, dll, menunjukkan bahwa program yang ditulis dalam bahasa pemrograman Java memiliki jumlah 4 kali lipat lebih kecil dari program sama yang ditulis dalam bahasa C++

• Tulis program lebih baik: Bahasa pemrograman Java menganjurkan praktek membuat program yang baik, dan automatic garbage collection membantu Anda untuk menghindari kebocoran memori. Orientasi objeknya, arsitektur komponen JavaBeans, dan jangkauannya yanga luas, API yang mudah diperluas, memungkinkan Anda menggunakan kode yang ada.

• Membuat program dengan lebih cepat: Bahasa pemrograman Java lebih mudah dari C++, pemrograman akan menjadi 2 kali lipat lebih cepat, dengan jumlah baris yang jauh lebih sedikit.

• Menghindari kebergantungan pada platform tertentu: Anda dapat menjalankan program Anda pada banyak platform dengan TIDAK menggunakan library yang ditulis spesifik untuk platform tertentu.

• Tulis sekali, jalankan di mana saja: Karena aplikasi yang ditulis dalam bahasa Java dikompilasi ke dalam kode byte yang bebas platform, aplikasi yang ditulis dapat jalan secara konsisten pada platform apa saja.

• Distribusikan software Anda dengan mudah: Dengan Java Web Start, pengguna program Anda akan dapat menggunakan aplikasi Anda dengan mudah. Sistem pengecekan versi otomatis pada saat program dimulai menjamin pengguna Anda selalu menjalankan versi terkini. Apabila versi baru tersedia, Java Web Start akan melakukan instalasi secara otomatis.

Read More