pada malam ini saya akan berbagi tentang program linked list.
Semoga bermanfaat :)
Program ini menggunakan Free Pascal IDE. bisa disesuaikan dengan aplikasi yang Anda gunakan
Source Code
Program Linked_List;
uses crt;
type
datamhs=^recordmhs;
recordmhs
=record
nim : array [1..10] of string;
nama : array [1..10] of string;
prodi : array [1..10] of string;
alamat :
array [1..10] of string;
end;
var
mhs :
datamhs;
i,n :
integer;
jawab : char;
Begin
new(mhs);
with mhs^
do
begin
i:=1;
repeat
clrscr;
writeln('******************************************************');
writeln('------------------------------------------------------');
writeln('
PROGRAM DATA MAHASISWA
');
writeln('------------------------------------------------------');
writeln('******************************************************');
writeln;
begin
write('Nama : ');
readln(nama[i]);
write('NIM : ');
readln(nim[i]);
write('Program Studi : ');
readln(prodi[i]);
write('Alamat : ');
readln(alamat[i]);
writeln;
end;
i:=i+1;
writeln;
writeln('Ingin Tambah Data ? [Y/T] : '); readln(jawab);
until
(jawab='T') or (jawab='t');
clrscr;
writeln('======================================================');
writeln('>>>
DATA MAHASISWA
<<<');
writeln('======================================================');
for i := 1
to (i-1) do
begin
writeln('------------------------------------------------------');
writeln('NIM :
',nim[i]);
writeln('Nama :
',nama[i]);
writeln('Program Studi : ',prodi[i]);
writeln('Alamat :
',alamat[i]);
writeln('------------------------------------------------------');
end;
end;
dispose(mhs);
readkey;
End.
|
Tidak ada komentar:
Posting Komentar