GAME

LISTINGNYA
uses crt;
var
        x, jumlah : byte;
        ch : char;
        hitung : longint;
procedure tampil(kartu :byte);
var
        x: byte;
begin
        for x:=1 to 255 do
        begin
        hitung := hitung +1;
                if (x and (1shl (kartu-1)) <>0 ) then
                write (x:4,' ');
                if hitung mod 20 = 0 then
                writeln;
        end;
end;
begin
        clrscr;
        writeln ('Konsentrasi, Pikirkan Sebuah Bilangan Antara 1 Sampai 255');
        writeln ('Jika Sudah, Tekan Sembarang Tombol');
        ch := readkey;
        jumlah :=0;
        for x:=1 to 8 do
        begin
                clrscr;
                tampil (x);
                writeln;
                write ('Apakah Bilangan Yang Anda Pikirkan Ada Di Atas?? (Y/T)');
                ch :=readkey;
                writeln;
                if (ch='y') or (ch='Y') then inc (jumlah, 1 shl (x-1));
        end;
clrscr;
        writeln ('Anda Memikirkan Bilangan : ', jumlah);
        readkey;
        readln;
        end.

HASIL OUTPUTNYA

Add caption

POINTER DALAM C++

LISTINGNYA..
/* program : ptr4.c */
#include <stdio.h>
main ()
{
    static int tgl_lahir[] = {19, 9, 1994};
    int *ptgl;
    ptgl = tgl_lahir;
    printf ("Nilai yang ditunjuk oleh ptgl = %d\n", *ptgl);
    printf ("Nilai dari tgl_lahir[0] = %d\n", tgl_lahir[0]);

HASIL OUTPUTNYA

POINTER DALAM PASCAL

LISTINGNYA....
uses crt;
type ptr =^data;
data = record
isi : string;
pre,
next : ptr;
end;
var baru,posisi,awal,akhir : ptr;

procedure tambah_belakang (elemen : string);
begin
new (baru);
baru^.isi :=elemen;
baru^.pre :=nil;
baru^.next :=nil;
if awal = nil then awal :=baru
else
begin
akhir^.next :=baru;
baru^.pre := akhir;
end;
akhir := baru;
akhir^.next :=nil;
end;

procedure baca_depan;
begin
posisi :=awal;
repeat
write (posisi^.isi);
posisi := posisi^.next;
until posisi = nil;
end;

procedure baca_belakang;
begin
posisi :=akhir;
repeat
write (posisi^.isi);
posisi :=posisi^.pre;
until posisi = nil;
end;


begin
clrscr;
tambah_belakang ('P');
tambah_belakang ('o');
tambah_belakang ('l');
tambah_belakang ('i');
tambah_belakang ('t');
tambah_belakang ('e');
tambah_belakang ('k');
tambah_belakang ('n');
tambah_belakang ('i');
tambah_belakang ('k');
writeln ('JIKA DIBACA DARI DEPAN ADALAH');
baca_depan;
readln;
writeln ('JIKA DIBACA DARI BELAKANG ADALAH');
baca_belakang;
readln;
end.

HASIL OUTPUT