Banyaknya kombinasi dapat dihitung dari rumus :

C pangkat n dan r = n! per ( n-r)! dikalikan r!

Keterangan :

N = banyaknya data yang belum dikombinasikan

R = banyaknya kombinasi

C = jumlah kombinasi yang terjadi

Misal : n= 4

R= 4

= 4! per (4-4)! dikali 4!=4!per 4!=1.2.3.4 per 1.2.3.4= 24 per 24= 1

nah untuk menghitung dalam Turbo Pascal juga ada langkah – langkahnya, simak berikut :

program 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('Masukkan nilai yang akan dikombinasikan = ');Readln(N);

Write('Jumlah Kombinasi = ');Readln(R);

NR:=N-R;

Fak(N,F1);

Fak(NR,F2);

Fak(R,F3);

C:=F1/(F2*F3);

Writeln;

writeln ('------------------------------');

Writeln('Kombinasi : ',c:7:0);

end.

inilah Tanpilan outputnya....

Read more »

Tugas ke 2

TUGAS 2

Hai.... bertemu lagi di Tugas ke 2 (o_0)

Pusing tapi tetap semangat Guys...

Ok guys biasanya saat kita berbelanja di mart kita akan membayar barang yang sudah kita beli, tentu jika dalam membayar kita akan mendapat uang kembalian atau permen (hahahaha) nah di situ mesin kasir akan menghitung jumlah nilai pembayaran yang kita beli, namun disini dalam Turbo Pascal kita bahas bukan jumlah uang yang harus kita bayar tapi lembar-lembar atau koin kembalian yang kita terima. Namun sebelum kita ke scrip disini saya akan menggunakan uang nilai bayarnya yang dibawah 50.000 guys...! Berikut scrip nya......

program kembalian_uang_belanja;

uses wincrt;

var

a,b:longint;

j,c,d,e,f,g,h,i,k:longint;

begin

writeln('Kasir Bintang Kasih 1');

writeln ('=-=-=-=-=-=-=-=-=-=-=-=-');

writeln('Masukkan Nilai Uang=');readln(a);

writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');

writeln('Masukkan Nilai Harga Barang=');readln(b);

writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=');

j:=a-b;

writeln('kembalian=',j);

writeln('Rincian uang kembalian anda');

c:=j div 50000;

d:=(j mod 50000)div 10000;

e:=(j mod 10000)div 5000;

f:=(j mod 5000)div 2000;

g:=(j mod 2000)div 1000;

h:=(j mod 1000)div 500;

i:=(j mod 500)div 200;

k:=(j mod 200)div 100;

writeln('',c,'.LEMBAR=50000');

writeln('',d,'.LEMBAR=10000');

writeln('',e,'.LEMBAR=5000');

writeln('',f,'.LEMBAR=2000');

writeln('',g,'.LEMBAR=1000');

writeln('',h,'.LEMBAR=500');

writeln('',i,'.LEMBAR=200');

writeln('',k,'.LEMBAR=100');

writeln;

writeln('Terima Kasih Sudah Berbelanja Ditoko Kami');

end.

Beginilah tampilan output nya...

Read more »

Tugas Strukdur Data {1}

Tugas 1

PERKALIAN 2 MATRIK DENGAN TURBO PASCAL

Program Matematika yang menggunakan Matrik juga bisa kita olah dengan menggunakan Turbo Pascal (TPW). Tugas 1 ini kita ulas program untuk perkalian 2 Matrik. Untuk menghitung di Turbo Pascal kita simak cara / langkah – langkah berikut

program Perkalian_Matrix;
uses wincrt;
var
a,b,c : array [1..5,1..5] of integer;
i,j,k,n,m,p : integer;
begin
clrscr;
writeln('Selamat datang di program matriks..!!');
writeln('Masukkan ukuran matrik Minim ordo 5 x 5 ');
writeln('Ukuran matrix A');
write('Baris : '); readln(n);
write('Kolom : '); readln(m);
writeln;
writeln('Ukuran matrix B');
writeln('Baris : ',m);
write('Kolom : '); readln(p);
for i:=1 to n do
for j:=1 to m do
begin
write('Elemen A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to m do
for j:=1 to p do
begin
write('Elemen B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln('----------------------------------------');
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to n do
begin
for j:=1 to p do
write(c[i,j]:4);
writeln;
end;
writeln;
readln;
end.

Tampilan output script di atas :

MATRIK IDENTITAS

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.

writeln ('Hasil Penjumlahan');

for x:= 1 to bar do

begin for y:=1 to kol do

begin

write (c[x,y]:4);

end;

writeln;

end;

end.

Tampilan output script di atas :

Read more »