Only Great Share !!

Program Pascal - Penjumlahan Matrik, Pengurangan Matrik, dan Perkalian Matrik (Array dan Record)

<br />
<br />
<br />
<div class="MsoListParagraph" style="line-height: 150%; margin-left: 70.9pt; mso-add-space: auto; mso-list: l0 level3 lfo1; text-indent: -36.0pt;">
<b><span style="font-size: 7pt; font-weight: normal; line-height: normal;">  </span></b><b>Source Code Program<o:p></o:p></b></div>
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoNormalTable" style="border-collapse: collapse; border: none; margin-left: 2.0cm; mso-border-alt: solid windowtext .5pt; mso-border-insideh: .5pt solid windowtext; mso-border-insidev: .5pt solid windowtext; 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: 421.9pt;" valign="top" width="563">
  <div style="margin-bottom: .0001pt; margin: 0cm;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">program MATRIK;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">uses crt;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">type data =
  array[1..100,1..100] of integer;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">var
  matrikI,matrikII : data;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
    baris,kolom,pil : integer;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<br /></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">procedure
  isimatrik;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">var
   i,j : integer;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('MATRIK I');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     write('Masukan banyak baris = ');readln(baris);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     write('Masukan banyak kolom = ');readln(kolom);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             gotoxy(j*10,i*5);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             readln(matrikI[i,j]);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     clrscr;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('MATRIK II');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     write('Masukan banyak baris = ');readln(baris);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     write('Masukan banyak kolom = ');readln(kolom);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             gotoxy(j*10,i*5);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             readln(matrikII[i,j]);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<br /></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">procedure
  jumlahmatrik(m1,m2 : data);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">var hasil :
  data;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
    i,j   : integer;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
               
   hasil[i,j]:=m1[i,j]+m2[i,j];<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     clrscr;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('Hasil Penjumlahan MATRIK');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             gotoxy(j*10,i*5);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             write(hasil[i,j]);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     readln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<br /></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">procedure
  kurangmatrik(m1,m2 : data);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">var hasil :
  data;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
    i,j   : integer;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
               
   hasil[i,j]:=m1[i,j]-m2[i,j];<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     clrscr;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('Hasil Penngurangan MATRIK');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             gotoxy(j*10,i*5);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             write(hasil[i,j]);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     readln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<br /></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">procedure
  kalimatrik(m1,m2 : data);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">var hasil :
  data;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
    i,j,z   : integer;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
    begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
                  hasil[i,j]:=0;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
                  for z:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
                 
  hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     clrscr;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('Hasil Perkalian MATRIK');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     for i:=1 to baris do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         for j:=1 to kolom do<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             gotoxy(j*10,i*5);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             write(hasil[i,j]);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
             end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     readln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<br /></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">BEGIN<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
   repeat<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     Clrscr;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('--->>> MENU UTAMA <<<---');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('[1] Penjumlahan Matrik');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('[2] Pengurangan Matrik');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('[3] Perkalian Matrik');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln('[4] Exit Program');<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     writeln;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     write('Pilihan = ');readln(pil);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     clrscr;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     case pil of<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     1 : begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
              isimatrik;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
              jumlahmatrik(matrikI,matrikII);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     2 : begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
              isimatrik;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
              kurangmatrik(matrikI,matrikII);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     3 : begin<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
              isimatrik;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
              kalimatrik(matrikI,matrikII);<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
         end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     4 : ;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
     end;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;"> 
   until pil=4;<o:p></o:p></span></div>
<div style="margin: 0cm 0cm 0.0001pt;">
<span style="font-family: 'Lucida Console'; font-size: 9pt;">end.<o:p></o:p></span></div>
<div class="MsoListParagraph" style="line-height: 150%; margin-bottom: .0001pt; margin: 0cm; mso-add-space: auto;">
<br /></div>
</td>
 </tr>
</tbody></table>

Pascal Program Pascal - Penjumlahan Matrik, Pengurangan Matrik, dan Perkalian Matrik (Array dan Record)

