Game Tebak Kata (Pascal)

LISTINGNYA..

uses crt;
const
havetry=10;
s: array[0..18] of string=
('hello', 'mouse', 'hacher', 'programmer', 'killer', 'teacher', 'splotchier',
'butcher', 'computer', 'pascal', 'house', 'poor', 'children', 'museum',
'security', 'spillway', 'stupidity', 'corrigenda', 'freebooter');
var ch: char;
gue,b,nowwrd,trynow: byte;
s1,wrs,alr: string;
r: boolean;
win: integer;
begin

Pointer

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