Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal

<div dir="ltr" style="text-align: left;" trbidi="on"> <h3 class="post-title entry-title" itemprop="name" style="margin: 0px; position: relative; text-align: center;"> <span style="font-family: Cherry Cream Soda; font-size: small;"><i><u><a href="http://www.muhammad-sholeh.info/2013/07/contoh-program-penggajian-karyawan.html">Contoh Program Penggajian Karyawan dengan menggunakan Array</a></u></i></span></h3> <div> <span style="font-family: Cherry Cream Soda; font-size: small;"><i><u><br /></u></i></span></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwzuA62SS4jC4S4f7_rJ4-P9ud6JWvyOiSMXkqwtDt3sPXcp3hv2Wg90qTh5SX1uRbayO9r-qD00r9E6WA1zB9M3uZa2phluOUFWb7SdBQoTfUAidbEL0sB9fj0XF-N89i6PnRxfgWIN8/s1600/111.5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" border="0" height="203" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwzuA62SS4jC4S4f7_rJ4-P9ud6JWvyOiSMXkqwtDt3sPXcp3hv2Wg90qTh5SX1uRbayO9r-qD00r9E6WA1zB9M3uZa2phluOUFWb7SdBQoTfUAidbEL0sB9fj0XF-N89i6PnRxfgWIN8/s320/111.5.png" title="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" width="320" /></a></div> <div> <span style="font-family: Cherry Cream Soda; font-size: small;"><i><u><br /></u></i></span></div> <div> <span style="font-family: Cherry Cream Soda; font-size: small;"><i><u><br /></u></i></span></div> <div> <span style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif; font-size: 14px; line-height: 18.1875px;"><span style="line-height: 22.386363983154297px;"><b><span style="font-size: medium;">M-S Blog ||</span></b> </span></span><span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">C<a href="http://www.muhammad-sholeh.info/2013/07/contoh-program-penggajian-karyawan.html">ontoh Program Penggajian Karyawan menggunakan Array</a></span></span><span style="font-family: Segoe UI, Arial; font-size: x-small;"><span style="line-height: 22.390625px;"><a href="http://www.muhammad-sholeh.info/2013/07/contoh-program-penggajian-karyawan.html"> dengan </a></span><span style="line-height: 22.386363983154297px;"><a href="http://www.muhammad-sholeh.info/2013/07/contoh-program-penggajian-karyawan.html">Pascal</a> </span><span style="line-height: 22.390625px;">|| Berikut ini adalah script untuk </span></span><span style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif; font-size: x-small; line-height: 22.386363983154297px;"><a href="http://www.muhammad-sholeh.info/2013/07/contoh-program-penggajian-karyawan.html">Penggajian Karyawan dengan Pascal</a></span></div> <div> <span style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif; font-size: x-small; line-height: 22.386363983154297px;"><br /></span></div> <div> <span style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif; font-size: x-small; line-height: 22.386363983154297px;"><br /></span></div> <div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">Uses WinCrt;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">Var nama19                      :array [1..50] of string;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    gapok19,tji19,tja19,gaber19 :array [1..50] of real;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    gol19,status19,lagi         :array [1..50] of char;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    anak19,a19,b19,jd19         :byte;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">Label atas,ulang;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">Begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     atas:</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     clrscr;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(10,2); writeln ('=======================================================');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(10,3); writeln ('================== Penggajian Karyawan ================');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(10,4); writeln ('=======================================================');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(10,6); write(' Masukkan Jumlah Data    : ');readln(jd19);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     for a19:= 1 to jd19 do</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">Begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     clrscr;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(13,4); writeln('=====================================================');write;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(13,5); writeln('===============  Penggajian Karyawan  ===============');write;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(13,6); writeln('=====================================================');writeln;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,9); write('Masukkan Nama Karyawan              : '); readln(nama19[a19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,10); write('Golongan Karyawan [A/B/C]           : '); readln(gol19[a19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     case gol19[a19] of</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     'A','a':</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          gapok19[a19]:=1000000;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     'B','b':</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          gapok19[a19]:=750000;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     'C','c':</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          gapok19[a19]:=500000;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    gotoxy(6,11); write('Status Karyawan [N/B]               : '); readln(status19[a19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    case status19[a19] of</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     'N','n':</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          gotoxy(45,11);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln('/Nikah');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          tji19[a19]:=10/100*gapok19[a19];</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    gotoxy(6,12); write('Jumlah Anak                         : '); readln(anak19);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          if (anak19<=2) then</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          tja19[a19]:=5/100*gapok19[a19]*anak19</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          else        </span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          tja19[a19]:=5/100*gapok19[a19]*2;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     'B','b':</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          begin             </span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          gotoxy(45,11);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln('/Belum Nikah');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          tji19[a19]:=0;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          tja19[a19]:=0;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          anak19:=0;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,12); writeln('Jumlah Anak                         : Belum Nikah');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,13); writeln('Gaji Pokok                          : Rp. ',gapok19[a19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,14); writeln('Tunjangan Istri                     : Rp. ',tji19[a19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,15); writeln('Tunjangan Anak                      : Rp. ',tja19[a19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gaber19[a19]:=gapok19[a19]+tji19[a19]+tja19[a19];</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     gotoxy(6,16); write('Gaji Bersih                         : Rp. ',gaber19[a19]:8:2); writeln;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">      clrscr;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     for b19 := 1 to jd19 do</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     Begin</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('=======================================================');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('================== Penggajian Karyawan ================');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('=======================================================');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Nama Karyawan      : ' , nama19[b19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Gol Karyawan       : ' , gol19[b19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Status Karyawan    : ' , status19[b19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Jumlah Anak        : ' , anak19);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Gaji Pokok         : Rp ' , gapok19[b19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Tunjangan Istri    : Rp ' , tji19[b19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Tunjangan Anak     : Rp ' , tja19[b19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('Gaji Bersih        : Rp ' , gaber19[b19]:8:2);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          writeln ('-------------------------------------------------------');</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          readln;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">          End;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     readln;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     write('Apakah Anda Ingin Input Lagi [Y/N] ? '); readln(lagi[a19]);</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     case lagi[a19] of</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">      'N','n':goto ulang;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">      'Y','y':goto atas;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">     end;</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">    ulang:</span></span></div> <div> <span style="color: blue; font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">End.</span></span></div> <div> <span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">                                  </span></span></div> <div> <span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;">ScreenShoot:</span></span></div> <div> <span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;"><br /></span></span></div> <table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody> <tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOgfjijmylmpdXZbt_Gt0rA5dxvvF3BMx4gzH8Fs_StXgXA38nhDZh3KLn9nJDR8iw7JpBxkfl_cwIInHAwNe8miT9KZGtvJ4EjTOy11JZzjUXJLUFOxgq7tXKk7MHDMgGztMyK9XGfwY/s1600/111.1.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" border="0" height="190" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOgfjijmylmpdXZbt_Gt0rA5dxvvF3BMx4gzH8Fs_StXgXA38nhDZh3KLn9nJDR8iw7JpBxkfl_cwIInHAwNe8miT9KZGtvJ4EjTOy11JZzjUXJLUFOxgq7tXKk7MHDMgGztMyK9XGfwY/s320/111.1.png" title="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" width="320" /></a></td></tr> <tr><td class="tr-caption" style="text-align: center;">1</td></tr> </tbody></table> <table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody> <tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-JLO9V5a2o1hTBDj6jNv-OnfXRqBFPetCXEvpgiLMA_ga4T_xSgGPnZs-lrg826vCmbEzcda7g32Ls8o4ma7pjIuReNnItKmtKJhmG30aizt9w3uatikXj1y1J9REjUIQSx-Is59Chkc/s1600/111.2.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" border="0" height="188" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-JLO9V5a2o1hTBDj6jNv-OnfXRqBFPetCXEvpgiLMA_ga4T_xSgGPnZs-lrg826vCmbEzcda7g32Ls8o4ma7pjIuReNnItKmtKJhmG30aizt9w3uatikXj1y1J9REjUIQSx-Is59Chkc/s320/111.2.png" title="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" width="320" /></a></td></tr> <tr><td class="tr-caption" style="text-align: center;">2</td></tr> </tbody></table> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody> <tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwZZYZA-mprttToFcccwe8u3QLIKuNIOQ14V_dU768uzGnqAnLO_-IZZrWLljT8XbwiLGBAWi22v6kNG-POyeYSqvGPqcKgY9w1MUWX6v_Lz4qq29sdymSGhej3sqrUNkiatPhPxILY84/s1600/111.3.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" border="0" height="190" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwZZYZA-mprttToFcccwe8u3QLIKuNIOQ14V_dU768uzGnqAnLO_-IZZrWLljT8XbwiLGBAWi22v6kNG-POyeYSqvGPqcKgY9w1MUWX6v_Lz4qq29sdymSGhej3sqrUNkiatPhPxILY84/s320/111.3.png" title="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" width="320" /></a></td></tr> <tr><td class="tr-caption" style="text-align: center;">3</td></tr> </tbody></table> <table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody> <tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLQo5q4pvesOGiTZuoZ1XUf8wthAh_lW_o1F2f0nER95Mdb7Z-ljyJbSQkAf5G3fR1CXI88kpAz9l6QSoquoa9JRwVyxybnkNKDVtiyCMJ_6gnWHEnvOufXUwfOIw9OxB1nhMPSOFE3Hk/s1600/111.4.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" border="0" height="188" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLQo5q4pvesOGiTZuoZ1XUf8wthAh_lW_o1F2f0nER95Mdb7Z-ljyJbSQkAf5G3fR1CXI88kpAz9l6QSoquoa9JRwVyxybnkNKDVtiyCMJ_6gnWHEnvOufXUwfOIw9OxB1nhMPSOFE3Hk/s320/111.4.png" title="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" width="320" /></a></td></tr> <tr><td class="tr-caption" style="text-align: center;">4</td></tr> </tbody></table> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody> <tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpS5Pf9XS46mX4A0fkDlmhyphenhyphend5KO-WgF2lX1DNN_elvGvOtWa0-LmfZOubzVeqQFBe1cMktTM5fndxIzYJQlKbFf6_IiwsDdm6ga9ftmd9RHyKk56NVeOr0rEtaCgw1maQ7v7VPlv23KKc/s1600/111.5.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img alt="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" border="0" height="203" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpS5Pf9XS46mX4A0fkDlmhyphenhyphend5KO-WgF2lX1DNN_elvGvOtWa0-LmfZOubzVeqQFBe1cMktTM5fndxIzYJQlKbFf6_IiwsDdm6ga9ftmd9RHyKk56NVeOr0rEtaCgw1maQ7v7VPlv23KKc/s320/111.5.png" title="Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal" width="320" /></a></td></tr> <tr><td class="tr-caption" style="text-align: center;">5</td></tr> </tbody></table> <br /> <span style="background-color: white; font-family: 'Segoe UI', Arial; font-size: x-small; line-height: 18.1875px;"><span style="line-height: 22.390625px;"># jika ada pertanyaan mengenai </span></span><span style="background-color: white;"><span style="font-family: Georgia, Times New Roman, serif;"><span style="line-height: 22.386363983154297px;"><a href="http://www.muhammad-sholeh.info/2013/07/contoh-program-penggajian-karyawan.html">Contoh Program Penggajian Karyawan dengan menggunakan Array | Pascal</a></span></span><span style="font-family: Segoe UI, Arial; font-size: x-small;"><span style="line-height: 22.390625px;"> silahkan berkomentar !</span></span></span><br /> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div> <span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;"><br /></span></span></div> <div> <span style="font-family: Helvetica Neue, Arial, Helvetica, sans-serif; font-size: x-small;"><span style="line-height: 22.386363983154297px;"><br /></span></span></div> <div style="font-family: 'Helvetica Neue', Arial, Helvetica, sans-serif; font-size: small; line-height: 22.386363983154297px;"> <br /></div> </div> </div>

