Linked List

Contoh Program Linked List uses crt;  type pointer=^typedata;       Typedata = RECORD       Nilai : INTEGER;       Berikutnya : POINTER;  end;var list :pointer;procedure mas_dep(var L : pointer; x : Integer);var baru : pointer; begin  new(baru);  baru^.Nilai:=x;  baru^.Berikutnya:= nil;  if L= nil then L:=baru  else ...

Read More

Program Pointer Tak Bertipe Pada Pascal

Contoh Program Pointer Tak Bertipe Pada Pascal uses crt;varp : Pointer;q : ^Byte;r : array [0..100] of Byte;i : Byte;n : integer;beginclrscr;write('Masukkan jumlah data : '); readln(n);writeln;writeln;GetMem(p, 20);q:=p;for i:=0 to n dobeginr[i]:=n-i;q^:= n-i;inc(q);end;q:=p;for i:=0 to n dobeginwriteln(' ___________________________');writeln('|             |            ...

Read More

Program Mencari Nilai Maksimum dan Minimum pada pascal

Contoh program mencari nilai yang sudah kita inputkan serta mencari nilai maksimum dan nilai minimum uses crt;label awal;const nmin = 1;      nmax = 100;type  arrint = array [nmin..nmax] of integer;var tabint : arrint;    x,n,i,indeks,max,min,maks : integer;function seqsearch1(xx : integer): integer;  var i : integer;  begin    i := 1;    while ((i<n) and (tabint[i]...

Read More