Source Code Program program MATRIK; uses crt; type data = array[1..100,1..100] of integer; var matrikI,matrikII...

Baca selengkapnya »

Program Pascal - Menginputkan dan menampilkan Bilangan Bulat dalam Bentuk Matrik (Array)

7:38 AM Unknown 0

<br />
<br />
<br />
<br />
<div class="MsoListParagraph" style="margin-left: 18.0pt; mso-add-space: auto; mso-list: l0 level2 lfo1; text-indent: -18.0pt;">
<b><span lang="EN-US" style="line-height: 115%; mso-bidi-font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"><span style="font-size: 7pt; font-weight: normal; line-height: normal;">  </span></span></b><b><span lang="EN-US" style="line-height: 115%; mso-bidi-font-size: 12.0pt;">Source </span></b><b><span style="line-height: 115%; mso-ansi-language: IN; mso-bidi-font-size: 12.0pt;">C</span></b><b><span lang="EN-US" style="line-height: 115%; mso-bidi-font-size: 12.0pt;">ode<o:p></o:p></span></b></div>
<br />
<div style="border: solid windowtext 1.0pt; margin-left: 22.5pt; margin-right: 42.55pt; mso-border-alt: solid windowtext .5pt; mso-element: para-border-div; padding: 1.0pt 0cm 8.0pt 0cm;">

<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">uses crt;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">var x,y,z :
array[1 .. 100,1 .. 100] of integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    a,b,c : integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<br /></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">procedure
input;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">var i, j :
integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">clrscr;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> writeln('Program matriks' );<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> writeln(' ');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> write('Jumlah baris :  '); readln(a);<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> write('Jumlah kolom :  '); readln(b);<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  for i:=1 to a do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  for j:=1 to b do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">   begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    write ( 'Matriks 1 [ ' , i , ' , ' , j , '
] : ' ) ;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    readln (x [i] [j]);<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">   end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> for i:=1 to b do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> for j:=1 to a do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">   write ( 'Matriks 2 [ ' , i , ' , ' , j , ' ]
: ' ) ;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">   readln (y [i] [j]);<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<br /></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">procedure
outputmatriks1;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">var
i,j:byte;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  write('Matriks 1');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  for i:=1 to a do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">   begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    for j:=1 to b do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">      begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">        write(' ');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">        write (x [i] [j]);<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">        write(' ');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">      end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">     writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<br /></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">procedure
outputmatriks2;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">var
i,j:byte;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  write('Matriks 2');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">  for i:=1 to a do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">      for j:=1 to b do<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">        begin<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">          write(' ');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">          write (y[i] [j]);<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">          write(' ');<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">        end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">       writeln;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">    end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">end;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<br /></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">BEGIN<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">clrscr;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> input;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> outputmatriks1;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;"> outputmatriks2;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">readkey;<o:p></o:p></span></div>
<div class="MsoNormal" style="border: none; line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 1.0pt 0cm 8.0pt 0cm; padding: 0cm; tab-stops: 22.5pt;">
<span style="font-family: "Lucida Console"; font-size: 9.0pt; line-height: 150%; mso-ansi-language: IN;">end.<o:p></o:p></span></div>
</div>

Pascal Program Pascal - Menginputkan dan menampilkan Bilangan Bulat dalam Bentuk Matrik (Array)

Source C ode uses crt; var x,y,z : array[1 .. 100,1 .. 100] of integer; a,b,c : integer; procedure input; var i, ...

Baca selengkapnya »

Program Pascal - Data Nilai Mahasiswa, Konversi Nilai Angka ke Nilai Huruf

7:16 AM Unknown 0

