Membuat simbol nazi dengan pascal

Mei 07, 2014

<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>

Tidak ada komentar

Fudanshi

Membuat simbol nazi dengan pascal

Recent Big Posts

Categories

Tags Cloud

Comments

Latest

Random

Flickr

4/Food

Popular Posts