Only Great Share !!

Program Pascal - Linklist

<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Tugas
Praktikum Ke-</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">6<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Nama               : Achmad Kharis<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">NIM                :
</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">J1F114002<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Kelompok
      : </span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">3 (Tiga)<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<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="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;"><br /></span></b></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;"><br /></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivQcVb5mSGyb4_tGbuK0olCs2Rt4yDAzhYnVnrmpj4RNBD2wgdL1qDVk_RsZdQpiDC5vaZii1JauWi4A3LgedfHh-siFbbdTyiFiFIVL-UcbcEgslLzLtSTdZwas6HZkJfAZEBt-2SAczc/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="168" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivQcVb5mSGyb4_tGbuK0olCs2Rt4yDAzhYnVnrmpj4RNBD2wgdL1qDVk_RsZdQpiDC5vaZii1JauWi4A3LgedfHh-siFbbdTyiFiFIVL-UcbcEgslLzLtSTdZwas6HZkJfAZEBt-2SAczc/s320/1.JPG" width="320" /></a></div>
<div class="MsoListParagraph" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.1 Input bilangan
pertama.<o:p></o:p></span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;"><br /></span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFxv15LRzUgXSIiEAP4exk0UZ-sX3xlAijeHbSHB8L4AznF5P4DH5dmM5EqCnnQqKZbFhcE06FzjXRTCiSQX1upTtCo-V4qiviuSU0RRGpT-DamWX222yp2a8faWe3QhPwgEKFvvk7-AE8/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="171" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFxv15LRzUgXSIiEAP4exk0UZ-sX3xlAijeHbSHB8L4AznF5P4DH5dmM5EqCnnQqKZbFhcE06FzjXRTCiSQX1upTtCo-V4qiviuSU0RRGpT-DamWX222yp2a8faWe3QhPwgEKFvvk7-AE8/s320/2.JPG" width="320" /></a></div>
<div class="MsoListParagraph" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;">
<span style="font-family: 'Times New Roman', serif; font-size: 12pt; line-height: 150%;">Gambar 1.2 Input bilangan
kedua.</span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;"><br /></span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjq54ygoWxsPspaZxGfKpS2NgtV5HNhAT2S1BBIP9_sxSDC7na2kyayMGtYRLp34iQm0bUeRnYs8o7Zo2Z-UwfF54gpzqcQge9WVkVEZgwhyphenhyphenM5LAJ6_h1q7odfRxJ8npDIDSVAU7peL6HaZ/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="172" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjq54ygoWxsPspaZxGfKpS2NgtV5HNhAT2S1BBIP9_sxSDC7na2kyayMGtYRLp34iQm0bUeRnYs8o7Zo2Z-UwfF54gpzqcQge9WVkVEZgwhyphenhyphenM5LAJ6_h1q7odfRxJ8npDIDSVAU7peL6HaZ/s320/3.JPG" width="320" /></a></div>
<div class="MsoListParagraph" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;"><span style="font-family: 'Times New Roman', serif; font-size: 12pt; line-height: 150%;">Gambar 1.3 Input bilangan
ketiga.</span> <o:p></o:p></span></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<br /></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLI4uWV9My4jhl0SqGDpuz8VSyo_WuqL24MlOQtEPOPCqKez6dBlDhoj-jyMYjCS1aUmuwB69Vo86RmqhWDEI1rT7OGQ5ihMPTHzSDqQIz8vMiYwJdbVnvdUgtPrXj5meqSdQlBrlirAfR/s1600/4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="173" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLI4uWV9My4jhl0SqGDpuz8VSyo_WuqL24MlOQtEPOPCqKez6dBlDhoj-jyMYjCS1aUmuwB69Vo86RmqhWDEI1rT7OGQ5ihMPTHzSDqQIz8vMiYwJdbVnvdUgtPrXj5meqSdQlBrlirAfR/s320/4.JPG" width="320" /></a></div>
<div class="MsoListParagraph" style="line-height: 150%; margin: 0cm 0cm 0.0001pt 14.2pt; text-align: center;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%; mso-ansi-language: EN-US;">Gambar 1.4 Output Hasil.<o:p></o:p></span></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<br /></div>
<div class="MsoListParagraphCxSpFirst" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -14.2pt;">
<br /></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 14.2pt; margin-right: 0cm; margin-top: 0cm; mso-add-space: auto; mso-list: l0 level1 lfo1; text-indent: -10.9pt;">
<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: 19.6pt; 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: 375.65pt;" valign="top" width="501">
  <div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Uses crt;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Type pointer
  = ^typedata;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Typedata = record<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Nilai : Integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Berikutnya : pointer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Var list
  :pointer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Procedure
  mas_dep(var L : pointer; x : Integer);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Var baru :
  pointer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         New(baru);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Baru^.Nilai:=x;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Baru^.Berikutnya:= nil;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         If L= nil then L:=baru<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Else<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                  Baru^.berikutnya :=L;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                  L:= baru;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Procedure
  cetak (L:pointer);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Var bantu :
  pointer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Bantu:= L;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         While bantu <> nil do<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                  Write (bantu^.Nilai:3);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                  Bantu:=bantu^.Berikutnya;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">         End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Var  bil, bil2 : integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">     Jwb : char;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Clrscr;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          New(list);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          List:=nil;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Writeln ('Program linked List');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Writeln ('  Masuk depan');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Repeat<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Begin<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                   Writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                   Write ('Masukkan bilangan : ');
  readln(bil);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                   mas_dep(list,bil);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">                   Write ('Lagi [Y/T]  : '); readln(jwb);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          End;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Until jwb='T';<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Write(‘Hasil : ‘);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Cetak(list);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">          Readln;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 115%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="font-size: 13.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Calibri; mso-bidi-theme-font: minor-latin;">End.<span style="color: #bfbfbf; mso-themecolor: background1; mso-themeshade: 191;"><o:p></o:p></span></span></div>
