Program File Sederhana dengan Pascal

Rabu, 06 Mei 2015 - Diposting oleh Unknown di 17.59

Contoh Program File Sederhana

Berikut Source Code Program:

Program filee;

Uses Crt;

Var

tes : Text;

nama,nim : String;

no,shift,pilih,i : byte;

Tanya : Char;

Begin

Repeat

ClrScr;

writeln('-------------------------------');

Writeln('| Program File Text Sederhana |');

Writeln('-------------------------------');

Writeln('| 1. Masukan Data Anda |');

Writeln('| 2. Lihat Data |');

Writeln('| 3. Hapus Data |');

Writeln('| 4. Keluar |');

Writeln('|------------------------------|');

Write(' Pilihan Anda : ');Readln(Pilih);

Case Pilih Of

1 : Begin clrscr;

Assign(tes,'praktikum.txt');

rewrite(tes);

Repeat

inc(i);

writeln(' Data - ',i);

writeln(' -------------------------------------');

write(' Nama : '); readln(nama); writeln(tes,nama);

write(' NIM : '); readln(nim); writeln(tes,nim);

write(' Shift : '); readln(shift);writeln(tes,shift);

write(' No. Meja : '); readln(no); writeln(tes,no);

writeln(tes,' ');

Write(' Memasukan Lagi (Y/T) : '); readln(tanya);

writeln(' -------------------------------------');

writeln;

Until UpCase(tanya) = 'T';

Close(tes);

End;

2 : Begin clrscr;

Assign(tes,'praktikum.txt');

reset(tes);

i:= 0;

while not eof(tes) do

begin

inc(i);

readln(tes,nama); readln(tes,nim);

readln(tes,shift); readln(tes,no);

readln(tes);

writeln(' Data - ',i);

writeln(' -----------------------------------');

writeln(' Nama : ',nama);

writeln(' NIM : ',nim);

writeln(' Shift : ',shift);

writeln(' No. Meja : ',no);

writeln(' -----------------------------------');

writeln;

end; readln;

End;

3 : Begin clrscr;

write(' Data akan dihapus [y/t] : '); readln(tanya);

if upcase (tanya) = 'Y' then

Assign(tes,'praktikum.txt');

erase(tes);

End;

else End;

until pilih=4;

End.

0 komentar

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

Program dengan Heap Sort (Sorting) dengan Pascal

Minggu, 29 Maret 2015 - Diposting oleh Unknown di 09.18

Contoh program Heap Sort
dengan Pascal

Berikut source code program:

Program Heap_Sort;

uses crt;
type SArray = array [0..100] of string;
var n,i: integer;
A: SArray;

procedure swap ( var a, b: string );
var temp: string;
begin

temp := a;
a := b;
b := temp;
end;

procedure siftDown ( var A: SArray; start, akhir: integer );
var root, child: integer;
begin

root := start;
while ( root * 2 + 1 <= akhir ) do
begin
child := root * 2 + 1;
if ( child < akhir ) and ( A[child] < A[child + 1] ) then
child := child + 1;

if ( A[root] < A[child] ) then
begin
swap ( A[root], A[child] );
root := child;
end else
break;
end;
end;

procedure heapify ( var A: SArray; count: integer );
var start: integer;
begin

start := (count - 1) div 2;
while ( start >= 0 ) do
begin
siftDown (A, start, count-1);
start := start - 1;
end;
end;

procedure heapSort( var A: SArray; n: integer );
var akhir: integer;
begin
heapify ( A, n );
akhir:= n - 1;

while ( akhir > 0 ) do
begin
swap( A[akhir],A[1]);
akhir := akhir - 1;
siftDown (A, 0, akhir);
end;
end;

begin
clrscr;
gotoxy(17,1);writeln('Program Sorting Secara Ascending');
gotoxy(17,2);writeln(' Menggunakan Metode Heap Sort ');
writeln; writeln;

