Santo Siswa Santosa 111221126

1.Tugas Praktek Struktur Data

   Santo Siswa Santosa  :

   Nim .   111221126

   Program Borland Delphi 7

   Tanggal 05 Mei 2012

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    fortodo: TButton;

    Label1: TLabel;

    ForDowntoDo: TButton;

    Label2: TLabel;

    WhileDo: TButton;

    RepeatUntil: TButton;

    Label3: TLabel;

    Label4: TLabel;

    Keluar: TButton;

    Bilangan: TLabel;

    Edit1: TEdit;

    Pangkat: TLabel;

    Edit2: TEdit;

    Hasil: TLabel;

    Edit3: TEdit;

    _pangkat: TButton;

    procedure fortodoClick(Sender: TObject);

    procedure ForDowntoDoClick(Sender: TObject);

    procedure WhileDoClick(Sender: TObject);

    procedure RepeatUntilClick(Sender: TObject);

    procedure KeluarClick(Sender: TObject);

    procedure _pangkatClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

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(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 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._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.keluarClick(Sender: TObject);

begin

close;

  end;

  end.

Kombinasi

PROGRAM KOMBINASI

program comb;

uses wincrt;

var N,R,NR,F1,F2,F3:REAL;

c:real;

procedure fak(var f,hasil:real);

var i:integer;

begin

hasil:=1; i:=1;

while i<=f do

 begin hasil:=hasil*i;

       i:=i+1;

 end;

end;

begin

writeln('MASUKKAN ANGKA YANG AKAN DIKOMBINASIKAN!');

write('x=');readln(N);

write('y=');readln(R);

NR:=N-R;

fak(N,F1);

fak(NR,F2);

fak(R,F3);

c:=F1/(F2*F3);

writeln('KOMBINASINYA ADA=',c:0:0);

end.

Tugas 2 (Pengembalian Uang)

PROGRAM DETAIL_MONEY;

USES WINCRT;

VAR

A,B,C,D,E,F,G,H,I,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z : longint;

BEGIN

WRITELN('HOW MUCH MONEY DO YOU GET BACK ?');

WRITELN;

WRITE('Total Payment = '); readln(A);

WRITE('Cash Payment  = '); readln(B);

C:=B-A;

WRITELN('Cash Back     = ',C);

WRITELN('With Detail Money As Below :');

D:=C MOD 100000;

P:=C DIV 100000;

E:=D MOD 50000;

Q:=D DIV 50000;

F:=E MOD 20000;

R:=E DIV 20000;

G:=F MOD 10000;

S:=F DIV 10000;

H:=G MOD 5000;

T:=g DIV 5000;

I:=H MOD 2000;

U:=H DIV 2000;

J:=I MOD 1000;

V:=I DIV 1000;

K:=J MOD 500;

W:=J DIV 500;

L:=K MOD 200;

X:=K DIV 200;

M:=L MOD 100;

Y:=L DIV 100;

N:=M MOD 50;

Z:=M DIV 50;

IF P>0 THEN WRITELN('100000         =',P);

IF Q>0 THEN WRITELN('50000           =',Q);

IF R>0 THEN WRITELN('20000            =',R);

IF S>0 THEN WRITELN('10000            =',S);

IF T>0 THEN WRITELN('5000              =',T);

IF U>0 THEN WRITELN('2000              =',U);

IF V>0 THEN WRITELN('1000              =',V);

IF W>0 THEN WRITELN('500               =',W);

IF X>0 THEN WRITELN('200                =',X);

IF Y>0 THEN WRITELN('100                 =',Y);

IF Z>0 THEN WRITELN('50                   =',Z);

WRITELN;

WRITELN('Thank You, :)');

END.

 

Tugas 1

Santo Siswa Santosa

112211126

1.       Buat  Program untuk Perkalian 2 Matrik

Program perkalian_matrik;

uses WinCrt;

var

a,b,c : array [1..50,1..50] of integer;

i,j,k,x,y,z : integer;

   begin

clrscr;

    writeln('Ukuran matrix A');

    write('Baris : ');

    readln(x);

    write('Kolom : ');

    readln(y);

    writeln;

    writeln;

    writeln('Ukuran matrix B');

    writeln('Baris : ',y);

    write('Kolom : ');

    readln(z);

for i:=1 to x do

for j:=1 to y do

    

      begin

write('Elemen A[',i,',',j,'] : ');

readln(a[i,j]);

         end;

writeln;

for i:=1 to y do

for j:=1 to z do

       begin

write('Elemen B[',i,',',j,'] : ');

readln(b[i,j]);

end;

for i:=1 to x do

for j:=1 to z do

for k:=1 to y do

c[i,j] := c[i,j] + a[i,k]*b[k,j];

writeln;

writeln;

writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');

Writeln;

for i:=1 to x do

        begin

for j:=1 to z do

write(c[i,j],' ');

writeln;

       end;

writeln;

readln;

      end.

2.Buat Program untuk menampilkan matrik

Program matrik;

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.

            

 

Program matrik identitas