. Sampai sekarang, kedua istilah itu kadang kita dengar, terutama dalam hal koneksi internet/ kecepatan / bandwith dll.bita (Bahasa Inggris: byte) adalah istilah yang biasa dipergunakan sebagai satuan dari penyimpanan data dalam komputer. Satu bita terdiri dari delapan bit.Jadi Byte dengan bit adalah berbeda. Biasanya kecepatan internet ditawarkan 384kbps, berarti untuk kecepatan dalam Byte adalah 384 / 8 = 48 kBps artinya dalam satu detik, dapat menghantarkan data sebesar 48 kilo byte.
Huruf B digunakan dalam singkatan kepada byte. (bit menggunakan singkatan b.) seperti kB = kilobita. Cakram keras (hard disk) berkapasitas 40GB secara mudahnya bermaksud cakram keras tersebut mampu menyimpan hingga 40 ribu juta (milyar) bita atau gigabita data.
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....
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...
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 :
1-Install os windows beserta program dan aplikasi yang di butuhkan seperti biasa di harddisk utama(primary master).
2-pasang hardisk ke dua slave master.Biasanya kalau kita baru membeli harddisk posisi jumpernya adalah primary master maka ubahlah jumpernya untuk jadi slave(biasanya ada petunjknya di harddisk dimana jumper untuk primary master dan slave master).
3-jalankan Ms dos di command prompt ,ari di stars-program-accsessoris-comamand prompt.
4-Ketikan d:/u atau d:/ format,ketikan d:/q/u untuk quick format.tekan enter(d kami umpamakan drive slave,anad bisa mengantinya dengan yang lain sesuai drive slave anda.)setelah selesai keluarlah dari direktori dengan perintah cd..,lalu tekan enter.
5-ketikan perintah xcopy/h/e/r/y/s/c/k c:d: lalu tekan enter untuk memulai prese cloning.
6-setelah selesai matikan komputer anda dan coba bootinng dari hardidisk hasil kloning tadi.
7-selesai.
Selamat mencoba….
