berikut ini merupakan salah satu contoh source code program link list dalam pascal: uses crt; type data = ^pdata; pdata = record nama : string; next: pointer; end; var daftar : data; procedure masuk(var p: data; x : string); var a : data; begin new(a); a^.nama:= x; a^.next:= nil; if p=nil then p := […]
Berikut ini merupakan contoh penggunaan pointer tidak bertipe: uses crt; var p : Pointer; q : ^Byte; r : array [0..100] of Byte; i : Byte; n : integer; begin clrscr; write(‘Masukkan jumlah data : ‘); readln(n); writeln; writeln; GetMem(p, 20); q := p; for i := 0 to n do begin r[i] := […]
Pencarian merupakan salah satu algoritma yang dapat digunakan untuk melakukan pencarian dalam sebuah array. Berikut ini merupakan contoh program pencarian yang mengimplementasikan pencarian sekuensial dan extrem: uses crt; type data = record nama , nim : string; alpro, kal, pa, logmat, isbd, matdis, ale, orkom, pkn : integer; end; var […]
PANCASILA, DI TENGAH LENYAPNYA JATI DIRI BANGSA Krisis nilai dan karakter, dewasa ini nampaknya telah menjadi sebuah isu nasional yang kian hari kian meluas di kalangan masyarakat. Lain hal nya dengan harga bahan pokok yang kian melambung, atau harga bahan bakar yang tidak stabil, nilai dan karakter dari bangsa ini kian mengalami degradasi. Moral […]
Husna Rusdiani's Land 