REKURSI

REKURSI

program rekursi;

{$APPTYPE CONSOLE}

Uses

 SysUtils;

type

    tipe_larik = string[20];

    larik_urut = array [1..1000] of tipe_larik;

    procedure quicksort(var a : larik_urut; bawah, atas:word);

      var i,j:Word;

        sementara :tipe_larik;

          Begin

            While atas > bawah do

            Begin

              i := bawah;

              j := atas;

              sementara:= a[bawah];

              {Memecah Larik Menjadi dua Bagian}

                while i<j do

                  Begin

                    While a[j]>sementara do

                      j:=j-1;

                      a[i]:=a[j];

                        while (i<j) And (a[i] <= sementara) do

                          i:=i+1;

                          a[j]:=a[i];

                  end;

                    a[i]:= sementara;

                    {Urutkan Rekursi}

                    quicksort(a,bawah,i-1);

                    bawah:=i+1;

              end;

          end;

            var

              nama:larik_urut;

              b,i:Word;

                Begin

                  writeln('=================================================');

                  writeln('             BELAJAR PENGURUTAN DATA             ');

                  writeln('=================================================');

                  writeln('Berapa Banyak Data Anda yang Akan Di Urutkan...? '); Readln(b);

                  Writeln;

                  writeln('Masukkan Data Anda : ');

                    for i:=1 to b do

                      Begin

                        write('Data Ke ',i,'?'); Readln(nama[i]);

                      end;

                      {Urutkan dengan Procedure Quicksort}

                      quicksort(nama,1,b);

                      {Tampilan data yang di urutkan}

                      Writeln;

                      Writeln('Data yang Telah di urutkan : ');

                        for i:= 1 to b do

                          Writeln(nama[i]);

                          Readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.

Read More

TUGAS - PROCEDURE FUNCTION

TUGAS - PROCEDURE FUNCTION

unit deret;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    function deret(x:integer):integer;

  end;

var

  Form1: TForm1;

  hasil:integer;

  D:real;

implementation

{$R *.dfm}

function TForm1.deret(x:integer):integer;

var

  i:integer;

begin

  i:=1;

  hasil:=0;

  while i<=x do

  begin

    hasil:=hasil+i;

    i:=i+1;

  end;

  deret:=hasil;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  DA,DB,DC,A,B,C:integer;

begin

  A:=strtoint(Edit1.Text);

  B:=strtoint(Edit2.Text);

  C:=strtoint(Edit3.Text);

  DA:=deret(A);

  DB:=deret(B);

  DC:=deret(C);

  D:=(DA+DB)/DC;

  Edit4.Text:=floattostr(D);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit1.Text:='';

  Edit2.Text:='';

  Edit3.Text:='';

  Edit4.Text:='';

end;

end.

Read More

TUGAS - REKURSI

TUGAS - REKURSI

unit procedurefunctiontugasjadi;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  Tpangkat = class(TForm)

    txta: TEdit;

    txtb: TEdit;

    txtc: TEdit;

    txtd: TEdit;

    Button1: TButton;

    A: TLabel;

    B: TLabel;

    C: TLabel;

    D: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    function pangkat(o,p:integer):integer;

  end;

var

  pangkat: Tpangkat;

implementation

{$R *.dfm}

function Tpangkat.pangkat(o,p:integer):integer;

var

  i,c:integer;

begin

  i:=1;

  c:=1;

  while i<=p do

  begin

    c:=c*o;

    i:=i+1;

  end;

  pangkat:=c;

end;

procedure Tpangkat.Button1Click(Sender: TObject);

var

  A2,B3,C3,A,B,C:integer;

  D:real;

begin

  A:=strtoint(txtA.Text);

  B:=strtoint(txtB.Text);

  C:=strtoint(txtC.Text);

  A2:=pangkat(A,2);

  B3:=pangkat(B,3);

  C3:=pangkat(C,3);

  D:=(A2+B3)/C3;

  txtD.Text:=floattostr(D);end;

end.

 

Read More

TUGAS - DERET

TUGAS DERET

unit derettugasjadi;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TDeret = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Memo1: TMemo;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Deret: TDeret;

implementation

{$R *.dfm}

procedure TDeret.Button1Click(Sender: TObject);

var

  a,b,c,i:integer;

begin

  a:=strtoint(Edit1.Text);

  Memo1.Clear;

  i:=-1;

  c:=-2;

  while i<=a do

  begin

    b:=i;

    Memo1.Lines.Add(inttostr(b));

    i:=(b+c)*-1;

    c:=c*-1;

end;

end;

end.

Read More