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.