Assalamualaikum wr.wb.<br />
<br />
Pada kesempatan kali ini saya ingin memposting suatu artikel temtang program pascal yang berjudul "Program Data Nilai Mhasiswa" hanya untuk memenuhi tugas praktikum saya :D<br />
<br />
Okke dengan berbagai usaha dan terburu-burunya saya di pagi hari yang super dingin (brrrr) dalam pengerjaan program ini di karenakan kemarin lupa, dan tadi malam ketiduran -_- trus baru sempat pagi ini dah lalu nanti siang di kumpul.... Ahahaa... tapi sebagai seorang mahasiswa tidak ada kata menyerah..wkkwkwkw... Fighting Spirit !!! seperti kata Mas Tukul Arwana :D...<br />
Sungguh rajin ya saya ini.. :D  Jangan di tiru ya kawan..!!<br />
<br />
dan Alakadarnya seperti dibawah inilah hasil Codingan program yang berhasil saya buat...<br />
Silahkan di Simak kawan<br />
<br />
<br />
<span style="font-size: large;"><b>Source Code :</b></span><br />
<br />
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">program
Data_Mahasiswa;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">type
mhs = record<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">         nm,nim:string[11];<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">         Nk : integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">         Nh : String;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">var
dtmhs :array[1..50] of mhs;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    n,i,b,pil: integer;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">procedure
input;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    writeln('Input Data Mahasiswa');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        write('Nama   : ');readln(dtmhs[i].nm);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        write('NIM    : ');readln(dtmhs[i].nim);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        write('Nilai  : ');readln(dtmhs[i].Nk);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        if dtmhs[i].Nk>=85 then
dtmhs[i].Nh:='A'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else if dtmhs[i].Nk>=75 then
dtmhs[i].Nh:='B+'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else if dtmhs[i].Nk>=65 then
dtmhs[i].Nh:='B'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else if dtmhs[i].Nk>=55 then
dtmhs[i].Nh:='C+'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else if dtmhs[i].Nk>=45 then
dtmhs[i].Nh:='C'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else if dtmhs[i].Nk>=35 then
dtmhs[i].Nh:='D+'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else if dtmhs[i].Nk>=25 then
dtmhs[i].Nh:='D'<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">        else dtmhs[i].Nh:='E';</span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">procedure
tampil;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">   writeln('| No |  Nama Mahasiswa  |   
NIM    |   Nilai Angka 
| Nilai Huruf |');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">     gotoxy(3,i+4); writeln(i);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">     gotoxy(9,i+4); writeln(dtmhs[i].nm);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">     gotoxy(27,i+4);writeln(dtmhs[i].nim);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">     gotoxy(45,i+4);writeln(dtmhs[i].Nk);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">     gotoxy(61,i+4);writeln(dtmhs[i].Nh);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";"> repeat<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    writeln(' Menu Utama ');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    writeln('1 Input Data Mahasiswa');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    writeln('2 Tampilkan Data');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    writeln('3 Exit Program');<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    write('Pilihan : ');readln(pil);<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<br /></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    case pil of<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    1 : input;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    2 : tampil;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";">    3 : ;<o:p></o:p></span></div>
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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: 18.0pt; margin-right: 0cm; margin-top: 0cm;">
<span style="font-family: "Lucida Console"; mso-bidi-font-family: "Times New Roman";"> until pil=3;<o:p></o:p></span></div>
<br />
<div class="MsoNormal" style="line-height: 150%; margin-bottom: .0001pt; margin-bottom: 0cm; margin-left: 18.0pt; 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>
<br />
<b><span style="font-size: large;">Screen Shoot Proogram:</span></b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvCg6Ef3PXEpuowS3HmgV420W9f1ciFXrKQQMBXl113ntqj453wGKzE2jMnahnFojd2rbFaTaOS85gDuJU4qApOU9vsF8sfm7RurGAIC7FEQUb5beWaqcGgpzRUCWloHgePlLEDYWqToY6/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="196" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvCg6Ef3PXEpuowS3HmgV420W9f1ciFXrKQQMBXl113ntqj453wGKzE2jMnahnFojd2rbFaTaOS85gDuJU4qApOU9vsF8sfm7RurGAIC7FEQUb5beWaqcGgpzRUCWloHgePlLEDYWqToY6/s1600/1.JPG" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
Gambar 1 : Tampilan Program Saat pertama di jalankan</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYst11zE5MnoyLsi6WSxzrREJUwBRlX3655w_p1aQWsirkRtEVda1K12yVqx0js4yRmLPPhyN17NDc0upJthNqJ7iYJaZDGbxG9NxB65vK0FShLQ3wOcqd-ZyEtWlVZtPLjDbAQ-BNGoim/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="196" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYst11zE5MnoyLsi6WSxzrREJUwBRlX3655w_p1aQWsirkRtEVda1K12yVqx0js4yRmLPPhyN17NDc0upJthNqJ7iYJaZDGbxG9NxB65vK0FShLQ3wOcqd-ZyEtWlVZtPLjDbAQ-BNGoim/s1600/2.JPG" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
Gambar 2 : Tampilan Setelah memilih menu pilihan 1 Input Data Mahasiswa</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKfyLMhvmXSxIWYVe0_TFbx1tJnH5DPblUr5GAOnfSGRosuCq_lBcTZ0f6rN_NVw4MmyzeNz_JWlkCbBSYIzLbT9srBui5UPTyscvaL4eAEHpMZ97Nm2B2KJd0ZnxO7PJ0sbmfM5xVxlVc/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="137" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKfyLMhvmXSxIWYVe0_TFbx1tJnH5DPblUr5GAOnfSGRosuCq_lBcTZ0f6rN_NVw4MmyzeNz_JWlkCbBSYIzLbT9srBui5UPTyscvaL4eAEHpMZ97Nm2B2KJd0ZnxO7PJ0sbmfM5xVxlVc/s1600/3.JPG" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
Gambar 3 : Tampilan Setelah Penginputan Beberapa Data</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhXEx7EEOfw8-gVemJse2T1BT8_2GD8n-Y3hlLT6NPfh2FTuAyNOyyqtOdRmdaHMaGuRzqXHLbtm2Gd4iZkuEPxQ0_ymsDhhFh9zB9qjOXO9jwtfY0fy_CDC0szCnJ-jSJteb4gwghUgHn/s1600/4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="137" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhXEx7EEOfw8-gVemJse2T1BT8_2GD8n-Y3hlLT6NPfh2FTuAyNOyyqtOdRmdaHMaGuRzqXHLbtm2Gd4iZkuEPxQ0_ymsDhhFh9zB9qjOXO9jwtfY0fy_CDC0szCnJ-jSJteb4gwghUgHn/s1600/4.JPG" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
Gambar 4 : Tampilan setelah memilih menu 2 Tampilkan Data</div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Okke sekian arktikel mengenai program pascal pagi pagi hari ini.. mohon maaf bila banyak kata2 yang ngawur dalam penulisan artikel ini, dan bila ada kritik dan saran nya demi kemajuan program ini kedepannya dapat teman2 sampaikan pada komentar dibawah ini ;D</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<br />