</td>
 </tr>
</tbody></table>
<div align="center" class="MsoNormal" style="text-align: center;">
<br /></div>
<b><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 14.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-size: 12.0pt; mso-bidi-language: AR-SA; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin;"><br clear="all" style="mso-special-character: line-break; page-break-before: always;" />
</span></b>

Pascal Program Pascal - Linklist

Tugas Praktikum Ke-6 Nama : Achmad Kharis NIM : J1F114002 Kelompok : 3 (Tiga) 1. Screenshot Program Gambar 1.1 Input bilangan pertama. Gambar 1.2 Input bilangan kedua. Gambar 1.3 Input bilangan ketiga. Gambar 1…

Baca selengkapnya »

Imagination of Dream :D

6:47 PM Unknown 0

Assalamualaikum gaees....<br />
<br />
Saya adalah mahasiswa program studi ilmu komputer yang sedang dalam proses mencari jati diri yang entah hilang kemana :D wkwkwk<br />
di hari minggu ini khusus nongkrong di kampus FMIPA unlan tercinta #karena Wifi.id nya telah hidup lagi =D wkwkwk<br />
<br />
pada kesempatan di siang hari ini dengan suasana langit yang cukup sayu mulai mereda<br />
dari kerasnya pancaran terik sang surya yang menyengat sebelumnya.<br />
<br />
Datang lah sosok yang tak terduga dari kejauhan..<br />
semakin mendekat dan mulai nampak..<br />
membuat kami yang melihatnya merasa riang dan siap untuk menyerbu sosok tersebut....<br />
<br />
tet... sosok tersebut adalah Bang Gusti Dimas dari angkatan 2013 ilmu komputer.<br />
entah kenapa ingin menyerbu Bang Gusti Dimas untuk berkenalan dan minta TTD nya..<br />
namun karena tanda tangan bang dimas itu lain dari yang lain<br />
sebabnya mungkin karena Bang Dimas adalah Ketua pada kegiatan IMWE HIMAKOM tahun ini..<br />
maka saya di berikan tugas yang berhubungan dengan artikel dan di posting di blog saya ini....<br />
<br />
langsung bagaikan daun yang tersapu oleh derasnya angin...<br />
saya pun disaat itu langsung bergegas mencari tempat yang nyaman<br />
untuk memulai mengerjakan tugas yangdi berikan ini..<br />
dengan segan membangunkan laptop yang sedang telelap (Sleep)...<br />
pelan-pelan menggerakkan cursor menuju salah satu broswer untuk internetan fovorit saya..<br />
tek..tek...login dengan sisa akun wifi.id yang ada :D<br />
jari jemaripun langsung memainkan keyboard untuk mengetikan blogger.com :D<br />
dan memulai mengetikan artikel ini dengan penuh harapan imajinasi akan selalu ada :D<br />
<br />
Lupa saya sebutkan tugas saya adalah untuk membuat artikel di blog saya dan menjabarkan imajinasi tentang pencapaian cita-cita tertinggi saya, yaitu menjadi Direktur di suatu perusahaan IT... #Aamiin<br />
<br />
Bismillahirohmanirrohim.... :)<br />
<br />
Saya Achmad Kharis,,<br />
Bercita-cita ingin menjadi seseorang Direktur disuatu persahaan IT..<br />
cita-cita saya ini terinspirasi dari Bill Gates yang merupakan salah satu orang dari pendiri perusahaan IT ternama yaitu Microsoft. Suatu perusahaan yang bergerak dalam bidang pembuatan Software-software Computer, salah satunya yang sering kita gunakan pada PC atau Laptop adalah Operation System Microsoft Windows (XP, 7, 8) dan program perkantoran seperti Microsoft Office yang merupakan beberapa dari Prodak Perusahaan Microsoft tersebut...<br />
<br />
Tentu saja suatu impian yang besar banyak orang bagi yang menginginkannya :D<br />
dan suatu cita-cita yang tidak mungkin bisa kita dapatkan dengan instan pastinya..<br />
membayangkannya saja sudah pasti memerlukan usaha dan kerja keras juga tentunya..<br />
namun setelah dipikir-pikir lagi tidak mungkin akan tercapai juga bila hanya dengan usaha tersebut tanpa adanya keahlian dalam bidang tersebut (IT) serta keterampilan serta skill yang baik dalam hal berorganisasi, memanagemen waktu serta mengkader anggota dengan baik...<br />
<br />
Maka dari itu salah satu langkah yang saya tempuh adalah mengambil Program Studi Ilmu Komputer di perkuliahan yang saya tempuh sekarang ini dan berharap dapat menjalani kuliah dengan baik, dan dapat memahami setiap materi yang diberikan oleh dosen serta menerapkannya dan bila bisa saya juga ingin mengembangkannya.. Selain itu pada semester dua di perkuliahan ini saya mencoba untuk mengawali berlajar untuk berorganisasi dengan masuk ke salah satu organisasi di FMIPA unlam yaitu Himpunan Mahasiswa Ilmu Komputer dan Alhamdulillah berhasil masuk kedalam Divisi Pengembangan TI...memang suatu perjalanan yang panjang untuk mencapai suatu impian yang tinggi, namun jika di jalani sesuai dengan kata hati saya yakin semua akan terasa mudah..#Aamiin :)<br />
<br />
Berharap dapat menyelesaikan kuliah dengan cepat.. walaupun tidak bisa paling tidak maksimal 4 tahun dalam perkulihan dan segera mendapatkan gelar sarjana (S.Kom) lalu memulai berkarir sesuai dengan jalan yang dan alur yang akan saya hadapi nantinya (saya tidak dapat membayangkannya sekarang, karena waktu salalu berjalan dan apapun dapat berubah selagi masih berjalannya waktu).<br />
Langsung pada intinya saja,, dengan pemiikiran saya sekarang ini...<br />
Nanti setelah lulus saya akan tetap terus belajar dan belajar mengasah ilmu, wawasan , serta terus memperbanyak teman serta jaringan yang ada dan berharap bisa memiliki banyak sahabat...<br />
<br />
Memang kita tidak bisa meniru apa yang orang lakukan dan sukses seperti Bill Gates...<br />
maka dari itu saya memiliki motto hidup "Jadilah Dirimu Sendiri" maksudnya adalah lakukanlah usaha yang terbaik tetap yakin akan dirimu yang sekarang dan jangan mencoba untuk menjadi orang lain, karena setiap orang memiliki potensinya masing-masing, janganlah begitu memaksakan hal-hal yang jauh dari kemampuan kita selagi kita bisa melakukan yang kita bisa..<br />
<br />
Suatu hal yang hebat bila bisa mendirikan suatu perusahaan IT itu sendiri..<br />
Namun hal itu tidak mungkin bila dilakukan sendiri,, tentunya saya juga memerlukan sahabat-sahabat yang dapat membantu saya untuk mewujudkannya.. Dengan berbekal ilmu dan skill-skill yang telah di dapat melalui perjalanan panjang selama 4 tahun selama perkulihan, saya berharap mampu untuk mewujudkannya dengan sahabat-sahabat saya nantinya dan saat itu semoga saja impian saya yang ingin menjadi seorang Direktur di suatu perusahaan IT tersebut dapat terwujud..<br />
<br />
Tentu saja bila impian saya telah terwujud dan perusahaan yang saya dirikan natinya berkembang dengan baik dan terkenal.. saya tidak akan lupa dari saya peroleh keahlian yang membuat impian saya itu terwujud.. Dan saya akan sangat senang bila dapat memantu teman-teman saya yang sedang dalam masa mencari pekerjaan dengan memberikan puluang pekerjaan di perusahaan saya ini... saya juga berharap dengan perusahaan yang di dirikan nantinya dapat memberikan kemajuan dalam bidang perekonomian dan teknologi di daerah sekitar serta dapat membawa nama baik daerah dan membuat Indonesia terkenal dan lebih dipandang Dunia sebagai negara yang telah maju dalam hal teknologinya..<br />
<br />
Alhamdulillahirrobil'alamin<br />
<br />
Mungkin seperti itu lah bayangan mengenai cita-cita saya kedepannya.. dengan tetap berusaha dan menguatkan tekad untuk mewujudkannya semoga dapat terwujud #Aamiin...<br />
<br />
Mohon maaf bila ada kata-kata yang tidak sesuai dalam penulihan bahasa indonesia yang baik dan benar sekian dan terimakasih telah mau untuk membaca curahan hati kecil mengenai impian saya ini...<br />
<br />
Wassalamu'alaiku wr.wb.