write ( 'Inputkan Jumlah Data : ' ); readln (n);
writeln;
for i := 0 to n-1 do
begin
write('Nama ke-',i+1:2,' : ');
readln(A[i]);
end;
writeln('---------------------------------------');

heapSort ( A, n );
writeln;
writeln('Data setelah diurutkan ');
writeln;
for i := 0 to n-1 do
begin
writeln ('Nama ke-',i+1:2,' : ',A[i]);
end;
readkey;
end.

Dan berikut adalah tamilan output program diatas:

1. Tampilan saat program dijalankan

2. Tampilan saat jumlah data yang diinginkan diinput

3. Tampilan saat data diinputkan

4. Tampilan saat semua data telah diinput dan diurutkan

0 komentar

Program Factorial (Rekursif) Dengan Pascal

Kamis, 19 Maret 2015 - Diposting oleh Unknown di 06.57

Contoh Program "Factorial dengan Rekursif"
dengan Pascal

Berikut Source Code Program:

Program Factorial;
uses crt;

var n:integer;

function factorial(n:integer):integer;
begin
if (n=0) then
factorial:=1
else
factorial:= n*factorial(n-1);
end;

begin
clrscr;
write('Masukkan Angka : ');readln(n);
writeln('Hasil ',n,'! : ',factorial(n));
readln;
end.

Dan berikut adalah output dari prorgam diatas:

1. Tampilan saat progam dijalankan

2. Tampilan saat angka yang ingin difaktorialkan dimasukkan

3. Tampilan hasil faktorial dari angka yang diinput

0 komentar

Program Data Mahasiswa Dengan Pascal

Sabtu, 14 Maret 2015 - Diposting oleh Unknown di 20.37

Contoh program "Data Mahasiswa"
dengan Pascal

Berikut Source Code program:

Program Data_Mahasiswa;
Uses crt;

Type Tabel_Mhs = Recor
Nama : String[10];
NIM : String[10];
Nilai : Integer;
Grade : String[10];
End;

Var

Mhs : Array[1..20] of Tabel_Mhs;
Angka: Real;
i, n: Integer;

Begin
clrscr;
write('Masukkan banyak data : ');readln(n);
for i:=1 to n do
begin
write('Nama Mahasiswa : ');readln(Mhs[i].Nama);
write('NIM Mahasiswa : ');readln(Mhs[i].NIM);
write('Nilai : ');readln(Mhs[i].Nilai);

if Mhs[i].Nilai >= 80 then
Mhs[i].Grade:= 'A'
Else if Mhs[i].Nilai >= 70 then
Mhs[i].Grade:= 'B'
Else if Mhs[i].Nilai >= 60 then
Mhs[i].Grade:= 'C'
Else if Mhs[i].Nilai >= 50 then
Mhs[i].Grade:= 'D'
Else if Mhs[i].Nilai < 50 then
Mhs[i].Grade:= 'E';
Writeln('Grade : ',Mhs[i].Grade);readkey;
End;

Begin
Clrscr;
gotoxy(1,2);Writeln('DATA REPORT':45);
gotoxy(1,4);Writeln('[----][-------------][---------------][-----------][-----------]');
gotoxy(1,5);Writeln('[ NO ][ Nama ][ NIM ][ Nilai ][ Grade ]');
gotoxy(1,6);Writeln('[----][-------------][---------------][-----------][-----------]');

For i:= 1 to n do
Begin
with Mhs[i] do
begin
gotoxy(1,6+i);Write('[ ][ ][ ][ ][ ]');
gotoxy(1,7+i);Write(' ---- ------------- --------------- ---------- ----------- ');
gotoxy(4,6+i);Write(i);
gotoxy(11,6+i);Write(Nama);
gotoxy(27,6+i);Write(NIM);
gotoxy(43,6+i);Write(Nilai);
gotoxy(57,6+i);Write(Grade);

End;
Readkey;

End;

End;

End.

Dan berikut adalah output dari program diatas.

1. Setelah semua data yang diinginkan telah diinput

2. Tabel hasil dari inputan diatas

0 komentar