Penjumlahan Matriks

Misalkan kita mempunyai dua buah matriks A dan B.

A

=

1 2 3 4

dan

B

=

5 6 7 8

Maka penjumlahannya dijabarkan

A

+

B

=

1+5 2+6 3+7 4+8

A

+

B

=

6 8 10 12

Bagaimana dengan pengurangan matriks?

Tidak jauh berbeda dengan penjumlahan. Misal hasil penjumlahan diatas adalah matriks C.

Maka C - A :

C

-

A

=

6 8 10 12

-

1 2 3 4

C

-

A

=

6-1 8-2 10-3 12-4

=

5 6 7 8

Listing Matriks Satu Dimensi

 TUGAS :     BUAT TOMBOL DENGAN MENCARI NILAI MAKSIMUM,             KUMPULKAN DALAM BENTUK SOURCECODE (CODING)
    PALING LAMBAT DIKUMPULKAN TANGGAL 23 APRIL 2011




unit Unit_array;
 
var
  Form1: TForm1;
  nilai : array [0..4] of integer ;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 VAR I, MINIMAL ,posisi : INTEGER ;
begin
  nilai[0] := strtoint (ed0.Text);
  nilai[1] := strtoint (ed1.Text);
  nilai[2] := strtoint (ed2.Text);
  nilai[3] := strtoint (ed3.Text);
  nilai[4] := strtoint (ed4.Text);
  MINIMAL := nilai [0] ;
  posisi := 0 ;
  FOR I := 1 TO 4 DO
  BEGIN
     if nilai [I] < MINIMAL THEN
     begin
         MINIMAL :=nilai [I] ;
         posisi := I ;
     end;
  END;
  if posisi = 4 then showmessage ('munir') ;
   if posisi = 3 then showmessage ('melinda') ;
    if posisi = 2 then showmessage ('syahrini') ;
     if posisi = 1 then showmessage ('norman') ;
      if posisi = 0 then showmessage ('andi') ;

end;

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

end.

Listing Kalkulator Sederhana

Contoh form kalkulator

unit Unit_kalkulator;
TForm1 = class(TForm)
  a: TEdit;
  b: TEdit;
  kurang: TButton;
  tambah: TButton;
  kali: TButton;
  bagi: TButton;
  hasil: TLabel;
  Button1: TButton;
  fungsipangkat: TButton;
  Image1: TImage;
  Button2: TButton;
 
  procedure tambahClick(Sender: TObject);
  function tambahkan(a,b:integer):integer ;
  function kurangkan (a,b:integer):integer ;
  function bagikan (a,b:integer):single ;
  function kalikan (a,b : integer) : integer ;
  procedure Button1Click(Sender: TObject);
  procedure kurangClick(Sender: TObject);
  procedure bagiClick(Sender: TObject);
  procedure kaliClick(Sender: TObject);
  procedure fungsipangkatClick(Sender: TObject);
  function pangkatkan (a,b: integer ):integer ;
end;
var
  Form1: TForm1;
 
function tform1.pangkatkan (a,b: integer ):integer ;
  var i,sk1 : integer ;
begin
  pangkatkan:= 0 ;
  sk1:= a ;
  if b=1 then sk1:=a
  else begin
   for i:=2 to b do
   begin
    sk1:=sk1*a;
   end;
  pangkatkan:=sk1 ;
  if b=0 then pangkatkan:=1 ;
  end;
end;
 
function tform1.tambahkan (a,b: integer ):integer ;
begin
  tambahkan:=a+b ;
end;
 
function tform1.kurangkan (a,b : integer) : integer ;
begin
  kurangkan:=a-b ;
end;
 
function tform1.bagikan (a,b:Integer):single ;
begin
  bagikan:=a / b ;
end;

function tform1.kalikan (a,b : integer) : integer ;
begin
  kalikan:=a*b ;
end;
 
procedure TForm1.tambahClick(Sender: TObject);
var c:integer ;
begin
  c:= tambahkan(strtoint(a.Text),strtoint (b.Text)) ;
  hasil.Caption := inttostr (c) ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate ;
end;
 
procedure TForm1.kurangClick(Sender: TObject);
var d:integer ;
begin
  d:=kurangkan (strtoint (a.Text),strtoint(b.Text)) ;
  hasil.Caption :=inttostr (d) ;
end;
 
procedure TForm1.bagiClick(Sender: TObject);
var e:single ;
begin
  e:=bagikan (strtoint (a.Text), strtoint(b.Text)) ;
  hasil.Caption :=floattostr (e) ;
end;
 
procedure TForm1.kaliClick(Sender: TObject);
var d:integer ;
begin
  d:=kalikan(strtoint (a.Text),strtoint(b.Text)) ;
  hasil.Caption :=inttostr (d) ;
end;
 
procedure TForm1.fungsipangkatClick(Sender: TObject);
var d:integer ;
begin
  d:=pangkatkan (strtoint(a.Text), strtoint (b.Text) );
  hasil.Caption:=inttostr(d);
end;
 
end.

Install Delphi 7 di Windows 7

Delphi 7 yang saya install pada laptop saya dengan sistem operasi windows 7 32 bit tidak memiliki masalah.  Hans memberi tips bagaimana menginstal Delphi 7 pada sistem operasi windows 7  yang bermasalah sebagai berikut:

1. Pastikan anda dalam posisi sebagai user dengan kapasitas administrator
2. Jalankan installer Delphi. Pilih lokasi default. Abaikan saja peringatan yang muncul saat proses instal (pilih ignore).
3. Setelah selesai jangan jalankan Delphi 7 dulu. Pada folder c:/program files/delphixxx klik kanan dan pilih properties. Hilangkan centang pada  check box Read-only attribute dan tekan tombol Apply serta pilih for all files including subdirectory.
4.  Pada security tab beri user (dan admin bila perlu) hak akses penuh pada folder c:/program files/delphixxx 

Sekarang anda bisa menjalankan Delphi dengan normal seperti di Windows XP.

Catatan:

•  Pada Windows 7 folder c:/program files/ dilindungi dengan ketat sehingga installer Delphi tidak bisa meRename delphi32.$$$ menjadi .dro pada folder  /program files/delphi , hal ini yang membuat anda gagal menginstal Delphi.
• Bila Windows 7 anda adalah versi 64 bit, Delphi akan diinstal pada C:\PROGRAM Files (X86) dan tidak ada masalah seperti Windows 7 32 bit.