PROGRAM APLIKASI METODE REKURSI

 PERTEMUAN KE 4

PROGRAM APLIKASI

MENGGUNAKAN METODE REKURSI

• Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tipelarik=string[20];
  larikurut=array[1..1000] of tipelarik;

  procedure quicksort(var x :larikurut;bawah,atas:word);

var
i,j:word;
sementara:tipelarik;

begin
  while atas>bawah do
  begin
    i:=bawah;
    j:=atas;
    sementara:=x[bawah];
    {memecak larik menjadi 2 bagian}
    while i<j do
    begin
      while x[j] > sementara do
      j:=j-1;
      x[i]:=x[i];
      while (i<j)and (x[i] <= sementara) do
      i:=i+1;
      x[j]:=x[i];
    end;
    x[i]:=sementara;
    {urutkan rekursi}
    quicksort(x,bawah,i-1);
    bawah:=i+1;
    end;
  end;
    var
      nama:larikurut;
      n,i:word;
    begin
      write ('jumlah data akan diurutkan ?');readln(n);
      writeln;
      writeln ('masukkan data :');
      for i:=1 to n do
      begin
        write ('data ke',i,'?');readln(nama[i]);
      end;
      {urutkan dengan procedure quick sort}
      quicksort(nama,1,n);
      {tampilkan data yang di urut}
      writeln;
      writeln ('data yang telah urut :');
      for i :=1 to n do
      writeln(nama[i]);readln;
  end.

• FORM RUNNING PROGRAM