- Nama : Program Pengurutan dengan Pointer
- Bahasa : Pascal
- Software : Free Pascal IDE
- Deskripsi : Program ini terdiri dari pengurutan ascending dan descending dengan menggunakan pointer.
- Screenshot :
Gambar 1. Proses penginputan
Gambar 2. Output hasil pengurutan
- Source Code :
|
uses crt;
var
p :pointer;
q :^byte;
i,m,n
:byte;
begin
clrscr;
writeln('>> Program Pengurutan dengan Pointer <<');
writeln;
write ('Batas awal : ');readln(m);
write ('Batas akhir :
');readln(n);
writeln;
writeln('Ascending :');
getmem(p,n);
q:=p;
for i:=n
downto m do
begin
q^ :=n-i+m;
writeln(q^:2);
inc(q);
end;
writeln;
writeln('Descending :');
getmem(p,n);
q:=p;
for i:=m
to n do
begin
q^ :=n-i+m;
writeln(q^:2);
inc(q);
end;
readkey;
end. |
0 komentar:
Posting Komentar