Only Great Share !!

Program Pascal - Pengurutan angka secara Ascending dengan metode HEAP SORT

<br />
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 21.3pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -18.0pt;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-fareast-font-family: "Times New Roman";">1.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;">     
</span></span></b><b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Screenshot
Program<o:p></o:p></span></b></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<v:shapetype coordsize="21600,21600" filled="f" id="_x0000_t75" o:preferrelative="t" o:spt="75" path="m@4@5l@4@11@9@11@9@5xe" stroked="f">
 <v:stroke joinstyle="miter">
 <v:formulas>
  <v:f eqn="if lineDrawn pixelLineWidth 0">
  <v:f eqn="sum @0 1 0">
  <v:f eqn="sum 0 0 @1">
  <v:f eqn="prod @2 1 2">
  <v:f eqn="prod @3 21600 pixelWidth">
  <v:f eqn="prod @3 21600 pixelHeight">
  <v:f eqn="sum @0 0 1">
  <v:f eqn="prod @6 1 2">
  <v:f eqn="prod @7 21600 pixelWidth">
  <v:f eqn="sum @8 21600 0">
  <v:f eqn="prod @7 21600 pixelHeight">
  <v:f eqn="sum @10 21600 0">
 </v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:formulas>
 <v:path gradientshapeok="t" o:connecttype="rect" o:extrusionok="f">
 <o:lock aspectratio="t" v:ext="edit">
</o:lock></v:path></v:stroke></v:shapetype></div>
<v:shape id="Picture_x0020_2" o:spid="_x0000_s1029" style="height: 206.25pt; margin-left: 64.5pt; margin-top: .6pt; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-wrap-distance-bottom: 0; mso-wrap-distance-left: 9pt; mso-wrap-distance-right: 9pt; mso-wrap-distance-top: 0; mso-wrap-style: square; position: absolute; visibility: visible; width: 311.25pt; z-index: 251658240;" type="#_x0000_t75">
 <v:imagedata o:title="1" src="file:///C:\Users\User\AppData\Local\Temp\msohtmlclip1\01\clip_image001.jpg">
 <w:wrap type="square">
</w:wrap></v:imagedata></v:shape>       <o:p></o:p><br />
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwZBrOcfgmwvSG0pKHl-driaZQCs7tm9ihLXTqSnfPTgaZtN5TXUNO5zW1AWXM1xnaQEM5ooesH7c_CJq14shXRe3LjOJNb0aZ2-E1gk0AlbMh9Gocui_oavrCoSdj4AqIwOlp6OCHjYoi/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="212" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwZBrOcfgmwvSG0pKHl-driaZQCs7tm9ihLXTqSnfPTgaZtN5TXUNO5zW1AWXM1xnaQEM5ooesH7c_CJq14shXRe3LjOJNb0aZ2-E1gk0AlbMh9Gocui_oavrCoSdj4AqIwOlp6OCHjYoi/s1600/1.JPG" width="320" /></a></div>
</div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div align="center" class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="background: white; color: #333333; font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-bidi-font-size: 10.0pt;">Gambar 1 : Tampilan Program Saat pertama di jalankan</span><span style="font-family: "Times New Roman","serif"; font-size: 14.0pt; line-height: 150%; mso-bidi-font-size: 11.0pt;"><o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br />
<br />
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjfuSKrv0TVnrMpcB7he79DOg3Ry1G4eabDrK89qoXs7eT7ud9bRFgyoGYBngGb__QjuFbBMKcg9YFwDtoZOZrMlSfN_4vipxO46PM53mKAQ_-EoADFHFYbmjSVFgItxMkERngKLCtP4cg/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjfuSKrv0TVnrMpcB7he79DOg3Ry1G4eabDrK89qoXs7eT7ud9bRFgyoGYBngGb__QjuFbBMKcg9YFwDtoZOZrMlSfN_4vipxO46PM53mKAQ_-EoADFHFYbmjSVFgItxMkERngKLCtP4cg/s1600/2.JPG" width="320" /></a></div>
<v:shape id="Picture_x0020_3" o:spid="_x0000_s1028" style="height: 206.25pt; margin-left: 64.5pt; margin-top: 11pt; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-wrap-distance-bottom: 0; mso-wrap-distance-left: 9pt; mso-wrap-distance-right: 9pt; mso-wrap-distance-top: 0; mso-wrap-style: square; position: absolute; visibility: visible; width: 304.5pt; z-index: 251659264;" type="#_x0000_t75">
 <v:imagedata o:title="2" src="file:///C:\Users\User\AppData\Local\Temp\msohtmlclip1\01\clip_image002.jpg">
 <w:wrap type="square">