Pascal Program Pascal - Data Nilai Mahasiswa, Konversi Nilai Angka ke Nilai Huruf

Assalamualaikum wr.wb. Pada kesempatan kali ini saya ingin memposting suatu artikel temtang program pascal yang berjudul "Program Dat...

Baca selengkapnya »

Bahasa C - Program Pengimplementasian Pencarian dengan Binery

11:58 PM Unknown 0

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgjDd6OXDi94ZX-BM9OnD858wNEzXK83wMJXydowYXW_Kuzd-n5AsnVB7WmUeRCVF70mugVuFWwt2J6b6w4TFV7WJxN72UAQQKvg1HiTSiSCyu4sCbpHeEp9mvo8LP8PMfDlfsp3vTW0Tes/s1600/Bahasa-C.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="256" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgjDd6OXDi94ZX-BM9OnD858wNEzXK83wMJXydowYXW_Kuzd-n5AsnVB7WmUeRCVF70mugVuFWwt2J6b6w4TFV7WJxN72UAQQKvg1HiTSiSCyu4sCbpHeEp9mvo8LP8PMfDlfsp3vTW0Tes/s1600/Bahasa-C.jpg" width="320" /></a></div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Source Code :<br />
<br />
<br />
<br />
<br />
#include <stdio.h>3<br />
<br />
int main()<br />
{<br />
   int a, b, Naw, Nak, Nte, cari, array[50];<br />
   printf("\t <<< Program Pengimplementasian Pencarian dengan Binery >>> \n\n");<br />
   printf("Inputkan jumlah data : ");<br />
   scanf("%d",&b);<br />
<br />
   printf("\n\nInputkan angka ke dalam data : \n", b);<br />
<br />
   for (a = 0; a < b; a++)<br />
      scanf("%d",&array[a]);<br />
<br />
   printf("\n\nInputkan angka yang ingin ditemukan : ");<br />
   scanf("%d", &cari);<br />
<br />
   Naw = 0;<br />
   Nak = b - 1;<br />
   Nte = (Naw+Nak)/2;<br />
<br />
   while (Naw <= Nak) {<br />
      if (array[Nte] < cari)<br />
         Naw = Nte + 1;<br />
      else if (array[Nte] == cari)<br />
      {<br />
         printf("\n\nAngka %d ditemukan di lokasi data ke %d.\n\n", cari, Nte+1);<br />
         break;<br />
      }<br />
      else<br />
         Nak = Nte - 1;<br />
<br />
      Nte = (Naw + Nak)/2;<br />
   }<br />
   if (Naw > Nak)<br />
      printf("\n\nAngka %d tidak ditemukan di data yang ada.\n\n", cari);<br />
<br />
   return 0;<br />
}<br />
<div>
<br /></div>

