Tugas Pemrograman Delphi

LISTING PROGRAM

procedure TForm1.btKeluarClick(Sender: TObject);

begin

if(application.MessageBox('Do you want to exit  ?','Confirmation',mb_yesno)=idyes)then

close;

end;

procedure TForm1.ForToDoClick(Sender: TObject);

var

i,j:integer;b:string;

begin

b:='';j:=2;

for i:=1 to 10 do

begin

b:=b+inttostr(i)+'';

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 i<=10 do

begin

b:=b+inttostr(i)+'';

i:=i+1;

end;

label3.Caption:=b;

end;

procedure TForm1.RepeatUntilClick(Sender: TObject);

var

i,j:integer;b:string;

begin

i:=1;

b:='';

repeat

b:=b+inttostr(i)+'';

i:=i+1;

 until i>10;

   label4.caption:=b;

   end;

procedure TForm1.bt_pangkatClick(Sender: TObject);

var

bil,hasil,pangkat,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;

procedure TForm1.BinputClick(Sender: TObject);

begin

  edit1.Clear;

  edit2.Clear;

  edit3.clear;

  label1.Caption:='';

  label2.Caption:='';

  label3.Caption:='';

  label4.Caption:='';

end;

end.

RUNING PROGRAM

TUGAS 3 KOMBINASI

LISTING PROGRAM

program kombinasi;
uses wincrt;
var
n,r,nr,c,h1,h2,h3 :real;
i,j,k :integer;  
procedure f1(var p,h1:real);
begin
h1:=1;
i :=1;
while i<=p do
begin
h1:=h1*i;
i :=i+1;
end;
end;
procedure f2(var q,h2:real);
begin
h2:=1;
j :=1;
while j<=q do
begin
h2:=h2*j;
j :=j+1;
end;
end;
procedure f3(var r,h3:real);
begin
h3:=1;
k :=1;
while k<=r do
begin
h3:=h3*k;
k :=k+1;
end;
end;
begin
write('=======KOMBINASI=======');writeln;
write  ('n= ');readln(n);
write  ('r= ');readln(r);
 
nr:=n-r;
f1(n,h1);
f3(r,h3);
f2(nr,h2);
c:=h1/(h2*h3);
 
writeln('Kombinasinya Adalah = ',c:1:0);
end.

RUNING PROGRAM

INVERS MATRIKS

Jika A dan B adalah matriks persegi, dan berlaku A × B = B ×A = I  maka dikatakan matriks A dan B saling invers. B disebut invers dari A, atau ditulis  A^-1. Matriks yang mempunyai invers disebut invertible atau matriks non singular, sedangkan matriks yang tidak mempunyai invers disebut matriks singular.

Matriks yang mempunyai invers disebut invertible atau matriks non singular, sedangkan matriks yang tidak mempunyai invers disebut matriks singular.

Rumus invers matriks yang mempunyai ordo 2x2 :

Jika ad-bc=0 maka matriks tersebut tidak mempunyai invers, atau disebut matriks singular.

Sifat-sifat matriks persegi yang mempunyai invers:

• (A x B)^-1 = B^-1 x A^-1
• (B x A)^-1 = A^-1 x B^-1
• (A^-1)^t = (A^t)^-1

Listing Program Turbo Pascal

Program invers_matriks_ordo2x2;
uses wincrt;

var
mat,adj : array [1..5,1..5] of integer;
det,i,j : integer;
c:char;


begin
     
writeln('PROGRAM INVERS MATRIKS ORDO 2x2');
writeln('===============================');
writeln;
writeln('Input Matriks');
writeln('------------');
for i := 1 to 2 do begin
for j:= 1 to 2 do begin
write('Matriks ke ',i,' ',j,': ');readln(mat[i,j]);
end;
writeln;
end;

for i := 1 to 2 do begin
write('|');
for j := 1 to 2 do begin
write(' ',mat[i,j],' ');
if j = 2 then write ('|');
end;
writeln;
end;

writeln;
{mulai adjoin matriks dan determinan}

writeln('Adjoin matriks Ordo 2x2');
writeln('-----------------------');

adj[1,1] := mat[2,2];
adj[1,2] := mat[1,2] * -1;
adj[2,1] := mat[2,1] * -1;
adj[2,2] := mat[1,1];

for i := 1 to 2 do begin
write('|');
for j := 1 to 2 do begin
write(' ',adj[i,j],' ');
if j = 2 then write('|');
end;
writeln;
end;
writeln;

det := (mat[1,1] * mat [2,2]) - (mat[1,2] * mat[2,1]);

write('Determinan dari matriks diatas adalah ');
writeln(det);
writeln;


{mulai menghitung invers matriks}

writeln('Invers Matriksnya Adalah');
writeln('------------------------');


for i := 1 to 2 do begin
write('|');
for j := 1 to 2 do begin
write(' ',adj[i,j]/det:3:2,' ');
if j = 2 then write('|');
end;
writeln;
end;


readln;
end.

Run Program Turbo Pascal

TUGAS TURBO PASCAL MATRIKS IDENTITAS

LIST PROGRAM 

uses

  WinCrt;

var

A,B,C:ARRAY[1..10,1..10] OF INTEGER;

X,Y,KOL,BAR:INTEGER;

BEGIN

FOR X:=1 TO 5 DO

BEGIN

FOR Y:=1 TO 5 DO

BEGIN

   C[X,Y]:=0;

   IF X+Y=6 THEN C[X,Y]:=1;

   WRITE(C[X,Y]:4);

 END;

 WRITELN;

 END;

 END.

RUN PROGRAM

TUGAS TURBO PASCAL KALI MATRIK

LIST PROGRAM KALI MATRIK

Program kali_matriks;

uses wincrt;

type

matriksint = array [1..20,1..20] of integer;

var

M,a,b : matriksint; p , q: integer;

procedure Amatriks (var M:matriksint;Bar,Kol:integer);

var x,y: integer;

begin

 for x:=1 to Bar do

   begin

    for y:= 1 to Kol do

     begin

       write ('M[',x,',',y,'] = ');readln (M[x,y]);

     end;

   end;

end;

procedure Bmatriks (var M:matriksint;Bar,Kol:integer);

var x,y : integer;

begin

 for x:= 1 to Bar do

 begin

   for y:= 1 to Kol do

     begin

       write (M[x,y]);

     end;

   writeln;

 end;

end;

procedure kalimatriks (a,b:matriksint; Bar,Kol : integer);

var

hasil:matriksint;

x,y,z : integer;

begin

  for x := 1 to Bar do

  begin

   for y := 1 to Kol do

   begin

   hasil[x,y] := 0;

    for z := 1 to Bar do

    hasil[x,y] := hasil[x,y]+a[x,z]*b[z,y];

    begin

    gotoxy (y*5,x*23);

    write(hasil[x,y]) ;

    end;

   end;

   writeln;

  end;

end;

begin

  writeln ('MATRIK A ');

  write ('Jumlah Baris : '); readln (p);

  write ('Jumlah Kolom : '); readln (q);

  Amatriks (a,p,q);

  write ('A = ');

  writeln;

  Bmatriks (a,p,q);

  writeln;

  writeln ('MATRIKS B ');

  write ('Jumlah Baris : '); readln (p);

  write ('Jumlah Bolom : '); readln (q);

  Amatriks (b,p,q);

  write ('B = ');

  writeln;

  Bmatriks (b,p,q);

  writeln ('Hasil Perkalian Matriks Adalah : ');

  kalimatriks (a,b,p,q);

end.

RUN PROGRAM