STRUKTUR DATA

Minggu, 06 Mei 2012

Tugas 4 Delphi

0 komentar Diposting oleh Febria Isnaini - 2B - 111221038 di 14.20

Nama : Febria Isnaini

NIM : 111221038

Kelas : 2B

• 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.btkeluarClick(Sender: TObject);

begin
close;
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;

end.

Setelah di running hasilnya....

   

Sabtu, 31 Maret 2012

Tugas 3 (Kombinasi Faktorial)

0 komentar Diposting oleh Febria Isnaini - 2B - 111221038 di 09.42

Nama : Febria Isnaini

Nim : 111221038

Kelas : 2B

Program Kombinasi_Febria;
Uses
   WinCrt;

Procedure Faktorial(Var Fak,Hasil:Integer);
Var
   I:Integer;
   T:String;

Begin
     Hasil:=1;
     For I:=2 to Fak do
     Hasil:=Hasil*I;
End;

Var
   N,R,NR,F1,F2,F3:Integer;
   C:Real;

Begin
Writeln('Program Kombinasi');
Writeln;
Write('Masukkan N = ');Readln(N);
Write('Masukkan R = ');Readln(R);
     NR:=N-R;
Faktorial(N,F1);
Faktorial(R,F2);
Faktorial(NR,F3);
     C:=F1/(F3*F2);
Writeln;
Writeln('Kombinasinya Adalah : ',c:9:0);
End.

Berikut hasil running program diatas :  

   

Selasa, 13 Maret 2012

Tugas 2 (KEMBALIAN UANG BELANJA)

0 komentar Diposting oleh Febria Isnaini - 2B - 111221038 di 09.39

Nama : Febria Isnaini
Nim : 111221038
Kelas : 2B

Program Kembalian_Uang_Belanja;
Uses Wincrt;
Var
Nama:string;
O:string;
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
Repeat;
Clrscr;
Writeln('Selamat Datang Di Program Kembalian Uang Belanja');
Writeln;
Write('Masukkan Nama                    : '); Readln(Nama);
Write('Harga Barang                     : '); Readln(A);
Write('Jumlah Uang Yang Diserahkan      : '); Readln(B);
C:=B-A;
If C<0 Then Writeln('Rincian Kurang                   : ',C);

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(P, ' Lembar                        Rp. 100.000,00');
If Q>0  Then Writeln(Q, ' Lembar                        Rp.  50.000,00');
If R>0  Then Writeln(R, ' Lembar                        Rp.  20.000,00');
If S>0  Then Writeln(S, ' Lembar                        Rp.  10.000,00');
If T>0  Then Writeln(T, ' Lembar                        Rp.   5.000,00');
If U>0  Then Writeln(U, ' Lembar                        Rp.   2.000,00');
If V>0  Then Writeln(V, ' Lembar/Logam                  Rp.   1.000,00');
If W>0  Then Writeln(W, ' Logam                         Rp.     500,00');
If X>0  Then Writeln(X, ' Logam                         Rp.     200,00');
If Y>0  Then Writeln(Y, ' Logam                         Rp.     100,00');
If Z>0  Then Writeln(Z, ' Logam                         Rp.      50,00');
Writeln;
Writeln('Uang Kembalian                   : ',C:7);
  If Z<=1 Then Z:=50;
        Begin                                   
        Writeln('Dibulatkan                       : ',Z:7);
        C:=C-Z;
        Writeln('Total Kembalian                  : ',C:7);
        End;
Writeln;
Writeln('Ket : <50 Akan DiAproksimasikan');
Writeln;
   If C<0 Then
   Begin
   Writeln('Maaf Uang Yang Anda Serahkan Kurang ',C);
   Writeln('Harap Segera Melunasi / Barang Anda Tidak Dapat Dibawa Pulang');
   End;
Writeln;
Writeln('Terima Kasih Telah Berkunjung':17);
Writeln('---( ',Nama,' )---');
Writeln;
Write ('Apakah Anda Ingin Mencobanya Sekali Lagi? (Y/N) : '); Readln (O);
Until (O='N') Or (O='n');

End.

 Berikut hasil running program diatas :

   

Sabtu, 10 Maret 2012

Tugas 1 (PERKALIAN MATRIKS)

0 komentar Diposting oleh Febria Isnaini - 2B - 111221038 di 19.38

Nama : Febria Isnaini
Nim : 111221038
Kelas : 2B

Program kali_matriks;

uses wincrt;

type

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

var

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

procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);

var i,j: integer;

begin

 for i:=1 to Nbar do

   begin

    for j:= 1 to Nkol do

     begin

       write ('M[',i,',',j,'] = ');readln (M[i,j]);

     end;

   end;

end;

procedure tulismatriks (var M:matriksint;Nbar,Nkol:integer);

var i,j : integer;

begin

 for i:= 1 to Nbar do

 begin

   for j:= 1 to Nkol do

     begin

       write (M[i,j]);

     end;

   writeln;

 end;

end;

procedure kalimatriks (a,b:matriksint; Nbar,Nkol : integer);

var

hasil:matriksint;

i,j,z : integer;

begin

  for i := 1 to Nbar do

  begin

   for j := 1 to Nkol do

   begin

   hasil[i,j] := 0;

    for z := 1 to Nbar do

    hasil[i,j] := hasil[i,j]+a[i,z]*b[z,j];

    begin

    gotoxy (j*5,i*23);

    write(hasil[i,j]) ;

    end;

   end;

   writeln;

  end;

end;

begin

  writeln ('MATRIK A ');

  write ('masukkan jumlah baris : '); readln (p);

  write ('masukkan jumlah kolom : '); readln (q);

  bacamatriks (a,p,q);

  write ('A = ');

  writeln;

  tulismatriks (a,p,q);

  writeln;

  writeln ('MATRIKS B ');

  write ('masukkan jumlah baris : '); readln (p);

  write ('masukkan jumlah kolom : '); readln (q);

  bacamatriks (b,p,q);

  write ('B = ');

  writeln;

  tulismatriks (b,p,q);

  writeln ('hasil perkalian matriks adalah : ');

  kalimatriks (a,b,p,q);

end.

Berikut hasil running program diatas :