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...
Langganan:
Postingan (Atom)