suka-suka Imagination of Dream :D

Assalamualaikum gaees.... Saya adalah mahasiswa program studi ilmu komputer yang sedang dalam proses mencari jati diri yang entah hilang kemana :D wkwkwk di hari minggu ini khusus nongkrong di kampus FMIPA unlan tercinta #karena Wifi.id nya telah hid…

Baca selengkapnya »

Program Pascal - Pointer Tak Bertipe

7:25 PM Unknown 0

<br />
<br />
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<b><span style="font-family: "Times New Roman","serif"; font-size: 14.0pt; line-height: 150%; mso-bidi-font-size: 12.0pt;">Tugas
Praktikum Ke-5<o:p></o:p></span></b></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Nama   : Achmad Kharis<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">NIM    : J1F114002<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;">Shift
   : 3 (Tiga)<o:p></o:p></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";">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><v:shape id="Picture_x0020_2" o:spid="_x0000_s1028" style="height: 226.75pt; margin-left: 101.6pt; margin-top: 2.5pt; mso-height-percent: 0; mso-height-percent: 0; mso-height-relative: margin; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-width-percent: 0; mso-width-percent: 0; mso-width-relative: margin; 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: 231.8pt; z-index: 251658240;" type="#_x0000_t75"><br /></v:shape></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqystDpvN3YLdCueiAU7ziT18HILc5InWKtfG8mpQEERBasVOJQj3k287977U9w0bfY7FeoX0ZeZn5xPRid7fCi2ANFeyZvVPY6FA6zGaBbbkfzKcn1o-FHFQ_YcMRTaBK-J7IMLMlajL8/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="312" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqystDpvN3YLdCueiAU7ziT18HILc5InWKtfG8mpQEERBasVOJQj3k287977U9w0bfY7FeoX0ZeZn5xPRid7fCi2ANFeyZvVPY6FA6zGaBbbkfzKcn1o-FHFQ_YcMRTaBK-J7IMLMlajL8/s1600/1.JPG" width="320" /></a></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;">
