Sabtu, 05 September 2009

Penerapan Simulasi

  Dalam penerapannya, simulasi bisa seperti program pascal yang mencari nilai mean dan median. Berikut adalah program pascal untuk mencari median.
Mencari mean :
  program mean;
  uses wincrt;
  var x:array[1..100];
  a,b,i,j,k,l:integer;
  y:real;
begin
{mengentri data}
  write ('banyak data=' );readln(a);for i:=1 to a do
    begin
    write('x[',i,']=');
    readln(x[i]);
    end;
{mengurutkan data}
    for j:=1 to a-1 do
    for k:=j to a do
    if x[k]begin
   
y:=x[k];
   
x[j]:=y;
   
end;
writeln('data urut=');
for l:=1 to a do writeln(x[l]:0:0);

if a mod 2=0 then
begin
b:=a div 2;
write('median=',(x[b]+x[b+1])/2);
end
else begin
b:=(a+1) div 2;
write('median data=',x[b]:0:0_;end;
end.

0 komentar:

Posting Komentar