Bahasa C Bahasa C - Program Pengimplementasian Pencarian dengan Binery

Source Code : #include <stdio.h>3 int main() { int a, b, Naw, Nak, Nte, cari, array[50]; printf(...

Baca selengkapnya »

Bahasa C - Program Pengimplementasian Pencarian dengan Linier (Bahasa C)

8:49 PM Unknown 0

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgumPc2a3_dNSkEWvG0OB2N6mcPyfRYMAOHHYFA4oACX7AQQ6Ll_9SlAWce8doo5jii0LH97UzefqEbmHkieQYa8AHFMYEG128QPzZCIvWU_GkpdctSFSOW7MgQAdY1vxMpVXrNeEpOIz73/s1600/Bahasa-C.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgumPc2a3_dNSkEWvG0OB2N6mcPyfRYMAOHHYFA4oACX7AQQ6Ll_9SlAWce8doo5jii0LH97UzefqEbmHkieQYa8AHFMYEG128QPzZCIvWU_GkpdctSFSOW7MgQAdY1vxMpVXrNeEpOIz73/s1600/Bahasa-C.jpg" /></a></div>
<br />
<br />
Denger judul nya aja sudah buat puyeng yaa.. apa lagi kalau langsung behadapan dengan codingan program nya :v.. semaput dah wkwkwk...<br />
Kurang lebih seperti itulah gambaran ketika saya mendapatkan tugas untuk membuat program ini dan waktu yang di berikan pun dirasa tidak begitu banyak bagi seorang pemula seperti saya ini, yang bisa terbilang baru kemarin kenal ama yang namanya si Bahasa C ini...<br />
<br />
Perlu banyak waktu untuk mempelajari konsep logika untuk pembuatannya...<br />
Namuuunn...... entah mngapa,,, seperti yang guru saya ajarkan dulu "Disaat terdesak hal yang tidak mungkin pun menjadi mungkin" maka....<br />
<br />
Simsalabimmm!!!!!...<br />
<br />
Alhamdulillah jadi juga dah programnya... :D  Ahahahaha..<br />
<br />
<br />
<br />
Source Code nya seperti ini :<br />
<br />
<br />
<br />
<br />
<br />
#include <stdio.h><br />
<br />
int main()<br />
{<br />
   int array[30], cari, a, b;<br />
   printf("\t <<< Program Pengimplementasian Pencarian dengan Linier >>> \n\n");<br />
<br />
   printf("Inputkan jumlah data dalam element array : ");<br />
   scanf("%d",&b);<br />
<br />
   printf("\n\nInputkan angka ke dalam data\n", b);<br />
<br />
   for (a = 0; a < b; a++)<br />
      scanf("%d", &array[a]);<br />
<br />
   printf("\n\nMasukkan angka yang ingin ditemukan\n");<br />
   scanf("%d", &cari);<br />
<br />
   for (a = 0; a < b; a++)<br />
   {<br />
      if (array[a] == cari)<br />
      {<br />
         printf("\n\nAngka %d ditemukan dilokasi data %d.\n\n", cari, a+1);<br />
         break;<br />
      }<br />
   }<br />
   if (a == b)<br />
      printf("\n\nAngka %d tidak ditemukan di data yang ada.\n\n", cari);<br />
   return 0;<br />
}<br />
<div>
<br />
<br />
<br />
<br />
<br />
Okke... semoga dapat membantu teman-teman yang sedang membutuhkannya buat belajar dan lan sebagainya... Terimakasih sudah berkunjung :)</div>

