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>

Membuat simbol nazi dengan pascal

Mei 07, 2014

Tidak ada komentar

Labels: Pascal, Programming

<div><div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
kode 1:</div>
<pre class="brush:pascal">program gay;
var
a,b,c:integer;
d,e:integer;
begin
write('input ');
readln(a);
d:=a div 2;
e:=d+1;
for b:=1 to a do
begin
 for c:=1 to a do
 begin
  if b=1 then
  begin
   if c<=e then write('*')
   else if c>e then if c < a then write(' ')
   else write('*');
  end
  else if b>1 then if b<e then
  begin
   if c<=d then write(' ')
   else if c=e then write('*')
   else if c>e then if c < a then write(' ')
   else write('*');
  
  end
  else if b=e then write('*')
  else 
  begin
   if c=1 then write('*')
   else if c>1 then if c<=d then write(' ')
   else if c>1 then if c=e then write('*')
   else if b=a then if c>e then write('*');
  end;
 end;
 writeln;
end;

end.</pre>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmMEGpj16Y3W0W9C_qUPYuD1v70w3mpjBIl0ZCAtFeW9tR_LCwPjDjrA-cfrkdnLGSbOTpEsK7e6dHRrdh8LejTtSwn9iha4idqNbMZ-Zn_IS-arSPYQMdrKAwOczn5goqrbHxB_518vK1/s1600/nazi.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmMEGpj16Y3W0W9C_qUPYuD1v70w3mpjBIl0ZCAtFeW9tR_LCwPjDjrA-cfrkdnLGSbOTpEsK7e6dHRrdh8LejTtSwn9iha4idqNbMZ-Zn_IS-arSPYQMdrKAwOczn5goqrbHxB_518vK1/s1600/nazi.png" /></a></div>
<pre class="brush:pascal"></pre>
kode 2:<br />
<br /></div>
<pre class="brush:pascal">program gay;
var
a,b,c:integer;
d,e:integer;
begin
write('input ');
readln(a);
d:=a div 2;
e:=d+1;
for b:=1 to a do
begin
 for c:=1 to a do
 begin
  if b=1 then
  begin
   if c=1 then write('*')
   else if c<=d then write(' ')
   else write('*');
  end
  else if b>1 then if b<e then
  begin
   if c=1 then write('*')
   else if c<=d then write(' ')
   else if c=e then write('*');
  
  end
  else if b=e then write('*')
  else if b=a then
  begin
   if c<=e then write('*')
   else if c>e then if c<a then write(' ')
   else write('*');
  end
  else 
  begin
   if c<=d then write(' ')
   else if c=e then write('*')
   else if c>e then if c<a then write(' ')
   else if c=a then write('*');
  end;
 end;
 writeln;
end;

end.</pre>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9SJKYIE6r2TubEK_0rf40gCQXHO1ClgpskhSAdn16Fyw_HD5HmVMm2YHxOWlVUnWETxNnDYv1NxydSEHCe_xIoms0auECLrP2qoZsuI1YCg2fbZyqeUIU-24ir-u1nJkAMP5i8wlcz3h6/s1600/nazi2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9SJKYIE6r2TubEK_0rf40gCQXHO1ClgpskhSAdn16Fyw_HD5HmVMm2YHxOWlVUnWETxNnDYv1NxydSEHCe_xIoms0auECLrP2qoZsuI1YCg2fbZyqeUIU-24ir-u1nJkAMP5i8wlcz3h6/s320/nazi2.png" /></a></div>
</div>
</div>

Program pertambahan berulang dengan pascal

Januari 18, 2013

1 komentar

Labels: Pascal, Programming

<div><div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
code ini ane buat pas ane liat ada member DC(forum ane) yg minta tolong untuk buatin program pascal yg outputnya gini :<br />
<br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1=1</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2=3</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3=6</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4=10</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5=15</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6=21</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7=28</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7+8=36</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7+8+9=45</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7+8+9+10=55</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7+8+9+10+11=66</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7+8+9+10+11+12=78</span><br />
<span style="color: lime; font-family: Courier New, Courier, monospace;">1+2+3+4+5+6+7+8+9+10+11+12+13=91[</span><br />
<br />

<span style="font-family: inherit;"><span style="line-height: 18px;">dan Alhamdulillah ane bisa buat codenya sendiri gan,, ni code nya</span></span><br />

<span style="font-family: inherit;"><span style="line-height: 18px;"><br /></span></span></div>
<pre class="brush:pascal">var
jumlah,maho,i,a:longint;
begin
write('Masukkan angka = ');
readln(maho);
for i:=1 to maho do
begin
jumlah:=1;
a:=1;
write(a);
for a:=2 to i do
begin
write('+',a);
jumlah:=jumlah+a;
end;
writeln('=',jumlah);
end;
end.</pre>
</div>
</div>

Fudanshi

Mencari modus terbesar dengan pascal

Membuat simbol nazi dengan pascal

Program pertambahan berulang dengan pascal

Recent Big Posts

Categories

Tags Cloud

Comments

Latest

Random

Flickr

4/Food

Popular Posts