pointer

uses crt;var p : ^integer;    nilai : integer ;    begin    clrscr;    nilai:=2013;    p:=@nilai;    writeln(p^);    p^:=1717;    writeln(nilai);    readln;    end. Pembahasan:Pada contoh program deklarasi ini, pertama-tama dideklarasikanvariabel p sebagai pointer yang bertipe integer. Dibuat sebuah variabel lagiyang diberi nama nilai dan bertipe integer.Variabel nilai diisi dengan nilai 2013. Kemudian...

Read More

game pascal

PROGRAM SULAPANGKA; USES CRT; VAR I, J, K, L: INTEGER; YT: CHAR; NILAI:INTEGER; FUNCTION CSTR(I: INTEGER): STRING; VAR S: STRING[11]; BEGIN STR(I, S); CSTR := S; END; PROCEDURE TULIS(POSISI:INTEGER; TEKS:STRING); VAR A, B, C: INTEGER; BEGIN A := POSISI; B := POSISI MOD 10; C := 1; IF B = 0 THEN BEGIN B := 10;C := 0; END; GOTOXY(B * 8 - 5, (A DIV 10 + C) * 3 + 1); WRITE(TEKS); END; PROCEDURE BIKIN_KOTAK(KOLOM, BARIS: INTEGER); BEGIN CLRSCR; FOR I:=...

Read More