Bahasa C Bahasa C - Program Pengimplementasian Pencarian dengan Linier (Bahasa C)

Denger judul nya aja sudah buat puyeng yaa.. apa lagi kalau langsung behadapan dengan codingan program nya :v.. semaput dah wkwkwk... K...

Baca selengkapnya »

FREE Download Microsoft Office Professional Plus 2013 for 32 bit

5:48 AM Unknown 0

<h2>
Assalamualaikum wr.wb.</h2>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivvOfjvC_wlD3KCLNJHWvZJsiqy0goLJDUZMjkr5NI3XuD0S0sdYAMlKifMSaGu_X4uIhJnfYsC-8OLhNJiYcecPK9DQWmNomSDeaRrqAc2TXJXzKssFLOekUJihjqv03i1heIBhV8iPXQ/s1600/of13.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="249" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivvOfjvC_wlD3KCLNJHWvZJsiqy0goLJDUZMjkr5NI3XuD0S0sdYAMlKifMSaGu_X4uIhJnfYsC-8OLhNJiYcecPK9DQWmNomSDeaRrqAc2TXJXzKssFLOekUJihjqv03i1heIBhV8iPXQ/s1600/of13.png" width="320" /></a></div>
<br />
<br />
<span style="font-family: Trebuchet MS, sans-serif;">Pada Kesempatan kali ini sya ingin berbagi program Ms.Office Proffesional Plus 2013 32bit...</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">okke langsung saja silahkan sedot file ya..:D</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="color: blue; font-family: Verdana, sans-serif; font-size: large;"><a href="https://www.dropbox.com/s/zmxw4tki3aenytf/Ms.Office13_Pro_Plus_32bit.rar?dl=0">Download Ms.Office 2013 Professional Plus 32bit</a></span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<br />
<div>
</div>
<br />

Software FREE Download Microsoft Office Professional Plus 2013 for 32 bit

Assalamualaikum wr.wb. Pada Kesempatan kali ini sya ingin berbagi program Ms.Office Proffesional Plus 2013 32bit... okke langsung saj...

Baca selengkapnya »

KMSpico v4.2 (Aktivasi Ms.Office 2013 dan Windows 8)

5:43 AM Unknown 0

