Muhammad Khairi Ihsan: April 2015

Senin, 20 April 2015

Program Linked List pada Pascal

Selamat malam.
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;

dispose(mhs);

readkey;

End.

Senin, 13 April 2015

Contoh Program Pointer Tidak Bertipe

Selamat Pagi. . .
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.

Senin, 06 April 2015

Program Extreme Search pada pascal

Selamat Siang . . .
Hari ini saya akan berbagi program tentang pencarian nilai maksimum dan minimun dengan menggunakan Extreme Search pada Pascal.
Sederhana saja programnya.
Semoga Bermanfaat ^^

Source Code

Berikut source code dari program ini. saya menggunakan aplikasi Free Pascal IDE, apabila tidak mau compile, maka disesuaikan dengan aplikasi yang Anda gunakan

Program Extreme_Search;

uses crt;

Type arrint=array[1..100] of integer;

var maks : integer;

mini : integer;

tabint : arrint;

i,nn : integer;

Function maksimum(tabint:arrint; n:integer): integer;

var i : integer;

max : integer;

begin

for i:=1 to n do

if max<tabint[i] then

max:=tabint[i];

maksimum:=max;

end;

Function minimum(tabint:arrint; n:integer): integer;

var

min : integer;

begin

for i:=n downto 1 do

if min>tabint[i] then

min:=tabint[i];

minimum:=min;

end;

Begin

clrscr;

gotoxy(15,1);

writeln('>>> PROGRAM MENEMUKAN NILAI MAKSIMUM DAN MINIMUM <<<');

writeln;

write ('Jumlah elemen = '); readln(nn);

for i:=1 to nn do

begin

write('Elemen ke-',i,' = '); readln(tabint[i]);

end;

writeln;

maks:=maksimum(tabint,nn);

mini:=minimum(tabint, nn);

writeln('Nilai Maksimum = ',maks);

writeln('Nilai Minimum = ',mini);

readln;

End.

Output
Berikut tampilan program

Selamat Memahami dan semoga sukses. :)