</w:wrap></v:imagedata></v:shape><o:p></o:p></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
               </div>
<div align="center" class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="background: white; color: #333333; font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Gambar
2 : Tampilan saat mengiputkan jumlah data</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;"><o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<v:shape id="Picture_x0020_4" o:spid="_x0000_s1027" style="height: 208.5pt; margin-left: 71.25pt; margin-top: 16.15pt; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-wrap-distance-bottom: 0; mso-wrap-distance-left: 9pt; mso-wrap-distance-right: 9pt; mso-wrap-distance-top: 0; mso-wrap-style: square; position: absolute; visibility: visible; width: 309pt; z-index: 251660288;" type="#_x0000_t75">
 <v:imagedata o:title="3" src="file:///C:\Users\User\AppData\Local\Temp\msohtmlclip1\01\clip_image003.jpg">
 <w:wrap type="square">
</w:wrap></v:imagedata></v:shape><o:p></o:p></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div align="center" class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3VZAh5nLRFAlQUhbTVbp7Fxx9wtz5r9ltavNAk6dRZWaWioV3c_IbVcmHmYCT2VsLQvAoUjZ1rnSD6drCIj4-Be4FlrCwcG5kcYHuh7ZwJaTjLsdYGPkhjxstTbQ2P3fKHPobmkRc_OeA/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3VZAh5nLRFAlQUhbTVbp7Fxx9wtz5r9ltavNAk6dRZWaWioV3c_IbVcmHmYCT2VsLQvAoUjZ1rnSD6drCIj4-Be4FlrCwcG5kcYHuh7ZwJaTjLsdYGPkhjxstTbQ2P3fKHPobmkRc_OeA/s1600/3.JPG" width="320" /></a></div>
<span style="background: white; color: #333333; font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Gambar
3 : Tampilan saat menginputkan data berupa angka</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;"><o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi70-DVMuc5UvFPgk_MJt8AXGNY9nt2BZ0Ou8nM2MZGiKCuOqbxk-CECqscinTiZlYorahb9t9aWubXSSkWnD0vqBcGQvaVwXRVCeSl8ySQGiM5WCljZXee6O7MVWnRnBS1DxyBaB7i3UHE/s1600/4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi70-DVMuc5UvFPgk_MJt8AXGNY9nt2BZ0Ou8nM2MZGiKCuOqbxk-CECqscinTiZlYorahb9t9aWubXSSkWnD0vqBcGQvaVwXRVCeSl8ySQGiM5WCljZXee6O7MVWnRnBS1DxyBaB7i3UHE/s1600/4.JPG" width="320" /></a></div>
<v:shape id="Picture_x0020_5" o:spid="_x0000_s1026" style="height: 208.5pt; margin-left: 71.25pt; margin-top: 4.2pt; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-wrap-distance-bottom: 0; mso-wrap-distance-left: 9pt; mso-wrap-distance-right: 9pt; mso-wrap-distance-top: 0; mso-wrap-style: square; position: absolute; visibility: visible; width: 308.25pt; z-index: 251661312;" type="#_x0000_t75">
 <v:imagedata o:title="4" src="file:///C:\Users\User\AppData\Local\Temp\msohtmlclip1\01\clip_image004.jpg">
 <w:wrap type="square">
</w:wrap></v:imagedata></v:shape><o:p></o:p></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div align="center" class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<span style="background: white; color: #333333; font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Gambar
4 : Tampilan hasil pengurutan secara ascending</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 21.3pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -18.0pt;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-fareast-font-family: "Times New Roman";">2.<span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;">     
</span></span></b><b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Source
Code<o:p></o:p></span></b></div>
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; margin-left: 21.3pt; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;">
 <tbody>
