1. 1. Screenshot Program
a.
Tampilan saat program dijalankan
(gambar 1)
b.
Tampilan saat ingin membuat file data
(gambar 2)
c.
Tampilan saat ingin menginputkan data
(gambar 3)
d.
Tampilan saat menginputkan data
(gambar 4)
e.
Tampilan saat menekan T {tidak menambah data} dan input pilihan 3
(gambar 5)
f.
Tampilan saat menampilkan data inputan
(gambar 6)
g.
Tampilan saat ingin keluar dari program.
(gambar 7)
2.
Source Code
2. uses crt;
3. type pointer=^typedata;
4. TYPEDATA = RECORD
5. NILAI : INTEGER;
6. BERIKUTNYA : POINTER;
7. end;
8.
9.
10. var list :pointer;
11.
12. procedure mas_dep(var L : pointer; x :
Integer);
13. var baru : pointer;
14.
15. begin
16. new(baru);
17. baru^.Nilai:=x;
18. baru^.Berikutnya:= nil;
19. if L= nil then L:=baru
20. else
21. begin
22. baru^.berikutnya :=L;
23. L:= baru;
24. end;
25. end;
26.
27. procedure cetak (L:pointer);
28. var bantu : pointer;
29. begin
30. bantu:= L;
31. while bantu <> nil do
32. begin
33. write (bantu^.Nilai:3);
34. Bantu:=bantu^.Berikutnya;
35. end;
36. end;
37.
38. var bil, bil2 : integer;
39. JB : char;
40.
41. begin
42. clrscr;
43. new(list);
44. list:=nil;
45. jb:='Y';
46. writeln;
47. writeln (' +++program linked List+++');
48. writeln;
49. writeln ('
Masuk depan');
50. while upcase(Jb)='Y' do
51. begin
52. writeln;
53. write ('Masukkan bilangan : ');
readln(bil);
54. mas_dep(list,bil);
55. write ('Lagi [Y/T] : '); readln(Jb);
56. end;
57. cetak(list);
58. writeln;
59. readln;
60. end.
|