Latihan Delphi 3

May 5, 2012

procedure TForm1.fortodClick(Sender: TObject);
var
i,j:integer;b:string;
begin
b:=’ ‘;j:=2;
for i:= 1 to 10 do
begin
b:=b+inttostr(j)+’ ‘;
j:=j+2;
end;
label1.Caption:=b;
end;
procedure TForm1.fordowntodoClick(Sender: TObject);
var
i,j:integer;b:string;
begin
b:=’ ‘;j:=2;
for i:= 10 downto 1 do
begin
b:=b+inttostr(i)+’ ‘;
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.whiledoClick(Sender: TObject);
var
i,j:integer;b:string;
begin
i:=1;
b:=’ ‘;
while i10;
label4.Caption:=b;
end;
procedure TForm1.brkeluarClick(Sender: TObject);
begin
close
end;
procedure TForm1.bt_pangkatClick(Sender: TObject);
var
hasil,pangkat,bil,a:integer;
begin
bil:=strtoint(edit1.Text);
hasil:=bil;
pangkat:=strtoint(edit2.Text);
if edit2.Text=’0′ then edit3.text:=’1′ else
if edit2.Text=’1′ then edit3.text:=edit1.Text
else
begin
for a:=2 to pangkat do
hasil:=hasil*bil;
edit3.Text:=inttostr(hasil);
end;
end;
end.

program Menghitung_kombinasi;

uses
wincrt;
procedure faktorial(var fak,hasil:real);
var i:integer;
begin
i:=1;hasil:=1;
while i<=fak do
begin
hasil:=hasil*i;
i:=i+1;
end
end;
var
n,r,nr,c,f1,f2,f3:real;
begin
writeln;
writeln;
writeln('************************************************');
writeln;
writeln('--------------ANDIKASUHERNAWAN----------------');
Writeln('-------------------111221016--------------------');
writeln('------------------Semester 2B-------------------');
writeln;
writeln('================================================');
writeln('Program Menghitung Jumlah Kombinasi Yang terjadi');
writeln('================================================');
writeln;
write('Masukkan Banyaknya Data Yang Di Kombinasikan =');readln(n);
writeln;
write('Masukkan Banyaknay Kombinasi =');readln(r);
nr:=n-r;
writeln;
writeln('Pengurangan N-R =',nr:4:0);
faktorial(n,f1);
faktorial(r,f2);
faktorial(nr,f3);
c:=f1/(f2*f3);
writeln('================================================');
writeln;
writeln('Jumlah Kombinasi Yang Terjasi adalah =',c:4:0);
writeln('================================================');
writeln;
writeln('************************************************');
end.

Program Menghitung_jml_pecahan;
uses wincrt;
... var
jml_uang : longint;
a,b,c,d,e,f,g,h,i,j,k:longint;
a1,b1,c1,d1,e1,f1,g1,h1,i1,j1,k1:longint;
begin
clrscr;
writeln('PROGRAM MENGHITUNG JUMLAH PECAHAN');
writeln;
write('Tulis Jumlah uang : ');readln(jml_uang);
writeln('------------------------------------------');

a := jml_uang div 100000;
a1 := jml_uang mod 100000;
b := a1 div 50000;
b1 := a1 mod 50000;
c := b1 div 20000;
c1 := b1 mod 20000;
d := c1 div 10000;
d1 := c1 mod 10000;
e := d1 div 5000;
e1 := d1 mod 5000;
f := e1 div 2000;
f1 := e1 mod 2000;
g := f1 div 1000;
g1 := f1 mod 1000;
h := g1 div 500;
h1 := g1 mod 500;
i := h1 div 200;
i1 := h1 mod 200;
j := i1 div 100;
j1 := i1 mod 100;
k := j1 div 50;
k1 := j1 mod 50;

writeln('Jumlah pecahan uang 100.000 : ',a);
writeln('Jumlah pecahan uang 50000 : ',b);
writeln('Jumlah pecahan uang 20000 : ',c);
writeln('Jumlah pecahan uang 10000 : ',d);
writeln('Jumlah pecahan uang 5000 : ',e);
writeln('Jumlah pecahan uang 2000 : ',f);
writeln('Jumlah pecahan uang 1000 : ',g);
writeln('Jumlah pecahan uang 500 : ',h);
writeln('Jumlah pecahan uang 200 : ',i);
writeln('Jumlah pecahan uang 100 : ',j);
writeln('Jumlah pecahan uang 50 : ',k);
end.

Program perkalian_matriks;

Uses
  WinCrt;
  var
  A,B,C:Array [1..10,1..10] of integer;
  X,Y,Z,KOLA,BARA,KOLB,BARB:integer;

Begin
  Write ('jumlah kolom A=');readln (KOLA);
  Write ('jumlah baris A=');readln (BARA);
  Write ('jumlah kolom B=');readln (KOLB);
  Write ('jumlah baris B=');readln (BARB);
  If KOLA=BARB THEN BEGIN
  Writeln ('masukan data matrik A');
  FOR X := 1 TO BARA DO
  BEGIN
  FOR Y := 1 TO KOLA DO
  BEGIN
  Write ('A[',X,':',Y,']=');
  Readln (A[X,Y]);
  End;
  End;
  Writeln ('masukan data matrik B');
  FOR X := 1 TO BARB DO
  BEGIN
  FOR Y := 1 TO KOLB DO
  BEGIN
  Write ('B[',X,':',Y,']=');
  Readln (B[X,Y]);
  End;
  End;
  Writeln('Hasil perhitungan');
  FOR X:= 1 TO BARA DO
  BEGIN
  FOR Y:= 1 TO KOLB DO
  BEGIN
  C[X,Y]:=0;
  FOR Z:= 1 TO KOLA DO
  BEGIN
  C[X,Y]:=C[X,Y]+A[X,Z]*B[Z,Y];
  End;
  End;
  End;
  Writeln('A=');
  FOR X := 1 TO BARA DO
  BEGIN
  Write('|');
  FOR Y := 1 TO KOLA DO
  BEGIN
  Write (A[X,Y],' ');
  End;
  Writeln(#8,'|');
  End;
  Writeln('*');
  Writeln('B=');
  FOR X := 1 TO BARB DO
  BEGIN
  Write('|');
  FOR Y := 1 TO KOLB DO
  BEGIN
  Write (B[X,Y],' ');
  End;
  Writeln(#8,'|');
  End;
  Writeln('=');
  Writeln('C=');
  FOR X := 1 TO BARA DO
  BEGIN
  Write('|');
  FOR Y := 1 TO KOLB DO
  BEGIN
  Write (C[X,Y],' ');
  End;
  Writeln(#8,'|');
  End;
  End
  Else BEGIN
  Writeln ('Matrik tidak bisa dikalikan');
  End;
End.Hasil Running >>>>>>>>>>>>>>>> 

Ada Dua Kemungkinan Jawaban dalam Matriks tersebut  : 




1.  Matriks yang bisa dikalikan , seperti contoh di bawah ini : 

Matriks 2 x 3 dikalikan matriks 3 x 2

2.  Matriks yang tidak bisa dikalikan, seperti contoh di bawah ini : 

 Matriks 2 x 2 dikalikan matriks 3 x 3 

mahasiswa yadika

nama: andikasuhernawan
nim   : 111221016
klas   : 2b