Program Pascal Linked List

Minggu, 19 April 2015 - Diposting oleh Unknown di 16.20

Contoh Program Pascal Linked List

Berikut source code program :

program pointer1;
uses crt;
type
Dmhs = ^Rmhs;
Rmhs = record

nm,nim,prd: string;end;
var
mhs: array [1..5] of Rmhs;
n, i : integer;
begin
clrscr;
write ('Masukkan banyak data : ');
readln (n);
writeln;
for i:= 1 to n do
begin
writeln('Masukkan Data ke-',i,'!');
write('Nama     : ');
readln(mhs[i].nm);
write('NIM      : ');
readln(mhs[i].nim);
write('Prodi    : ');
readln(mhs[i].prd);
writeln;end;clrscr;
for i := 1 to n do
begin
writeln('Data ke-',i);
writeln('Nama   : ',mhs[i].nm);
writeln('NIM    : ',mhs[i].nim);
writeln('Prodi : ',mhs[i].prd);
writeln;
end;readkey;
end.

Output Program:

1. Tampilan saat program dijalankan

2. Tampilan saat data diinput

3. Tampilan hasil akhir

0 komentar

Program Pointer Tidak Bertipe dengan Pascal

Minggu, 12 April 2015 - Diposting oleh Unknown di 15.47

Contoh Program Pointer Tidak Bertipe
dengan Pascal

Berikut source code program :

Program Pointer_tidak_bertipe;
Uses crt;
Var
    p : Pointer;
    q : ^Byte;
    r : array [0..100] of Byte;
    i,n : Byte;

Begin
     Clrscr;
     GetMem(p, 20);
     q := p;
     Write('Input angka : '); readln(n);
     Clrscr;
     For i := 0 to n do
     Begin
          r[i] := n - i;
          q^ := n - i;
          inc(q);
     End;
     q := p;
     For i := 0 to n do
     Begin
          Write('r[ ', i ,' ] = ', r[i], ': ');
          Writeln('p^ ke-', i ,' = ', q^);
          inc(q);
     End;
    Readln;
End.

Dan berikut output program diatas :

1. Tampilan saat program dijalankan

2. Tampilan saat angka diinputkan

3. Tampilan akhir program

0 komentar

Program Extreme Search (Nilai Maksimum & Minimum) dengan Pascal

Minggu, 05 April 2015 - Diposting oleh Unknown di 08.41

Contoh Program dengan Extreme Search
dengan Pascal

Berikut Source Code Program :

Program extreme_search;

Uses crt;

Type

  Arrint = array [1..100] of integer;

Var

  maks, minm, jlh, i   : integer;

  tabint : arrint;



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

Var

    i,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

  i,min : integer;

Begin

  For i:=1 to n do

  If min > tabint[i] then

  Min:= tabint[i];

  Minimum:=min;

End;



Begin

  Clrscr;

  Writeln('Program Extreme Search');

  Writeln('======================');

  writeln;

  Write('Jumlah Data = '); readln(jlh);

  Writeln;

  Write('Inputkan Data = ');

  For i:= 1 to jlh do

    Begin

      Gotoxy(13+(i*4),6); readln(tabint[i]);

    End;

  Writeln;

  Maks:=maksimum(tabint, jlh);

  Minm:=minimum(tabint, jlh);

  Writeln('Nilai Terbesar = ',maks);

  Writeln('Nilai Terkecil = ',minm);

  Readln;

End.

Dan berikut adalah output program diatas:

1. Tampilan saat program dijalankan

2. Tampilan saat jumlah data yang diinginkan diinput

3. Tampilan saat data diinputkan

4. Tampilan saat data telah ditemukan maksimum dan minimumnya

0 komentar