Mencari modus terbesar dengan pascal

Mei 07, 2014

<div><div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<br />
ane buat ini pke metode counting sort gan<br />
<br /></div>
<pre class="brush:pascal">program modus_terbesar;
var
n,i,tmp,tmp2:integer;
arr,C:array [1..1000] of integer;
begin
for i:=1 to 1000 do C[i]:=0;
write('Masukkan banyak : ');readln(n);
for i:=1 to n do
begin
        write('Input ', i,' : ');readln(arr[i]);
        inc(C[arr[i]]);
end;
tmp:=0;
tmp2:=0;
for i:=1 to 1000 do if C[i]>=tmp then tmp:=C[i];
for i:=1 to 1000 do if C[i]=tmp then if i>tmp2 then tmp2:=i;
write('Modusnya adalah ', tmp2);
end.</pre>
<br />
dan ini outputnya:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWxd3aA_4_JMSvWKEeqGhsxewBRFcSgA_3snG0EqSPitNUqNViQ3WcmdLEcpea5_i6H3RCmVWbRfIQbD7vJNIG-_y41kBRFjCqGP04dOUevidsm4nsCt1NMbNXVNp1xsKFAwys9poU9kG-/s1600/pascal.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWxd3aA_4_JMSvWKEeqGhsxewBRFcSgA_3snG0EqSPitNUqNViQ3WcmdLEcpea5_i6H3RCmVWbRfIQbD7vJNIG-_y41kBRFjCqGP04dOUevidsm4nsCt1NMbNXVNp1xsKFAwys9poU9kG-/s1600/pascal.png" /></a></div>
<br /></div>
</div>

Tidak ada komentar

Fudanshi

Mencari modus terbesar dengan pascal

Recent Big Posts

Categories

Tags Cloud

Comments

Latest

Random

Flickr

4/Food

Popular Posts