Contoh Program Penggajian Karyawan dengan menggunakan Array M-S Blog ||   C ontoh Program Penggajian Karyawan menggunakan Array ...

Read more »

Membuat Program Menghitung Luas Permukaan Balok Dengan Pascal

<div dir="ltr" style="text-align: left;" trbidi="on"> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> Membuat Program Menghitung Luas Permukaan Balok DenganPascal || Berikut ini adalah script untuk Menghitung Luas Permukaan BalokDengan Pascal disertai dengan pengulangan</div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <br /></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">Uses WinCrt;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">Var panjang,lebar,tinggi,luas:real;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">lagi:char;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">Label atas;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">Begin<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">     atas:<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">     clrscr;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            write('Masukkan Panjang             :');<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            readln(panjang);<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            write('Masukkan Lebar               :');<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            readln(lebar);<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            write('Masukkan Tinggi              :');<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            readln(tinggi);<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            luas:=2*panjang+lebar+2*panjang+tinggi+2*lebar+tinggi;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            writeln('Hasilnya                   :',luas:8:2);<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            readln;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            write('Apakah Anda Ingin Input Lagi [Y/N] ?');readln(lagi);<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            if(lagi='Y')or(lagi='y')then<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            goto atas;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">            readln;<o:p></o:p></span></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><span style="font-family: 'Trebuchet MS', sans-serif;">End.</span><o:p></o:p></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="color: #0070c0;"><br /></span></b></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="font-family: Arial, Helvetica, sans-serif;">Screenshoot :</span></b></div> <div class="separator" style="background-color: white; clear: both; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOqyNxxn7j_iYy_nQuSLh7LkhNzDmeVxwRtVERUuamyoK_guhLHBdPH-0Z4SQdQhrcbY-y53qqTfJJM_M1OF24FmxaA6TT2Y3aoSMGDKAu94QpQuTWdsmX5wvklYjgrzSKTeh_adpdIoc/s1600/2.png" imageanchor="1" style="color: #0060a6; margin-left: 1em; margin-right: 1em; text-decoration: none;"><img alt="Membuat Program Menghitung Luas Permukaan Balok Dengan Pascal" border="0" height="203" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOqyNxxn7j_iYy_nQuSLh7LkhNzDmeVxwRtVERUuamyoK_guhLHBdPH-0Z4SQdQhrcbY-y53qqTfJJM_M1OF24FmxaA6TT2Y3aoSMGDKAu94QpQuTWdsmX5wvklYjgrzSKTeh_adpdIoc/s320/2.png" style="border: 0px solid rgb(204, 204, 204); padding-top: 4px;" title="Membuat Program Menghitung Luas Permukaan Balok Dengan Pascal" width="320" /></a></div> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <b><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></b></div> <br style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;" /> <div class="MsoNormal" style="background-color: white; font-family: 'Segoe UI', Arial; font-size: 16px; line-height: 22.390625px;"> <span style="font-family: Georgia, 'Times New Roman', serif; font-size: medium;">#jika ada pertanyaan mengenai Membuat Program MenghitungLuas Permukaan Balok Dengan Pascal silahkan berkomentar !</span></div> </div>

Membuat Program Menghitung Luas Permukaan Balok DenganPascal || Berikut ini adalah script untuk Menghitung Luas Permukaan BalokDengan Pasc...

Read more »