Materi kuliah struktur data

ini adalah source code LIFO untuk MK struktur data

 program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  point = ^recrecord ;
  recrecord = record
              nim : integer ;
              next : point ;
            end ;

var
  a,kepala : point ;
  i : integer ;
  jawab : char ;
procedure insert (data: integer );
begin
  new(a) ;
  a^.nim := data ;
  if kepala = nil then
    a^.next := nil
  else
    a^.next := kepala ;

  kepala := a ;

end;

begin
   // memasukan data lewat console
   repeat
     write ('masukan data terurut : '); readln(i);
     insert(i) ;
     write('apakah ingin menambah data ,(y/t)?');readln(jawab);
   until(UpperCase(jawab)='T') ;

  repeat
    writeln(a^.nim);
    a := a^.next ;
  until (a=nil) ;

readln ;
end.

orkom ... segera di upload

Artikel Terkait delphi , Pemrograman , Source Code