<tr>
  <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 462.1pt;" valign="top" width="616"><div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Program Heap_Sort;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Uses crt;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Type SArray = array [0..100] of
  integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Var n,i: integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  A: SArray;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Procedure swap ( var a, b: integer );<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Var temp: integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  temp := a;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  a := b;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  b := temp;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">end;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Procedure siftDown ( var A: SArray;
  start, akhir: integer );<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Var root, child: integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> Root:=start;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> While (root*2+1) <= akhir do<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Child:=root*2+1;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  If (child < akhir) and (A[child] < A[child+1]) then<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Child:=child+1;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  If (A[root]<A[child]) then<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">    
  Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">     
  Swap (A[root], A[child]);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">     
  Root:=child;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">    
  End<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  else<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">    
  break;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Procedure heapify ( var A: SArray;
  count: integer );<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Var start: integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Start:=(count-1) div 2;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  While start>=0  do<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  SiftDown (A, start, count-1);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Start:=start-1;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Procedure heapSort( var A: SArray; n:
  integer );<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Var akhir: integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Heapify (A,n);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Akhir:=n-1;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  While akhir>0 do<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Swap(A[akhir], A[0]);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Akhir:=akhir-1;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  siftDown (A, 0, akhir);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Clrscr;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Writeln('-------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Writeln('Program Sorting Ascending');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  writeln('      ''Heap
  Sort''      ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  writeln('     Pengurutan Angka    ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Writeln('-------------------------');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Write ( 'Inputkan Jumlah Data : ' ); readln (n);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Write('Inputkan Angka : ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  For i := 0 to n-1 do<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Gotoxy(18+(i*3),9); readln(A[i]);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  heapSort(A,n);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Write('Hasil Sorting  : ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  For i := 0 to n-1 do<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">   
  Write(A[i],'  ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">  
  End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";"> 
  Readkey;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 15.6pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman";">End.<o:p></o:p></span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -18.0pt;">
<b><span style="font-family: "Lucida Console"; mso-bidi-font-family: "Lucida Console"; mso-fareast-font-family: "Lucida Console";"><span style="font-family: 'Times New Roman'; font-size: 7pt; font-weight: normal; line-height: normal;"> </span></span></b><span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";"> </span></div>
</td>
 </tr>
</tbody></table>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 21.3pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;">
<br /></div>
<br />
<div class="MsoListParagraphCxSpLast" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 21.3pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;">
<br /></div>

Pascal Program Pascal - Pengurutan angka secara Ascending dengan metode HEAP SORT

1. Screenshot Program Gambar 1 : Tampilan Program Saat pertama di jalankan Gambar 2 : Tampilan saat mengiputkan jumlah data Gambar 3 : Tampilan saat menginputkan …

Baca selengkapnya »

Program Pascal - Deret Bilangan Segitiga dan Fibonacci (NON REKURSIF)

6:55 AM Unknown 0

<br />
<br />
Source Code:<br />
<br />
program Der_bil_sgtg_fibo_NON_REK;<br />
uses crt;<br />
var pil:char;<br />
<br />
procedure menu1;<br />
  var n,i: integer;<br />
      j:real;<br />
  begin<br />
   clrscr;<br />
    writeln;<br />
    writeln('>> Deret Bilangan Segitiga <<');<br />
    writeln;<br />
    write('     Input Bilangan : '); readln(n);<br />
    writeln;<br />
    write('     Hasil          : ');<br />
     for i:= 1 to n do<br />
       begin<br />
         j:= 0.5*(i*(i+1));<br />
         write(' ',j:2:0);<br />
      end;<br />
    readkey;<br />
end;<br />
<br />
procedure menu2;<br />
  var n,i,j,k,l : integer;<br />
  begin<br />
   clrscr;<br />
    writeln;<br />
    writeln('>> Deret Bilangan Fibonacci <<');<br />
    writeln;<br />
    write  (' Masukkan Banyak Deret = ');readln(n);<br />
    writeln;<br />
    write  (' Hasil : ');<br />
     k:=1;<br />
     l:=0;<br />
      for i:=1 to n do<br />
        begin<br />
          write(' ',k);<br />
          j:=k+l;<br />
          l:=k;<br />
          k:=j;<br />
        end;<br />
    readkey;<br />
  end;<br />
<br />
BEGIN<br />
  repeat<br />
    clrscr;<br />
    writeln;<br />
    writeln('>> PROGRAM BIL. SEGITIGA & FIBONACCI NON REKURSIF <<');<br />
    writeln;<br />
    writeln('      ------>>>>> Menu Utama <<<<<--------   ');<br />
    writeln;<br />
    writeln('   [1] Bilangan Segitiga');<br />
    writeln('   [2] Bilangan Fibonacci');<br />
    writeln('   [0] Exit Program');<br />
    writeln;<br />
    write  ('Pilihan : ');pil:=readkey;<br />
    case pil of<br />
      '1':menu1;<br />
      '2':menu2;<br />
    end;<br />
  until<br />
    pil='0';<br />
END.<br />
<br />

Pascal Program Pascal - Deret Bilangan Segitiga dan Fibonacci (NON REKURSIF)

Source Code: program Der_bil_sgtg_fibo_NON_REK; uses crt; var pil:char; procedure menu1; var n,i: integer; j:real; begin clrscr; writeln; writeln('>> Deret Bilangan Segitiga writeln; write(' Input Bilangan : '); rea…

Baca selengkapnya »

Program Pascal - Deret Bilangan Segitiga & Fibonacci Menggunakan Fungsi Rekursif

6:30 AM Unknown 0

<br />
<br />
<br />
<br />
<br />
Source Code:<br />
<br />
program Der_Bil_Sgtg_Fibo_REK;<br />
uses crt;<br />
var pil:char;<br />
<br />
function fibonacci(x:integer):integer;<br />
begin<br />
        if(x=1) then fibonacci:=0 else<br />
        if(x=2) then fibonacci:=1 else<br />
        fibonacci:=fibonacci(x-1)+fibonacci(x-2);<br />
end;<br />
<br />
function segitiga (n:integer):real;<br />
var i:integer;<br />
begin<br />
  if n > 0 then<br />
    begin<br />
     segitiga:= segitiga(n-1)+n;<br />
    end;<br />
end;<br />
<br />
procedure menu1;<br />
  var n,i: integer;<br />
  begin<br />
   clrscr;<br />
    writeln;<br />
    writeln('>> Deret Bilangan Segitiga <<');<br />
    writeln;<br />
    write('     Input Bilangan : '); readln(n);<br />
    writeln;<br />
    write('     Hasil          : ');<br />
     for i:=1 to n do<br />
        write(segitiga(i):2:0,' ');<br />
    readkey;<br />
end;<br />
<br />
procedure menu2;<br />
  var n,i : integer;<br />
  begin<br />
<br />
    clrscr;<br />
    writeln;<br />
    writeln('>> Deret Bilangan Fibonacci <<');<br />
    writeln;<br />
    write  (' Masukkan Banyak Deret = ');readln(n);<br />
    writeln;<br />
    writeln('        Hasilnya : ');<br />
    writeln;<br />
    for i:=1 to n do<br />
    write('  ',fibonacci(i),' ');<br />
    readkey;<br />
  end;<br />
<br />
begin<br />
  repeat<br />
    clrscr;<br />
    writeln;<br />
    writeln('>> PROGRAM BIL. SEGITIGA & FIBONACCI REKURSIF <<');<br />
    writeln;<br />
    writeln('      ------>>>>> Menu Utama <<<<<--------   ');<br />
    writeln;<br />
    writeln('   [1] Bilangan Segitiga');<br />
    writeln('   [2] Bilangan Fibonacci');<br />
    writeln('   [0] Exit Program');<br />
    writeln;<br />
    write  ('Pilihan : ');pil:=readkey;<br />
    case pil of<br />
      '1':menu1;<br />
      '2':menu2;<br />
    end;<br />
  until<br />
    pil='0';<br />
end.<br />
<br />
<br />
<br />

Pascal Program Pascal - Deret Bilangan Segitiga & Fibonacci Menggunakan Fungsi Rekursif

Source Code: program Der_Bil_Sgtg_Fibo_REK; uses crt; var pil:char; function fibonacci(x:integer):integer; begin if(x=1) then fibonacci:=0 else if(x=2) then fibonacci:=1 else fibonacci:=fibonacci(x-1)+fibonacci(x-2); end; fun…

Baca selengkapnya »

Program Pascal - Pemangkatan menggunakan Rekursif berupa Function

3:23 PM Unknown 0

Pascal Program Pascal - Pemangkatan menggunakan Rekursif berupa Function

Source Code: Program Pangkat_rekursif; uses crt; var bil,n:integer; function pangkat(a,p:integer):longint; begin if p=0 then pangkat:=1 else pangkat:=a*pangkat(a,p-1); {lakukan rekursif dengan mengurngi pangkatnya yaitu m} end; begin clr…

Baca selengkapnya »

Program Pascal - Ramalan Zodiak lengkap

10:33 PM Unknown 1

<div class="separator" style="clear: both; text-align: left;">
Program ramalan zodiak ini saya buat untuk memenuhi tugas mata kuliah Algoritma pemprogram 1 pada semester 1 (gasal) kemarin... Maaf program alakadarnya saja.. </div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrHchd1-wTTv15YuGTaJ4q1JjY5_CeBxAvsCFsfJl3qh0pz_EQ_NbMKbQpople0zlwWYo8OZ2eyn_9sR0BTA20U220YKfjt0Ye1PJM2WBEyoFNCM2FKVaX9-8GNV5dJZhXw4SWMKNKb25y/s1600/ramalan.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="256" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrHchd1-wTTv15YuGTaJ4q1JjY5_CeBxAvsCFsfJl3qh0pz_EQ_NbMKbQpople0zlwWYo8OZ2eyn_9sR0BTA20U220YKfjt0Ye1PJM2WBEyoFNCM2FKVaX9-8GNV5dJZhXw4SWMKNKb25y/s1600/ramalan.JPG" width="320" /></a></div>
<br />
<div style="text-align: center;">
Gambar 1. Tampilan Awal Program</div>
<br />
<br />
<br />
Source Code :<br />
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;">
 <tbody>
<tr>
  <td style="border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 410.6pt;" valign="top" width="547"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
program RAMALAN_ZODIAK;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
uses CRT;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Var x1,y1,x2,y2                 
  : byte;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
    Nama, JK, Pend, Jawab,
  Jodoh : string;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
    Tahun                        : integer;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
    Tanggal, Bulan, Warna,
  umur  : longint;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Const TS=2014;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
label Home;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Procedure Frame;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
    Begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      Clrscr;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       //Window 1<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      textbackground(5);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      window(5,3,70,40);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      clrscr;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      //Window 2<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      textbackground(1);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     
  window(4-2,4-2,70-2,40-2);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      clrscr;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      //Wondow 3<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      textbackground(7);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      window(4,3,70-4,40-3);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      clrscr;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
    End;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
BEGIN<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   Frame;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   Home:<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   clrscr;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   textcolor(0);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   Writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   textcolor(5);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('       SELAMAT DATANG DI RAMALAN ZODIAK
  Mr.CikidAwwW..:D      ');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   textcolor(0);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   textcolor(4);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('------<<<==-- Silahkan Isikan Identidtas Anda !!
  --==>>>------');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   textcolor(2);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|                                                           
  |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|    Nama                       :                            |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|    Tanggal Bulan Tahun Lahir  :                            |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|    Jenis Kelamin              :                            |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|    Pendidikan Terakhir        :                            |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|    Warna Favorit [1-11]       :                            |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('|                                                            |');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   textcolor(1);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln(' *Beri jarak antara
  Tanggal Bulan & Tahun lahir menggunkan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  SPASI bukan simbol garis mendatar dan
  lain-lain');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  serta penulisan Bulan Lahir menggunakan
  ANGKA bukan huruf');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln(' Pilihan Warna
  Faforit (isikan dengan angka) ');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [1] 
  Merah');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [2] 
  Kuning');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [3] 
  Hitam');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [4] 
  Putih');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [5] 
  Hijau');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [6] 
  Biru');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [7] 
  Cyan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [8] 
  Pink');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [9] 
  Ungu');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [10] Orange');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('  [11] Coklat');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  gotoxy(36,10); readln(Nama);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  gotoxy(36,11);
  readln(Tanggal,Bulan,Tahun);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  gotoxy(36,12); readln(JK);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  gotoxy(36,13); readln(Pend);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  gotoxy(36,14); readln(Warna);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  clrscr;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  textcolor(0);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  writeln('                 ++>>>  RAMALAN ZODIAK  <<<++                 ');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('                                                            
  ');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('     Nama                       : ',Nama);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('     Tanggal Bulan Tahun Lahir  : ',Tanggal,Bulan,Tahun);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('     Jenis Kelamin              : ',JK);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('     Pendidikan Terakhir        : ',Pend);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('     Warna Favorit              : ',Warna);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
   writeln('                                                             ');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  
  writeln('==============================================================');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=01 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=20 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Capricorn')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak Anda     : Aquarius');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Leo');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Penemu, jurnalis TV, refleksologis, dan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  ahli komputer.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Anda akan mempertanyakan arah
  hidup saat');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  ini');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  pikiran, tentukan sikap
  lalu bertindaklah.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Perubahan membawa hal baik,
  jangan selalu');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  mengikuti kebiasaan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=02 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=19 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Aquarius')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Pisces');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Sagitarius');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Kurator seni, desainar lanskap, penerjamah');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  atau penulis.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan zodiak  : Pikiran sedang bekerja demikian keras.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Pergunakan dengan baik dan
  tulis semua');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  ide yang dihasilkan. Salah
  satunya akan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  mampu memberikan penghasilan
  tambahan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Cinta mengetuk pintu
  anda.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=03 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=20 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Pisces')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Aries');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : virgo');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Bidang penerbitan, dunia hiburan, atau');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  menjadi pimpinan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Keterlibatan yang bersifat
  rahasia tampaknya');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dibutuhkan. Buat batasan
  untuk menjaga kepentingan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dalam pekerjaan. Seorang
  famili yang lebih tua');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  akan memebutuhkan bantuan
  anda.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=04 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=20 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Aries')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Taurus');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Scorpio');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Bankir, seni, akutansi, musik, dan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  berkebun.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Kebaikan hati membantu sesama
  mengagumkan ');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  orang yang anda suka.
  Rencanakan waktu untuk');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  melakukan sesuatu yang
  menarik dan Anda akan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dapati sebuah hubungan yang
  kuat terbentuk.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=05 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=21 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Taurus')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Gemini');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Cancer');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Bidang teknologi komputer atau sutradara.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Berhati-hati dalam apa yang
  anda katakan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  kepada teman atau keluarga.
  Permasalahan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dalam pekerjaan akan
  memenuhi pikiran.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Menyia-nyiakan waktu hanya
  memperkeruh');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  masalah.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  if bulan=06 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=21 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Gemini')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Cancer');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Capricorn');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Musisi, jurnalis, dekorator interior,');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  atau chef.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : aktifitas kreatif memberikan
  hasil bagus.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Dapatkan wawasan baru dari
  rekan tua maupun');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  muda. Pergunakan cara baru
  dan anda tidak');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  akan dikecewakan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=07 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=22 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Cancer')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Leo');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Capricorn');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Sutradara film, arsitek, fotografer, atau');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  administrator olahraga.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Buat perubahan di lingkungan
  rumah. Renovasi');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  atau berpindah rumah akan
  memberikan semangat');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  baru. Uang dapat dihasilkan
  melalui investasi');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dalam tempat tinggal.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=08 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=22 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Leo')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Virgo');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Pisces');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Antropologis, polisi, agen rahasia,');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  atau editor majalah.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Jangan menahan diri dari
  pesan manis');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  yang anda terima dari
  seseorang. Tenangkan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  pikiran, tentukan sikap
  lalu bertindaklah.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Perubahan membawa hal baik,
  jangan selalu');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  mengikuti kebiasaan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=09 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=22 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Virgo')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Libra');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Aries');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Dokter hewan, mengajar, atau pengobatan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Pertimbangkan mencoba hal-hal
  baru.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Usaha kecil baru akan
  memberikan hasil.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Lihat serta renungkan arah
  hidup anda');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dan buat perubahan jika
  diperlukan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=10 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=23 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Libra')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Scorpio');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Taurus');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Aktor, manajer hotel, atau pemilik');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  restoran');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Jangan sembunyikan bakat
  anda, saat');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  yang tepat mencoba tempat
  baru. Asmara');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  berada dalam benak anda.
  Kegiatan yang');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  berbeda akan memberikan
  kesenangan tak');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  terduga.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=11 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=22 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak Anda     : Scorpio')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Sagitarius');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Gemini');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Jurnalis olahraga, pengacara, manager');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  personalia, atau pekerja
  sosial.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Keributan kecil di rumah akan
  membawa');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  pada penyelesaian masalah
  yg tertunda.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Terima segala yang ada dan
  lanjutkan');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  hidup anda. Keuntungan
  finansial mampu');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  dihasilkan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  IF bulan=12 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       if tanggal<=21 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Sagitarius')<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       else<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Zodiak
  Anda     : Capricorn');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pasangan Serasi
  : Aquarius');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Pekerjaan cocok
  : Mengajar, bercocok tanam, arsitektur,');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  atau perbankan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('Ramalan
  zodiak  : Anda akan memiliki minat yang
  lebih');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  kuat terhadap sesuatu di
  masa lalu.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Bersiap untuk bertemu
  seseorang yang');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  menarik dalam acara yang
  anda ikuti.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       writeln('                  Cinta akan mekar di taman
  anda.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=1 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln('Memiliki
  sifat  : Berani, semangat dan menyukai
  tantangan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=2 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln('Memiliki
  sifat  : Ceria, semangat dan senang
  bercanda.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=3 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Misterius, bersahaja dan teguh
  pendirian.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=4 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Berhati tulus, polos dan
  anggun.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=5 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Pemaaf, tenang, dewasa dan
  sopan santun.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=6 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Ramah, tidak emosian, serius
  dan teguh aturan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=7 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Ramah, berjiwa bebas dan
  santai.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=8 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Lembut, penyayang, manja dan
  suka menolong.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=9 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Tidak ragu, punya selera
  tinggi dan romantis.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=10 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        write('Memiliki
  sifat  : Jiwa muda, energik dan rasa
  ingin tahu besar.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF Warna=11 then<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln('Memiliki
  sifat  : Setia, murah hati dan menyukai
  kesederhanaan.');<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
        writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
       end;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  Begin<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     Umur:=TS-Tahun;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     IF Umur<=12 then
  Jodoh:='Maaf Anda Masih Bocah, Sekolah Dulu Sana :D wkwkwk'<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     else IF Umur<22 then
  Jodoh:='Cieee.. Jodohmu sudah ada di depan Mata, Jangan mundur Bro ;)'<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     else IF Umur<32 then
  Jodoh:='Ehhemm.. Tingkatkan Usahamu Bray, tetap optimis kesempatan tidak
  datang hanya sekali :)'<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     else Jodoh:='Mungkin anda
  akan di berikan yang terbaik oleh Tuhan, atau Anda belum beruntung..:D
  wkwkwk';<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     writeln('Jodoh           : 
  ',Jodoh);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
     writeln;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
  End;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      textcolor(4);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      Write('Kembali Meramal
  [Y/N]  : '); readln(Jawab);<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
      IF (Jawab='Y') or
  (Jawab='y') then goto Home else exit;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 readkey;<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
END.<o:p></o:p></div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
 </tr>
</tbody></table>
<br />
<div>
<br /></div>
<div>
Semoga dapat bermanfaat ya Kawan  :D</div>

Pascal Program Pascal - Ramalan Zodiak lengkap

Program ramalan zodiak ini saya buat untuk memenuhi tugas mata kuliah Algoritma pemprogram 1 pada semester 1 (gasal) kemarin... Maaf program alakadarnya saja.. Gambar 1. Tampilan Awal Program Source Code : program RAMALAN_ZODIAK; uses CRT; Var…

Baca selengkapnya »

Only Great Share !!

Program Pascal - Pengurutan angka secara Ascending dengan metode HEAP SORT

Program Pascal - Deret Bilangan Segitiga dan Fibonacci (NON REKURSIF)

Program Pascal - Deret Bilangan Segitiga & Fibonacci Menggunakan Fungsi Rekursif

Program Pascal - Pemangkatan menggunakan Rekursif berupa Function

Program Pascal - Ramalan Zodiak lengkap

Popular posts

Daftar Blog Temen :

Blog Archive