<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 /></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>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrjUJ6vzd-XLA4Ugs8MejdQFvO1ZGBGds2I5FWiD_WZfsyLOC8wziAo1j4thj0l4Dh2U6ZA-kTtPHksCwnpvRlAmNqIcQwNof74GnLEhDs0WJ56Grn0P9Z8R-rSYhh2mT1MiO-7F4G7wSU/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="313" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjrjUJ6vzd-XLA4Ugs8MejdQFvO1ZGBGds2I5FWiD_WZfsyLOC8wziAo1j4thj0l4Dh2U6ZA-kTtPHksCwnpvRlAmNqIcQwNof74GnLEhDs0WJ56Grn0P9Z8R-rSYhh2mT1MiO-7F4G7wSU/s1600/2.JPG" width="320" /></a></div>
<v:shape id="Picture_x0020_3" o:spid="_x0000_s1027" style="height: 226.75pt; margin-left: 112.45pt; margin-top: 2.65pt; mso-height-percent: 0; mso-height-percent: 0; mso-height-relative: margin; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-width-percent: 0; mso-width-percent: 0; mso-width-relative: margin; 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: 230.2pt; z-index: 251659264;" type="#_x0000_t75"><br /></v:shape>
<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
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;">
<v:shape id="Picture_x0020_4" o:spid="_x0000_s1026" style="height: 226.75pt; margin-left: 112.5pt; margin-top: 18.85pt; mso-height-percent: 0; mso-height-percent: 0; mso-height-relative: margin; mso-position-horizontal-relative: text; mso-position-horizontal: absolute; mso-position-vertical-relative: text; mso-position-vertical: absolute; mso-width-percent: 0; mso-width-percent: 0; mso-width-relative: margin; 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: 233.75pt; z-index: 251660288;" type="#_x0000_t75">
 <v:imagedata o:title="3" src="file:///C:\Users\User\AppData\Local\Temp\msohtmlclip1\01\clip_image003.jpg">
</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 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/AVvXsEgX-MpcUGx86R7BS3RdqEiHnZSjoHVRxYT42ov9TpTorC2PerEVZ99Di_hLvCsMH2rCcirN323Tu-Th6wmNK5vm2EkrZZmTu5W6knIzByRUFEHKu02Qp2fAFsRVt7PbXWW9voOORbj66bC8/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="311" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgX-MpcUGx86R7BS3RdqEiHnZSjoHVRxYT42ov9TpTorC2PerEVZ99Di_hLvCsMH2rCcirN323Tu-Th6wmNK5vm2EkrZZmTu5W6knIzByRUFEHKu02Qp2fAFsRVt7PbXWW9voOORbj66bC8/s1600/3.JPG" width="320" /></a></div>
<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;">
<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
3 : Tampilan hasil pengurutan secara Ascending dan Descending</span><span style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 150%;"><o:p></o:p></span></div>
<div align="center" class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<br /></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: 429.5pt;" valign="top" width="573"><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;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">  Program pointer_tak_bertipe;<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"; 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"; mso-bidi-font-family: "Times New Roman";">var<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"; mso-bidi-font-family: "Times New Roman";">p
  : Pointer;<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"; mso-bidi-font-family: "Times New Roman";">q
  : ^Byte;<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"; mso-bidi-font-family: "Times New Roman";">r
  : array [0..100] of Byte;<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"; mso-bidi-font-family: "Times New Roman";">i,j
  : Byte;<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"; mso-bidi-font-family: "Times New Roman";">n,m
  : 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;">
