program lokasi;
uses wincrt;
type tipelarik=array [1..100] of real;
var e,c,m:integer;
d:tipelarik;
procedure tukarkan(var a,b:real);
var t:real;
begin
t:=a;
a:=b;
b:=t;
end;
procedure sisip_langsung(var a:tipelarik;n:integer);
var i,j:integer; t:real;
begin
for i:=2 to n do
begin
t:=a[i];j:=i-1;
a[0]:=t;
while t< a[j] do
begin
...
Jumat, 23 Oktober 2009
Quik Short
program quick;
uses wincrt;
type tipelarik=array [1..100] of real;
var e,c,m,aw,ak:integer;
d:tipelarik;
procedure tukarkan(var a,b:real);
var t:real;
begin
t:=a;
a:=b;
b:=t;
end;
procedure qs(var a:tipelarik; aw,ak:integer);
var i,j:integer;
procedure atur;
begin
i:=aw+1;
j:=ak;
while a[i]
while a[j]>a[aw] do dec(j);
while i
begin
tukarkan(a[i],a[j]);
...
Bublesort
program sorting;
uses wincrt;
type tipelarik=array [1..100] of real;
var e,c,m:integer;
d:tipelarik;
procedure tukarkan(var a,b:real);
var t:real;
begin
t:=a;
a:=b;
b:=t;
end;
procedure bublesort(var a:tipelarik;n:integer);
var i,j: integer;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then tukarkan(a[j],a[j+1])
end;
begin
write('jumlah data=');
readln(m);
writeln('masukkan data=');
for e:=1 to m do
readln(d[e]);
writeln('data yang diurutkan=');
bublesort(d,m);
for...
Senin, 28 September 2009
Tugas 2 : Macam-macam Fungsi Distribusi
1. DISTRIBUSI EKSPONSIAL (lamda)
Function Eksponensial (beta : double) : double;
Var u : double;
Begin
u := random;
Eksponensial := -beta * ln(u);
End;
2. DISTRIBUSI UNIFORM (a,b)
Function Uniform (a,b : double) : double;
Var u : double;
Begin
u:= random;
Uniform := (b-a) * u + a;
End;
3. DISTRIBUSI NORMAL (µ, sigma)
Procedure Normal (mean,variance : double ; Var z1,z2 : double);
Var u1,u2,v1,v2,w,y,x1,x2 : double;
...
Sabtu, 05 September 2009
Tugas Simulasi no. 2 (makro minitab)
macro
bootvar x
mconstant i n b lower upper stat_b se_b
mcolumn x y stat
let n=10
let b=1000
do i=1:b
sample n x y;
replacement.
let stat(i)=stde(y)**2
enddo
let stat_b=mean(stat)
let se_b=stde(stat)
histo stat
sort stat stat
let lower=stat(25)
let upper=stat(975)
print stat_b se_b lower upper
endmacro
>>>memakainya langsung diminitab
contoh :
%direktori.txt sumberdata tempatdataditaro
%f:/makromini.txt c1...
Jumat, 04 September 2009
Loewongan Kerdja Djadoel
PENGOEMOEMAN !!!
DAG INLANDER…HAJOO URANG MELAJOE…KOWE MAHU KERDJA ???
GOVERNEMENT NEDERLANDSCH INDIE PERLU KOWE OENTOEK DJADI
BOEDAK ATAOE TJENTENK DI PERKEBOENAN-PERKEBOENAN
ONDERNEMING KEPOENJAAN GOVERNEMENT NEDERLANDSCH INDIE
DJIKA KOWE POENYA SJARAT DAN NJALI BERIKOET :
1. Kowe poenja tangan koeat dan beroerat
2. Kowe poenja njali gede
3. Kowe poenja moeka kasar
4. Kowe poenja tinggal di wilajah Nederlandsch Indie
5. Kowe boekan kerabat dekat pemberontak-pemberontak ataoepoen maling ataoepoen...
Supir Anyaran
Mari jogo bengi Muntiyadi mulih numpak taksi.
Timbangane sepi, Muntiyadi njawil supir taksine kate ngejak ngobrol.
Pas dijawil dhadhak supir taksine kuaget setengah mati.
Saking kuagete, sikile langsung mancal gas, montore langsung mencelat katene nyosop warung.
Untunge, supire sik sempet ngincak rem, gak sidho nubruk.
Muntiyadi ambek supire podho pucete gak isok ambekan.
Pas wis tenang, Muntiyadi njaluk sepuro ambek takon nang supire opoko dijawil ae kok kuaget.
Jare supire "Ngene lho cak, aku...
Ambil Aja Kembaliannya.....
Di Riau, yang namanya becak… lain banget ama becak di jawa. Becak di riau itu ditarik dari depan. Jadi si abang becak ada di depan dan penumpangnya duduk di belakang.
Para abang becak di sana telah mengenal 1 daerah yang konon katanya angker abis! Pokoknya jarang ada orang yang mau lewatin tuh jalan. Jam sembilan malem aja biasanya udah sepi kaya jam 12 malem, cuma ada suara lolongan anjing-anjing...
Jumat, 28 Agustus 2009
Software Simulasi
Integrated Statistical SimulationIntegrated Statistical Simulation adalah sebuah software pengolahan data dan simulasi statistika yang dirancang secara khusus sesuai dengan kebutuhan praktikum sehingga dapat mempercepat pencapaian sasaran praktikum.ISS memiliki kemampuan :1. Pembangkitan bilangan random berdistribusi Poisson dan Normal.2. Interfacing dengan timbangan digital, digunakan untuk mengumpulkan data secara langsung, data yang berupa berat obyek tersebut secara otomatis tersimpan...
Teknik Simulasi
Pengertian SimulasiSimulasi adalah suatu prosedur kuantitatif, yang menggambarkan sebuah sistem, dengan mengembangkan sebuah model dari sistem tersebut dan melakukan sederetan uji coba untuk memperkirakan perilaku sistem pada kurun waktu tertentu. Cakupan simulasi sangat luas dan bersinggungan dengan berbagai bidang ilmu. Pada umumnya digunakan untuk menyelesaikan permasalahan yang:1. ...
Kamis, 27 Agustus 2009
Salam Kenal...
Selamat datang di blog baruQ...Semoga berguna bagi kita semua....Amin....
Langganan:
Postingan (Atom)