KMSpice merupakan salah satu program aktivasi automatis yang dapat dgunakan untuk mengaktifkan program Ms.Office 2013 dan Windows 8 dengan mudah<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6P6sSOYhj5EJPUr6olCfPxvwOVzy6-LXaaN6z9d9sVrI7PCPAaj27AZflAOMHQ2teJYNo_o9YlVmImTwjTfA6ZPQNZP2ABJZF2Rgg5-MpihIXZjT6leEJITvXzwuNM2EvyYaVVBmh6ZEy/s1600/Windowsactivator.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6P6sSOYhj5EJPUr6olCfPxvwOVzy6-LXaaN6z9d9sVrI7PCPAaj27AZflAOMHQ2teJYNo_o9YlVmImTwjTfA6ZPQNZP2ABJZF2Rgg5-MpihIXZjT6leEJITvXzwuNM2EvyYaVVBmh6ZEy/s1600/Windowsactivator.png" width="400" /></a></div>
<br />
Untuk mengaktivasi program Ms.office 2013 atau windows 8 setelah anda menginstalnya lalukan proses aktivasi nya dengan KMSpico....<br />
<br />
Cara penggunaaannya:<br />
1. Instal KMSpico v4.2<br />
2. Jalankan Programnya<br />
3. Tunggu Saja Prosesnya (Prosesnya memang tidak tampil di layar dekstop anda namun akan terdengar beberapa suara yang menandakan proses aktivasi sedang berlangsung)<br />
4. Bila terdengar kata "Aktivation Complite" it berarti proses aktivasi nya telah selesai.<br />
5. Silahkan Cek program yang telah anda aktivasi tersebut..<br />
<br />
<br />
    Cek aktivasi Ms.Office 2013 : Buka salah satu program ms.office (contoh word) --> pilih FILE<br />
                                                 --> Account<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfBZ1KicLl7lGVVywRSMIBvdVhcNwesXh_18qymA8qgAIUf-w-enxsSwHPxO7WPgbf4nuSqKQmnL762lv4eysctGTMBXbfJs2pMTyLjhY6f-tbcOKwQy5ZSPo9O3Ug5gFG2M8iQ9qNnKs5/s1600/ms.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfBZ1KicLl7lGVVywRSMIBvdVhcNwesXh_18qymA8qgAIUf-w-enxsSwHPxO7WPgbf4nuSqKQmnL762lv4eysctGTMBXbfJs2pMTyLjhY6f-tbcOKwQy5ZSPo9O3Ug5gFG2M8iQ9qNnKs5/s1600/ms.JPG" /></a></div>
          <br />
<br />
      Cek Aktivasi Windows 8 : Tekan logo windows + i    --> lalu pilih PC INFO<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirwShZMMIIKWY1LiJTb2ElOudYjaCDbYF2WJvpZtHT1kKyuxENG8jjkMJJ68_-4EIllwLHycaMZgkNDoWLhlvQiNR4LRgv7k1a6xwxpKAMt7HzW7eDPExi8ABI5_MMEnPImmDtkVhWreMU/s1600/wn.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="53" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirwShZMMIIKWY1LiJTb2ElOudYjaCDbYF2WJvpZtHT1kKyuxENG8jjkMJJ68_-4EIllwLHycaMZgkNDoWLhlvQiNR4LRgv7k1a6xwxpKAMt7HzW7eDPExi8ABI5_MMEnPImmDtkVhWreMU/s1600/wn.JPG" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Silahkan Download File KMSpico nya di bawah ini:</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<a href="https://www.dropbox.com/s/aftm3wob5a5r09o/KMSpico%20v4.2.rar?dl=0"><span style="color: blue; font-family: Verdana, sans-serif; font-size: large;">Download KMSpico v4.2</span></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>

Software KMSpico v4.2 (Aktivasi Ms.Office 2013 dan Windows 8)

KMSpice merupakan salah satu program aktivasi automatis yang dapat dgunakan untuk mengaktifkan program Ms.Office 2013 dan Windows 8 dengan m...

Baca selengkapnya »

Only Great Share !!

Program Pascal - Penjumlahan Matrik, Pengurangan Matrik, dan Perkalian Matrik (Array dan Record)

Program Pascal - Menginputkan dan menampilkan Bilangan Bulat dalam Bentuk Matrik (Array)

Program Pascal - Data Nilai Mahasiswa, Konversi Nilai Angka ke Nilai Huruf

Bahasa C - Program Pengimplementasian Pencarian dengan Binery

Bahasa C - Program Pengimplementasian Pencarian dengan Linier (Bahasa C)

FREE Download Microsoft Office Professional Plus 2013 for 32 bit

KMSpico v4.2 (Aktivasi Ms.Office 2013 dan Windows 8)

Popular posts

Daftar Blog Temen :

Blog Archive