unit fortodo;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    fortodo: TButton;

    fordowntodo: TButton;

    whiledo: TButton;

    repeatuntil: TButton;

    bt_pangkat: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label7: TLabel;

    Edit3: TEdit;

    bt_keluar: TButton;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    procedure fortodoClick(Sender: TObject);

    procedure fordowntodoClick(Sender: TObject);

    procedure whiledoClick(Sender: TObject);

    procedure repeatuntilClick(Sender: TObject);

    procedure bt_keluarClick(Sender: TObject);

    procedure bt_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;

label3.Caption:=b;

end;

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_keluarClick(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.

 TUGAS 4 KOMBINASI

program faktor_kombinasi;

uses WinCrt;

procedure Fak(Var F,Hasil:integer);

var

i:integer;

begin

     Hasil:=1;

     For i:=2 to F do Hasil:=Hasil*i;

end;

var

R,N,NR,F1,F2,F3:integer;

C:real;

begin

  write('Banyaknya Data      = '); readln(N);

  write('Banyaknya Kombinasi = '); readln(R);

  NR:=N-R;

  Fak(N,F1);

  Fak(NR,F2);

  Fak(R,F3);

 

  C:=F1/(F2*F3);

 

  writeln;

  writeln('Kombinasi Yang Terjadi = ',C:9:0);

end.

program detail_uang;

uses wincrt;

var

a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z:longint;

begin

write ('berapa uang yang harus di kembalikan');

writeln;

write('total harga =');readln (x);

write('jumlah uang =');readln(y);

z:=y-x;

writeln('uang kembalian anda=',z);

d:=z mod 100000;

p:=z 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('terima kasih ,');

---

END.

program detail_uang;

uses wincrt;

var

a,b,c,d,e,f,g,j,k,l,m,n:longint;

begin

write ('nilai a='); readln(a);

c:=a mod 50000;

j:=a div 50000;

d:=c mod 10000;

k:=c div 10000;

e:=d mod 5000;

l:=d div 5000;

f:=e mod 1000;                                                           

---

m:=e div 1000;

g:=f mod 500;

n:=f div 500;

if j>0then writeln ('50000=',j) else writeln('');

if k>0 then writeln ('10000=',k) else writeln('');

if l>0 then writeln ('5000=',l) else writeln('');

if m>0 then writeln ('1000=',m)else   writeln('');

if n>0then writeln('500=',n)else writeln('');

end.

PERTEMUAN KE 2 TANGGAL 29 FEBRUARI 2012

SEMESTER 2D

TUGAS 1 :

• Buat Program Untuk Perkalian Dua Matrix
• Buat Program Untuk Menampilkan Matrix Identitas Terbalik

1. Program Pascal Untuk Menghitung Perkalian Dua Matrix

PROGRAM PERKALIAN_MATRIX;

USES WINCRT;

VAR

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

I,J,K,X,Y,Z : INTEGER;

BEGIN

WRITELN('Ukuran  Matrix A');

WRITE('Baris : '); READLN(X);

WRITE('Kolom : '); READLN(Y);

WRITELN;

WRITELN('Ukuran Matrix B');

WRITELN(‘Baris : ',Y);

WRITE('Kolom : '); READLN(Z);

     WRITELN;

WRITELN ('Elemen Matrix A');

FOR I:=1 TO x DO

FOR j:=1 TO y DO

BEGIN

WRITE('elemen A[',i,',',j,'] : ');READLN(A[I,J]);

END;

WRITELN;

WRITELN ('Elemen Matrix B');

FOR I:=1 TO Y do

FOR J:=1 TO Z do

BEGIN

WRITE('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 Perkalian Matrix A dan Matrix B adalah : ');

WRITELN;

FOR I:=1 TO X DO

BEGIN

FOR J:=1 TO Z DO

WRITE(C[I,J],' ');

WRITELN;

END;

END.

1.2 LAYOUT GAMBAR

 

1. Program Pascal Untuk Menampilkan Matrix Identitas Terbalik

PROGRAM MATRIX;

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.

2.2 Layout Program

Struktur data

Dalam istilah ilmu komputer, sebuah struktur data adalah cara penyimpanan, penyusunan dan pengaturan data di dalam media penyimpanan komputer sehingga data tersebut dapat digunakan secara efisien.
Dalam teknik pemrograman, struktur data berarti tata letak data yang berisi kolom-kolom data, baik itu kolom yang tampak oleh pengguna (user) atau pun kolom yang hanya digunakan untuk keperluan pemrograman yang tidak tampak oleh pengguna. Setiap baris dari kumpulan kolom-kolom tersebut dinamakan catatan (record). Lebar kolom untuk data dapat berubah dan bervariasi. Ada kolom yang lebarnya berubah secara dinamis sesuai masukan dari pengguna, dan juga ada kolom yang lebarnya tetap. Dengan sifatnya ini, sebuah struktur data dapat diterapkan untuk pengolahan database (misalnya untuk keperluan data keuangan) atau untuk pengolah kata (word processor) yang kolomnya berubah secara dinamis. Contoh struktur data dapat dilihat pada berkas-berkas lembar-sebar (spreadsheet), pangkal-data (database), pengolahan kata, citra yang dipampat (dikompres), juga pemampatan berkas dengan teknik tertentu yang memanfaatkan struktur data.