<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"; 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"; 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"; mso-bidi-font-family: "Times New Roman";">   GetMem(p, 20);<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"; mso-bidi-font-family: "Times New Roman";">   q := p;<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"; mso-bidi-font-family: "Times New Roman";">   writeln(' 
  Program Pointer Tidak Bertipe 
  ');<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"; 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"; mso-bidi-font-family: "Times New Roman";">   writeln(' 
  Secara Ascending & Descending 
  ');<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"; 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"; 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"; mso-bidi-font-family: "Times New Roman";">   write 
  ('       Input 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;">
<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;">
<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"; 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"; mso-bidi-font-family: "Times New Roman";">  writeln(' 
     Ascending <>  Descending '); <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"; mso-bidi-font-family: "Times New Roman";">  for i
  := 1 to n 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"; 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"; mso-bidi-font-family: "Times New Roman";">       r[i] := n - 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"; mso-bidi-font-family: "Times New Roman";">       q^ := n - 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"; mso-bidi-font-family: "Times New Roman";">       inc(q);<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"; 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"; mso-bidi-font-family: "Times New Roman";">   q := p;<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"; mso-bidi-font-family: "Times New Roman";">   for i := n downto 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"; 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"; mso-bidi-font-family: "Times New Roman";">     write('         ',r[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"; mso-bidi-font-family: "Times New Roman";">       writeln(q^);<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"; mso-bidi-font-family: "Times New Roman";">       inc(q);<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"; 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"; mso-bidi-font-family: "Times New Roman";">   readln;<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"; 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>
</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 - Pointer Tak Bertipe

Tugas Praktikum Ke-5 Nama : Achmad Kharis NIM : J1F114002 Shift : 3 (Tiga) 1. Screenshot Program Gambar 1 : Tampilan Program Saat pertama di jalankan Gambar 2 : Tampilan saat mengiputkan jum…

Baca selengkapnya »

Story Entrance HIMAKOM and Journalism Training Activities [G.Taranlate :D]

12:00 AM Unknown 0

<br />
Bismilahirohmanirohim<br />
<br />
Bila di suruh menceritakan tentang penngalaman diri sendiri itu memang menjadi sesuatu hal yang sangat berbeda bagi sang penceritanya.<br />
kadang-kadang ketika bercerita bisa jadi teringat akan hal-hal aneh, lucu, menyebalkan dan lain sebagainya yang pernah kita alami dan itu pasti akan membuat kita tertawa-terwawa sendiri..  ahahahaha :D #mulai dah -_-<br />
<br />
==> Okke aja.. tak apalah yang penting happy aja :D..<br />
Berbagi pengalaman dan cerita diri sendiri ke orang lain itu memang sesuatu rasanya...#kisah sudah berpegalaman aja, pdhal blom apa2 -.- zzz<br />
<br />
tak perlu basa-basi gak jelas kemna lagi arahnya..<br />
langsug saja....<br />
sya memperkenalkan diri dulu ya???? okke deh  :p =D<br />
<br />
Saya adalah seorang manusia biasa, bukan keturunan superman..<br />
Biasa makan nasi lauknya roti.. kya orang Europa ketimur-timuran =D<br />
Hidup dengan Vitamin D, H<sub>2</sub>O, dan O<sub>2...</sub><br />
Dan lain sebagainya,,,, cari aja di Mbah Gugle, banyak aja --<br />
<br />
Langsung ke TKP aja soalnya sudah hampir tengah malam, laporan juga sudah numpuk -- zzz<br />
<br />
Awal kisah nih, saya sudah masuk Unlam, yang belum tau unlam saya kasih tau dah.<br />
Unlam = Universitas Lambung Mangkurat...<br />
Terus sudah masuk Program study  ilkom,,, ada yang ga  tau juga??<br />
Ilkom = Ilmu Komputer... bahasa baratnya itu : Computer Science.. :D<br />
<br />
Di tahun dua ribu empat belas abad ke 21 ini, saya menjadi maba (mahasiswa baru) di prodi ilkom fmipa unlam.  Dan menjalani berbagai rutinitas kegiatan kampus sehari-hari sebagai 0,4%  ngerasa sbg mahasiswa dan sisanya masih siswa biasa belum kelihatan MAHA nya..--<br />
Ehhh.. langsung aja skip, hashtag freememmory semester one....<br />
ga perlu ceritain IP ya, soalnya ngenes... :'( cuma dapat 3,99 di semester 3 besok rencananya :D #Aamiin<br />
<br />
Di awal semester dua tiba-tiba ngelihat selebaran, "Open Recuitmen !!"<br />
. . . . . . . . . . . . ????<br />
saya juga lupa rincian isinya apa..<br />
yang jelas dibuka lowongan jadi anggota di Himakom... :D<br />
dan saya langsung habut sendri nyari formulirnya,<br />
taunya kata teman saya yang menginfokan tentang hal ini juga,<br />
bilang seperti ini... "Formulirnya lagi di fotocopy"... -_-<br />
dengan sabar menanti... jeng...jeng...jeeeng...!!!<br />
taunya mlah ga kebagian alias habis....<br />
besoknya baaru dapat... langsung di isi... tinggal nunggu wawancara di hari H..<br />
<br />
Jika di tanya kenapa saya ingin masuk Himpunan Mahasiswa dibandingkan masuk organisasi-organisasi yang lain di FMIPA unlam.. karena menurut saya di Hima ini adalah tempat terbaik bagi saya untuk mengawali dan  menambah pengalaman dalam hal berorganisasi.. karena seperti tujuan awal saya sebagai seorang mahasiswa, selain belajar dan menuntut ilmu di kampus, saya juga berkeinginan menjadi seseorang yang aktif dalam hal berorganisasi terutamanya di lingkungan kampus. Dan  waktu itu saya berpandangan bahwa jika kita sudah terbiasa dalam hal berorganisasi, maka dalam hal menghadapi tantangan di luar kampus misal dunia kerja dan lain sebagainya nanti akan menjadi lebih mudah karena kita sudah di bekali ilmu, pengalaman serta skill dalam hal berorganisasi yang baik...<br />
<br />
kembali ke TKP...<br />
pada hari H buat wawancara...<br />
dengan membawa selembar formulir..<br />
dan formulirnya ternyata belum saya isi -_- tapi rasannya sudah di isi ko.. #aneh<br />
dengan cepat saya isi...dan tiba-tiba..<br />
saya pusing ngisi bagian motivasinya itu loh... hehehe<br />
-- entah kenapa, udah selesai ngisinya lalu kumpul, tinggal nunggu pemanggilan...<br />
<br />
membayangkan menghadapi sang pewawancara pastinya sudah panas dingin DLL..<br />
tapi entah kenapa dengan saya waktu itu, rasa gugup pun tak ada ketika hari H tsb, yg ada hanyalah rasa ngantuk dan lapar --<br />
<br />
tak lama sekitar 45 menit saya di panggil...<br />
<br />
Jeng...jeng..jeng...!!<br />
di depan saya telah ada dua orang yang belum sya kenal dan akan banyak nanya...-.-<br />
satu pertannyaan di lontarkan, dan rasa lapar saya pun hilang...<br />
badan bagaikan membeku seperti es, lalu mencair #gemeteran -_-<br />
dan saya menjawab:<br />
<br />
  Nama saya : .........<br />
  NIM : ..................<br />
  dst.....<br />
<br />
...........Hufft ternyata baru biodata.. hehee :D<br />
<br />
sekitar 1 jam lamanya bagaikan di in-te-ro-g-si...<br />
entah rasa sudah seperti apa, yang pasti mau cepet pulang :( mau makan -- hehee<br />
setelah itu saya menarik nafass dalam2,, lupa saya keluarkan lewat mulut, jadi lewat hidung ja heheh :p<br />
<br />
berpindah ke tempat wawancara berikutnya..<br />
seseorang pewawancara yang terlihat tegas membuat ngantuk saya hilang..<br />
dan ada beberapa pertannyaan yang diajukan yang membuat saya ragu akan ketidaktepatan jawaban yang saya berikan..<br />
di saat itu lah saya merasa,,,     sedih ..hahaha :D<br />
soalnya waktu itu sempet terbayang seperti ini..."bagaimana jika ga lulus wawancara dan ga bisa masuk hima, gerbang awal menuju tujuan serta impian saya pun akan tertutup"... #dgn mnahan lapar..--<br />
<br />
setelah selesai wawancara, dan keluar ruangan..<br />
dan menghirup udara segar...<br />
saat itulah saya merasa seperti malaikat yang terbang ke surga..<br />
merasakan ini adalah pengalaman wawancara yang tidak sesuai dengan dugaan saya..<br />
lalu pulang ke kos.. #saya anak kos-_-<br />
ga lupa makan dulu..<br />
lalu menyesali.... "kenapa saya tadi jawabnya seperti itu, seharusnya seperti ini...!!! " kypa bila kada di terima hadak jadi apa unda, paling ratik wara.. :'(<br />
dan jadi hang, terus di bawa tidur aja (Restart !!)...<br />
<br />
Beberapa hari terus berjalan...<br />
menjalihari-hari kuliah seperti biasa...<br />
menunggu hasil yang tidak pasti dari wawancara itu...<br />
--> skiip memory.. ceritanya udah hari H pengumuman...<br />
<br />
waktu itu dapat infonya dari teman saya...<br />
jeng...jeng..jeng...<br />
melihat kertas A4 berisikan pengumuman penerimaannya...<br />
mode scroll reading...  nyari nama saya...<br />
<br />
langsug ngelihat klo nama saya ada.. hahahaha<br />
<br />
maaf ulang...kurang afdol..:D<br />
<br />
Alhamdulillah... saya di terima di HIMAKOM...=D<br />
<br />
masuk jadi Agt. DIvisi Pengembangan TI sesuai dengan harapan dan keinginan saya...<br />
keterangan dibawah pengumuman di suruh menghubungi koor divisi masing2.. tapi saya mlah lupa -_-<br />
itu adalah kesan buruk pertama yang saya berikan... :(<br />
minggu depannya langsung ada rapat ini dengan korr dan anggota divisi masing-masing..<br />
dalam rapat saling memperkenalkan diri dan lain sebagainya...<br />
<br />
hari demi hari pun berlalu...<br />
dengan diisi dengan kesibukan baru di himpunan...<br />
dan tiap minggunya mengadakan rapat ini di divisi, untuk membahas proker2 dan agenda2 kedepannya..<br />
salah satu proker dari divisi Pengembangan TI yang sedang dijalankan adalah IT CAMP..<br />
didalam IT Camp terdapat berbagai rancangan serta agenda2 kegiatan yang akan di laksanakan..<br />
seperti yang sudah terlaksana adalah Pelatihan Jurnalistik untuk pengurus Himpunan dan Pelatihan jurnalistik buat Umum...<br />
<br />
Flashback... ke kegiatan Pelatihan Jurnalistik Umum...<br />
waktu itu... maaf saya lupa tanggal nya, kalau ga salah 20 maret 2014 yang pasti hari jum'at mlam sabtu..<br />
di kampus FMIPA sedang diadakan kegiatan Bedah Film oleh teman2 himpunan dari divisi Minat Bakat..<br />
dan pada waktu yang sama kami dari Divisi Pengembangan TI mengadakan rapat pada pukul 19.15..<br />
Namun karena adanya berbagai kendala dan kesibukan masing2 anggota Divisi,<br />
maka sekitar jam 20.30.. 4 anggota divisi PTI telah berkumpul, 2 anggotanya sdg otw dan koornya masih dalam kesibukan dan sudah berpesan akan telat beradir...<br />
Tanpa menunggu waktu semakin malam..<br />
Bang Aldi Perdana Putra selaku Agt. Divisi PTI di antara kami berempat yang lebih senior menmutuskan untuk memulai saja rapatnya...<br />
Nah diadalam rapat ini agenda pembahasannya mengenai pemilihan ketua pelaksana untuk penyelenggaraan Acara Pelatihan Jurnalistik Umum... karena menimbang dan mengingat bahwa agenda acara ini pernah diundur oleh Divisi PTI karena pada minggu sebelumnya Divisi PTI mendapatkan kesibukan dalam hal pemilihan Ketua dan wakil untuk penyelenggaraan kegiatan IMWE tahun ini..<br />
Maka... telah diputuskan bahwa malam itu juga harus ada yang sudah terpilih sebagai ketua pelaksanan kegiatan Pelatihan Jurnalistik Umum tersebut.. agar selanjutnya dapat sesegera mungkin untuk membentuk kepanitiaan dan menyusun proposal, pembagia tugas dan lain sebagainya..<br />
Mengingat pesan koor divisi pada rapat2 sebelumnya, kalau bisa dalam suatu kegiatan program kerja PTI anggota dari divisi PTI itu sendiri juga harus terlibat dan berperan aktif serta memberikan kierja yang maksimal dalam peaksaanaannya...<br />
Dan itulah megapa yang membuat pemilihan ketua pelaksana untuk kegiatan Pelatihan Jurnalistik Umum ini di perioritaskan lebih utamanya dari divisi PTI itu sendiri...<br />
Tanpa musyawarah lagi dan langsung voting2 aja karena kesannya sudah terdesak waktu dan sebagainya...<br />
4 orang Agt.PTI yg hadir dalam rapat itu adalah:<br />
<br />
1.  Bang Aldi Perdana Putra (2012)<br />
2.  M. Ni'man Nasir (2013)<br />
3.  M. Naserudin (2014) --> selaku PJ pertama kegiatan IT Camp<br />
4.  Achmad Kharis (2014) --> selaku PJ kedua kegiatan IT Camp<br />
<br />
Kronologi Votingnya kurang lebih seperti ini:<br />
( 20:46:34 )<br />
Agt. No.1 langsung milih Agt. No 4 dgn alasan 2014 harus lebih berperan aktif<br />
( 20:46:37 )<br />
Agt. No.3 dgn senang hati sepakat, alasannya dapat dibayangkan sendiri :D<br />
( 20:46:39 )<br />
Agt. No.2 Acc aja dengan tegas, mungkin ga mau jadi ketuplak jua, alasan sama dgn Agt. No 1<br />
( 20:46:40 )<br />
Agt. No.4 pasrah kalah suara, walaupun ingin milih Agt. No.3 aja.. -_-<br />
<br />
Seperti yang terlihat diatas dapat diketahui siapa yang jadi korban..wkwkwk :D<br />
setelah diputuskan bahwa Agt. No.4 sebagai Ketua Pelaksana Kegiatan Pelatihan Jurnalistik Umum dalam rangkaian kegiatan IT Camp, dia pun merenung dan memikirkannya terlebih dahulu, kemudian mengingat akan tujuan pertama masuk organisasi salah satunya adalah untuk menambah pengalaman dan meningkatkan sklill dan sebagainya.. lalu Agt No 4 berusaha mengambil amanah yg di berikan tersebut, namun beberapa detik kemudian teringat kembali akan masih kurangnya pengalaman dan bakat bila menjadi ketua pelaksana dalam suatu kegiatan maka Agt. No 4 pun pikir-pikir lagi...dan mempertimbangkan kembali bahwa ini adalah peluang emas dan langkah awal untuk menjadi lebih baik kedepannya maka Agt No 4 dengan rasa 37,8% yakin dan sisa nya tidak percaya diri berusaha mengambil tugas yang dirasa cukup berat baginya yang masih belum memiliki pangalaman yang baik dalam hal berorganisasi tersebut.....<br />
<br />
<br />
//*Berhubung hari sudah larut malam dan saya pun mulai mengantuk maka untuk kenjutan ceritanya saya lanjutkan besok aja :D *//<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Sekianlah tulisan yang dapat saya ketikan diatas..<br />
Mohon maaf bila ada yang tidak jelas dan banyak yang salah..<br />
seperti yang saya jelaskan di awal, yang penting Happy aja :D<br />
ga usah tapi serius, seperti mau ngasih sambutan aja -_- ha, ha, ha..<br />
dan maaf bila kurang bnyak, jadi silahkan tambahkan lagi aja di menu komentar :D<br />
terima kasih sudah mau baca... :)<br />
<br />
<br />
Catatan :<br />
  Bila ketika anda membaca tulisan di atas dan menemukan banyak kata-kata di luar kewajaran penulisan       artikel yang benar dan banyak yang Error-eror alur pembahasan ceritanya.. di mohon untuk                           memakluminya.. karena sang penulis sedang mengidap gejala di kejar Deadline ACC laporan<br />
        #sudah 4 praktikum, belum ada yg ACC, Suuupeer sekali...-_-

suka-suka Story Entrance HIMAKOM and Journalism Training Activities [G.Taranlate :D]

Bismilahirohmanirohim Bila di suruh menceritakan tentang penngalaman diri sendiri itu memang menjadi sesuatu hal yang sangat berbeda bagi sang penceritanya. kadang-kadang ketika bercerita bisa jadi teringat akan hal-hal aneh, lucu, menyebalkan dan l…

Baca selengkapnya »

Program Pascal - Menentukan Nilai Terbesar & Terkecil dengan metode Extreme Search

3:41 PM Unknown 0

<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><v:shape id="Picture_x0020_12" o:spid="_x0000_s1030" style="height: 207.15pt; margin-left: 68.55pt; margin-top: 6.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: 311.1pt; 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></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjduURxxqlVvxbUt6dPTBWrOqG3_3n1U2v9laYVBYUzYmvUANagaa2goPUfQla1d8KxBWVs72O3B8a-EflFlqAi8Cstx1gsRLF5iZbmjqqqsW-4ZkD6Wj9llmexWmqaSkyFospQk6syBqjP/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/AVvXsEjduURxxqlVvxbUt6dPTBWrOqG3_3n1U2v9laYVBYUzYmvUANagaa2goPUfQla1d8KxBWVs72O3B8a-EflFlqAi8Cstx1gsRLF5iZbmjqqqsW-4ZkD6Wj9llmexWmqaSkyFospQk6syBqjP/s1600/1.JPG" width="320" /></a></div>
<br />
<div style="text-align: center;">
 <o:p style="line-height: 150%; text-align: center;"> </o:p><span style="background-color: white; color: #333333; font-family: 'Times New Roman', serif; font-size: 16px; line-height: 150%; text-align: center;">Gambar 1 : Tampilan Program Saat pertama di jalankan</span></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjxL13p9rce9_cAI3NGWA71I7sRyKvYGIS51kxKRQmHm0q7nyuAY_GEX8TSzTTV90ZbZJwc75pWPlvuRtoDEZaV4nD8qeU76TzzrXzwbpyKka0w5STl_gT4P9gj1JlsYjoCNPTzTkAec70I/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/AVvXsEjxL13p9rce9_cAI3NGWA71I7sRyKvYGIS51kxKRQmHm0q7nyuAY_GEX8TSzTTV90ZbZJwc75pWPlvuRtoDEZaV4nD8qeU76TzzrXzwbpyKka0w5STl_gT4P9gj1JlsYjoCNPTzTkAec70I/s1600/2.JPG" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: 0.0001pt; text-align: center;">
<o:p> </o:p><span style="background-color: white; color: #333333; font-family: 'Times New Roman', serif; font-size: 16px; text-align: center;">Gambar 2 : Tampilan saat mengiputkan jumlah data</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: 0.0001pt; text-align: center;">
<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;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhuhDJuIgys13cNsNUz4O_TMeBRYnaMimBVZFgvn7AAw0kR0-fPLkZp-dB4uPhM_wfR0xN6I_Szi7JBiBYQsF2wSzGoQ5WvvMTb2PvUpBePGD5JWY8HawQtsxhtnrw6sTnmwet_JunctwqI/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhuhDJuIgys13cNsNUz4O_TMeBRYnaMimBVZFgvn7AAw0kR0-fPLkZp-dB4uPhM_wfR0xN6I_Szi7JBiBYQsF2wSzGoQ5WvvMTb2PvUpBePGD5JWY8HawQtsxhtnrw6sTnmwet_JunctwqI/s1600/3.JPG" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: 0.0001pt; text-align: center;">
<o:p> </o:p><span style="background-color: white; color: #333333; font-family: 'Times New Roman', serif; font-size: 16px; text-align: center;">Gambar 3 : Tampilan setelah menginputkan jumlah data</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: 0.0001pt; text-align: center;">
<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;">
<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;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhuUr_961CshcWnp5nlumzciT9MH4jioF4upIspvTADbTu1b5iY49P-LUlYS3ilkxmA8DSSGTiiBj7qS5t4NiWxwyZJOjcouhDLi_azbRqfTpgF0-EqVZPxsujirKuyH1nBNAaY2mMTEE7E/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/AVvXsEhuUr_961CshcWnp5nlumzciT9MH4jioF4upIspvTADbTu1b5iY49P-LUlYS3ilkxmA8DSSGTiiBj7qS5t4NiWxwyZJOjcouhDLi_azbRqfTpgF0-EqVZPxsujirKuyH1nBNAaY2mMTEE7E/s1600/4.JPG" width="320" /></a></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_14" o:spid="_x0000_s1029" style="height: 209.9pt; margin-left: 68.6pt; margin-top: 6.95pt; position: absolute; text-align: right; visibility: visible; width: 309.75pt; z-index: 251659264;" type="#_x0000_t75"><br /></v:shape><o:p></o:p></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: 0.0001pt; text-align: center;">
<o:p> </o:p><span style="background-color: white; color: #333333; font-family: 'Times New Roman', serif; font-size: 16px; text-align: center;">Gambar 4 : Tampilan saat menginputkan data berupa nilai (angka)</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;">
                <o:p></o:p></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcvVQCPcfiZfuKuJ1vgTMhrNni41ks_rx5tdimShFf2EYH-ejbi3cknAltLOZv-PE5md_wX5u0OMZSLehXj2ch7fRW3rt4aS25m5pwr5rgyXXqs9_lhVT8Acf_VS9FeDedhcPmG1PVk6HW/s1600/5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="212" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcvVQCPcfiZfuKuJ1vgTMhrNni41ks_rx5tdimShFf2EYH-ejbi3cknAltLOZv-PE5md_wX5u0OMZSLehXj2ch7fRW3rt4aS25m5pwr5rgyXXqs9_lhVT8Acf_VS9FeDedhcPmG1PVk6HW/s1600/5.JPG" width="320" /></a></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;">
<o:p></o:p></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
5 : Tampilan Hasil Pencarian Nialai Terbesar dan Terkecil<o:p></o:p></span></div>
<div align="center" class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; text-align: center;">
<br /></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;">
<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Program
  extreme_search;<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Type<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Arrint = array [1..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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Var<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  maks, minm, jlh, 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  tabint : arrint;<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Function
  maksimum(tabint : arrint; n : integer) : 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Var<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">    i,max : 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  For i:=1 to n 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  If max < tabint[i] 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Max:= tabint[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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Maksimum:=max;<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Function
  minimum(tabint : arrint; n : integer) : 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">Var<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  i,min : 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  For i:=1 to n 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  If min > tabint[i] 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Min:= tabint[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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Minimum:=min;<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Writeln('   
  >>> Program Extreme Search <<<  ');<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;"> 
  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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  writeln('Menentukan Nilai Terbesar dan
  Terkecil');<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Write('Jumlah Data = '); readln(jlh);<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Write('Inputkan Data = ');<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  For i:= 1 to jlh 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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">    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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">      Gotoxy(13+(i*4),7); readln(tabint[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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">    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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Maks:=maksimum(tabint, jlh);<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Minm:=minimum(tabint, jlh);<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Writeln('Nilai Terbesar = ',maks);<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Writeln('Nilai Terkecil = ',minm);<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">  Readln;<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: 10.0pt; line-height: 150%; mso-bidi-font-family: "Times New Roman"; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: .75pt; mso-style-textoutline-outlinestyle-join: bevel; mso-style-textoutline-outlinestyle-linecap: round; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;">End.<o:p></o:p></span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-add-space: auto;">
<br /></div>
</td>
 </tr>
</tbody></table>
<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;">
<br /></div>

Pascal Program Pascal - Menentukan Nilai Terbesar & Terkecil dengan metode Extreme Search

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

Baca selengkapnya »

Only Great Share !!

Program Pascal - Linklist

Imagination of Dream :D

Program Pascal - Pointer Tak Bertipe

Story Entrance HIMAKOM and Journalism Training Activities [G.Taranlate :D]

Program Pascal - Menentukan Nilai Terbesar & Terkecil dengan metode Extreme Search

Popular posts

Daftar Blog Temen :

Blog Archive