Program Heap_Sort;

uses crt;
type SArray = array [0..100] of string;
varn,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 );
varakhir: 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('  MenggunakanMetode Heap Sort  ');
        writeln; writeln;

        write ( 'InputkanJumlah 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 setelahdiurutkan  ');
        writeln;
                 for i := 0 to n-1 do
                 begin
                         writeln ('Nama ke-',i+1:2,' : ',A[i]);
                 end;
readkey;
end.

TUGAS PRAKTIKUM
ALGORITMA DAN PEMROGRAMAN II
"SORTING"

Nama     : Muhammad Denny Ersyadi R
  NIM     : J1F114082
KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI
UNIVERSITAS LAMBUNG MANGKURAT
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
PROGRAM STUDI S1 ILMU KOMPUTER
BANJARBARU
2015



SORTING

Uses crt;
            Var a:array[1…100]of integer;
BD       :integer;
i,j,swap           :integer;

procedure input_data(z:integer);
begin
for j:=1 to Z do
begin
write (‘input data ke ‘,j,’=’);
            readln(a[j]);
end;
end;
            procedure cetak_data(Z:integer);
            begin
            for i:=1 to Z do
begin
write (a[i]), ’ , ’);
end;
end;
            procedure Ascending(z:integer);
            begin
            for i:=1 to z do
            begin
            for j:=1 to z do
begin
if a[i]<a[j] then
begin
            swap:=a[i];
            a[i]:=a[j];
            a[j]:=swap;
end;
end;
end;
            end;
procedure descending(z:integer);
            begin
            for i:=1 to z do
            begin
            for j:=1 to z do
begin
if a[i]>a[j] then
begin
            swap:=a[i];
            a[i]:=a[j];
            a[j]:=swap;
end;
end;
end;
            end;
var maxi :integer;
function max(i,j,z:integer):integer;
begin
for i:=1 to z do
end;
            function min(I,j,z:integer):integer;
begin
for i:=1 to z do
begin
for j:=1 to z do
end;
            if a[i]>a[j] then
begin
min:=a[i];
            end;
if  a[i]<a[j] then
min:=a[j];
end;
            if a[i]=a[j] then
            min:=a[i];
            end;
begin
clrscr;
write (‘Input Banyak Data :’);
readln(BD);
input_data(BD);
            write(‘Data Sebelum Diurutkan :’);
cetak_data(BD);
writeln;
            write(‘Data Di urutkan Secara Ascending :’);
            Ascending(BD);
Cetak_data(BD);
Writeln;
            Write(‘Data Di urutkan Secara descending :’);
            Descending(BD);
            Cetak_data(BD);
            Writeln;
            Write(‘data maximal :’);
            Cetak_data(maxi);
            Readln;
            End.

TUGAS PRAKTIKUM
ALGORITMA DAN PEMROGRAMAN II
"REKURSIF"

Nama     : Muhammad Denny Ersyadi Rahman
NIM     : J1F114082                                              .
KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI
UNIVERSITAS LAMBUNG MANGKURAT
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
PROGRAM STUDI S1 ILMU KOMPUTER
BANJARBARU
2015

Program Bilangan Fibonacci


program deretfibonacci;
uses crt;
var a, b, c, d, f : integer;
begin
    clrscr;
    writeln('Program Deret Fibonacci ');
    writeln;
    write('Masukkan Jumlah Deret : ');
    readln(a);
    write('Deret Fibonacci ',a,' Deret : ');
    d := 0;
    f := 1;
    c := 0;
    for b := 1 to a do
    begin
    c := d + c;
    d :=f;
    f :=c;
    write(c);
    write(' ');
    end;
    readln;
end.

Bilanan Fibonacci

PROGRAM FIBONACCI;
uses crt;
var
   n:integer;
   i:integer;
   deret:array[1..100] of longint;

begin
     clrscr;
     write('Masukan jumlah deret :');
     readln(n);
     writeln;
     for i := 0 to n-1 do
     begin
          if (i = 0) or (i = 1) then
             begin
                  deret[i]:=1;
                  write(deret[i],' ');
             end
          else
              begin
                   deret[i]:=deret[i-1]+deret[i-2];
                   write(deret[i], ' ');
              end;
     end;
     readln;
end.

TUGAS PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN II

"ARRAY OF RECORD"

Nama     : Muhammad Denny Ersyadi R

  NIM     : J1F114082

KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI

UNIVERSITAS LAMBUNG MANGKURAT

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

PROGRAM STUDI S1 ILMU KOMPUTER

BANJARBARU

2015

  ARRAY of Record

Program Data_Mahasiswa;
Uses crt;

  Type Tabel_Mhs = Record
     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.

 

Output Program: