Program Delphi 1

Tugas 4 Program Delphi

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;

label1Caption:=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;

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.KeluarClick(sender:Tobject);

begin

close;

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:=’1’Text else

Begin

For a:=2 to pangkat do

Hasil:=hasil*bil;

edit3.Text:=inttostr(hasil);

end;

end.

Hasil Print Screen :

Struktur Data Kombinasi

Tugas Struktur Data Kombinasi

Program Kombinasi_RianBagus;

Uses

WinCrt;

Procedure Fak(Var F,Hasil:Integer);

Var

   I:Integer;

   T:String;

Begin

     Hasil:=1;

     For I:=2 to F do

     Hasil:=Hasil*I;

End;

Var

   R,B,NR,F1,F2,F3:Integer;

   C:Real;

Begin

Writeln('Selamat Datang Di Program Kombinasi');

Writeln;

Write('Masukkan Nilai B = ');Readln(B);

Write('Masukkan Nilai R = ');Readln(R);

     NR:=B-R;

Fak(B,F1);

Fak(NR,F2);

Fak(R,F3);

     C:=F1/(F2*F3);

Writeln;

Writeln('Maka Kombinasinya Adalah : ',c:9:0);

End.

Hasil Print Screen :

 

Tugas 2 ( Struktur Data )

PERTEMUAN KE 3 TANGGAL 7 MARET 2012

SEMESTER 2D

TUGAS 2:

Buat Program Menampilkan Rincian Uang.

Program Rincian_Transaksi_ByRian;

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 Rincian Transaksi');

Writeln;

Write('Masukkan Nama Anda               : '); Readln(Nama);

Write('Harga Barang Yang Harus Dibayar  : '); Readln(A);

Write('Jumlah Uang Pembayaran           : '); 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,-');

If Q>0  Then Writeln(Q, ' Lembar                        Rp.  50.000,-');

If R>0  Then Writeln(R, ' Lembar                        Rp.  20.000,-');

If S>0  Then Writeln(S, ' Lembar                        Rp.  10.000,-');

If T>0  Then Writeln(T, ' Lembar                        Rp.   5.000,-');

If U>0  Then Writeln(U, ' Lembar                        Rp.   2.000,-');

If V>0  Then Writeln(V, ' Lembar/Logam                  Rp.   1.000,-');

If W>0  Then Writeln(W, ' Logam                         Rp.     500,-');

If X>0  Then Writeln(X, ' Logam                         Rp.     200,-');

If Y>0  Then Writeln(Y, ' Logam                         Rp.     100,-');

If Z>0  Then Writeln(Z, ' Logam                         Rp.      50,-');

Writeln;

Writeln('Jumlah Kembalian                 : ',C:7);

  If Z<=1 Then Z:=50;

        Begin

        Writeln('Dibulatkan                       : ',Z:7);

        C:=C-Z;

        Writeln('Total Uang Kembalian             : ',C:7);

        End;

Writeln;

Writeln('Ket : <50 Akan Kami Bulatkan');

Writeln;

   If C<0 Then

   Begin

   Writeln('Maaf Uang Anda Kurang ',C);

   Writeln('Mohon Segera Dilunasi / Barang Anda Tidak Dapat Dibawa Pulang');

   End;

Writeln;

Writeln('Terima Kasih Telah Mencoba Program Ini':17);

Writeln('---( ',Nama,' )---');

Writeln;

Write ('Apakah Anda Ingin Mencoba Lagi? (Y/N) : '); Readln (O);

Until (O='N') Or (O='n');

End.

Hasil Print Screen :



Tugas 1 Struktur Data

1. Program Untuk Perkalian Dua Matrik

Program Perkalian_Matrix_Andre;

uses
wincrt;
var
a,b,c : array [1..10,1..10] of integer;
i,j,k,x,y,z : integer;


begin
writeln('PROGRAM PERKALIAN MATRIX');
writeln;
writeln('ORDO MATRIX A');
write('Jumlah Baris : '); readln(x);
write('Jumlah Kolom : '); readln(y);
writeln;
writeln('ORDO MATRIX B');
writeln('Jumlah Baris : ',y);
write('Jumlah Kolom : '); readln(z);
writeln;


writeln ('MATRIX A');
for i:=1 to x do
for j:=1 to y do
begin
write('Nilai Matrix A Baris ',i,', Kolom ',j,' : ');readln(a[i,j]);
end;


writeln;
writeln ('MATRIX B');
for i:=1 to y do
for j:=1 to z do
begin
write('Nilai Matrix B Baris ',i,', Kolom ',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('HASIL PERKALIAN MATRIX ADALAH : ');
writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j]:3);
writeln;
writeln;
end;
end.


Print Screen / Prt Scr :






2. Program Menampilkan Matrik Identitas Terbalik

Program Matrik_Identitas_Andre;
uses
wincrt;
var
a,b,c:array[1..5,1..5] of integer;
x,y: integer;


begin
for x:= 1 to 5 do
begin
for y:= 1 to 5 do
begin
a[x,y]:=0;
if x+y=6 then c[x,y]:=1;
write (c[x,y]:4);
end;
writeln;
end;
end.


Print Screen / Prt Scr :