Materi 5 (Deret)

Membuat program deret sederhana

List Program
unit deret;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,i,b:integer;
begin
  a:=strtoint(Edit1.Text);
  Memo1.Clear;
  i:=1;
  while i<=a do
  begin
    b:=i;
    Memo1.Lines.Add(inttostr(b));
    i:=i+1;
  end;
end;
end.

Hasil Running

Baca Lebih Lanjut...

Materi 4 (Rekursi)

Mengurutkan data menggunakan Rekursi

Hasil Running

List Program
program Project3;

{$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[j];
      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 diurut}
      writeln;
      writeln('Data yang telah diurut:');
      for i:=1 to n do
        writeln(nama[i]);
        readln;
        end.
     end;
end.

Baca Lebih Lanjut...

Materi 3 (Menambah Data dengan Array)

Memasukkan atau menambah data nama dengan menggunakan array.


















List Program

Listing Program

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    LBData: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  nama1,nama2:array[1..5] of string;
  s:string;

begin
  s:= inputbox('input data','masukkan jumlah data :','0');
  for i:= 1 to strtoint(s) do
    begin
    nama1[i]:=inputbox('data ke:'+inttostr(i),'nama depan','');
    nama2[i]:=inputbox('data ke:'+inttostr(i),'nama belakang','');
    LBData.ITEMS.Add(nama1[i]+' '+nama2[i]);
    edit1.Text:=inttostr(LBData.Items.Count);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  LBData.Clear;
  edit1.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  CLOSE;
end;

end.

Hasil Running

Baca Lebih Lanjut...

Matteri 2 (Menghitung Gaji & Tunjangan dengan If Then Else)

Contoh sederhana penggunaan if then else
Penambahan Tunjangan berdasarkan golongan
Gol. A tunjangan 10.000
Gol. B tunjangan 20.000
Gol. C tunjangan 30.000

Listing Program

List Program
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    tNAma: TEdit;
    tGaji: TEdit;
    tGol: TEdit;
    Tunj: TLabel;
    Total: TLabel;
    ENTER: TButton;
    procedure ENTERClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ENTERClick(Sender: TObject);
var
  gaji,tot,tunjang:integer;
begin
  gaji:=StrToInt(tGaji.Text);
    if tGol.Text ='A' then tunjang:=10000;
    if tGol.Text ='B' then tunjang:=20000;
    if tGol.Text ='C' then tunjang:=30000;
  Tunj.Caption :=IntToStr(tunjang);
  tot:=tunjang+gaji;
  Total.Caption:=IntToStr(tot);
end;

end.

Hasil Running

Hasil jika kita memasukkan Gaji 100.000 dan termasuk pada Gol.A maka akan ditambahkan dengan tunjangan sebesar 10.000
Total gaji yaitu 100.000 + 10.000 = 110.000

Baca Lebih Lanjut...

Materi 1 (Menghitung Luas Persegi Panjang)

Program Menghitung Luas Persegi Panjang

Listing program

List Program
unit materi1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    txtPanjang: TEdit;
    txtLebar: TEdit;
    Label3: TLabel;
    txtLuas: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Panjang,Lebar,Luas:integer;

begin
  Panjang:=StrToInt(txtPanjang.Text);
  Lebar:=StrToInt(txtLebar.Text);
  Luas:=Panjang*Lebar;
  txtLuas.Text:=IntToStr(Luas);
end;

end.

Contoh hasil pemrograman yaitu jika kita memasukkan Panjang=20, dan Lebar=20, maka luas persegi panjang tersebut adalah Luas= 20*20=400.

Hasil Running

Baca Lebih Lanjut...