Jumpa lagi. sekarang saya akan mempublish tentang program pointer tidak bertipe pada pascal.
sederhana saja.
Semoga bermanfaat. ^^
|
Program Pointer_tidak_Bertipe;
uses crt;
var p : Pointer;
q
: ^Byte;
r
: array [0..100] of Byte;
i
: Byte;
batas : integer;
jawab : char;
Begin
repeat
clrscr;
GetMem(p, 20);
q:=p;
gotoxy(23,1); writeln('>>> Program
Pointer Tidak Bertipe <<<');
gotoxy(23,2); writeln(' Pengurutan Angka ');
gotoxy(23,3); writeln(' Muhammad Khairi Ihsan (J1F114037) ');
writeln;
write('Masukkan batas data: ');
readln(batas);
writeln;
writeln('Ascending <> Descending ');
for
i:= 1 to batas do
begin
r[i]:=batas-i;
q^:=batas-i;
inc(q);
end;
q:=p;
for
i:= batas downto 1 do
begin
write(' ',r[i],' ');
writeln(q^);
inc(q);
end;
write('Apakah Anda ingin mengulang kembali
[Y/T] ? ');
readln(jawab);
until upcase(jawab)='T';
readln;
end.
|
Tidak ada komentar:
Posting Komentar