R2 Blog

Program Iterasi (Tebak Angka)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya</div>
<div style="text-align: justify;">
Hint :  Permainan ini tidak akan asik bila dilakukan sendirian.</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW8akb3GoSnQWghQV7g6YZOlCnUjY1lMAl5i__4fsTl4sUyUOKj05RpON1Mp-rgpTqksGYG8jvbUe_6LXkAmLh1_gIPfQhBaTQAC1o_XEkyQbHid3ATogjh8uVs60fpFtGGotKQpd8MTg/s1600/13.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjW8akb3GoSnQWghQV7g6YZOlCnUjY1lMAl5i__4fsTl4sUyUOKj05RpON1Mp-rgpTqksGYG8jvbUe_6LXkAmLh1_gIPfQhBaTQAC1o_XEkyQbHid3ATogjh8uVs60fpFtGGotKQpd8MTg/s1600/13.jpg" /></a></div>
<br />
<br />
<br />
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a,teb,c,d,rhs:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>Write('Bilangan Rahasia : ');readln(rhs);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>repeat</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>write('masukan Tebakan anda : ');readln(teb);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>if (teb<>rhs) and (teb>rhs) then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Bilangan terlalu besar!')</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> else if (teb<>rhs) and (teb</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('bilangan terlalu kecil');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>until (teb=rhs);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('Tebakan Anda Benar!!!!, selamat!!!!');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
<br />
<br />
<br /></div>

Fungsi: Permainan Tebak angka, masukan angka rahasia dan suruh teman untuk menebaknya Hint : Permainan ini tidak akan asik bila dilakukan sendirian. Screen Shot: uses crt; var a,teb,c,d...

01Mar2014

Program Iterasi (Jumlah Pangkat)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi:  untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya</div>
<div style="text-align: justify;">
Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah…</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkU4lFrMJVF86LobjeGMF5F9An7oVqRboU2DPPoZcBLeg1o4XSqTIJdU2lgjNZ4cpr9hvB7Bm9D0f8hAXFYyRMoaFxcBOsemH5qBfCZbGNSSYra4DGLfJzFTrJbx5RJzYQzaxtH5ijXas/s1600/12.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkU4lFrMJVF86LobjeGMF5F9An7oVqRboU2DPPoZcBLeg1o4XSqTIJdU2lgjNZ4cpr9hvB7Bm9D0f8hAXFYyRMoaFxcBOsemH5qBfCZbGNSSYra4DGLfJzFTrJbx5RJzYQzaxtH5ijXas/s1600/12.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var k,jum:double;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>i,n:longint;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(n);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>jum:=0;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to n do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> k:=sqr(i);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>write(k:0:0);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>if i<>n then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span> write('+');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> <span style="white-space: pre;"> </span>jum:=jum+k;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span> <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('=',jum:0:0);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.<br />
<br /></div>

Fungsi: untuk menghasilkan deret pangkat, misal : 1, 4, 9, 16, 25 dst dan menjumlahkannya Hint : Masukan jumlah deret pangkat yang akan ditampilkan untuk di jumlah… Screen Shot: uses crt; va...

01Mar2014

Program Iterasi (Angka)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja…</div>
<div style="text-align: justify;">
Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar.</div>
<div style="text-align: justify;">
Screen Shot:</div>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrVmL-GLqrOMZgzVugTPr60Pt1zlISUl9Z8Mk09_I9IgY-JHRnxHKDJID7gWwNYHoqyx45U7sM4mYhyh919ryVVgynnVsS2cFwptS0BEi2W0moEFKZaEcMGMnS-CKvD3Gr3jx2x4vm1iM/s1600/11.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrVmL-GLqrOMZgzVugTPr60Pt1zlISUl9Z8Mk09_I9IgY-JHRnxHKDJID7gWwNYHoqyx45U7sM4mYhyh919ryVVgynnVsS2cFwptS0BEi2W0moEFKZaEcMGMnS-CKvD3Gr3jx2x4vm1iM/s1600/11.jpg" /></a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var inp,i,a,t,r:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln(inp);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>t:=inp;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to inp do</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> for a:=1 to inp do</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">    </span>write(a-t);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span> t:=t-1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi: Tak ada fungsi khusus, hanya menampilkan pola-pola angka saja… Hint : Begitu jalan, langsung masukan angka saja, Jangan masukan angka terlalu kecil atau besar. Screen Shot: use...

01Mar2014

Program Array (Fibbonaci Generator)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Kode untuk Menghasilkan deret fibbonaci</div>
<div style="text-align: justify;">
Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya.</div>
<div style="text-align: justify;">
Misal : 1 1 2 3 5 8 13 21 ….dst</div>
Screen Shot:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSEvvC43erkmQg1B8uDU9509Q3QWT7jDUruM_84qMMH0pBOuFlD7pbAHPdlyvQ9rdsvU00H0QQStdo8WoNbVGTQrLy2dhwUBBssenI7kBLepAAk-BE0tShytOTSeaCvtJOPU6jM30ghhg/s1600/10.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSEvvC43erkmQg1B8uDU9509Q3QWT7jDUruM_84qMMH0pBOuFlD7pbAHPdlyvQ9rdsvU00H0QQStdo8WoNbVGTQrLy2dhwUBBssenI7kBLepAAk-BE0tShytOTSeaCvtJOPU6jM30ghhg/s1600/10.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a:array[1..1000] of longint;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>i,k:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Input banyaknya fibbonaci: ');readln(i);</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{fibbonacigenerator}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[1]:=1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>a[2]:=1;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=2 to i do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>a[k+1]:=a[k]+a[k-1];</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
{menulis fibbonaci}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for k:=1 to i do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>write(a[k],' ');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end. </div>

Fungsi: Kode untuk Menghasilkan deret fibbonaci Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya. Misal : 1 1 2 3 5 8 13 21 ….dst Screen Shot: uses crt...

01Mar2014

Program Array (Tabel Ajaib)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama.</div>
<div style="text-align: justify;">
Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan angka-angka saja.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnFZesvA6ZvAkz1lR-O1FFLMIe7GmqpQHYbuiBWjk-fehyphenhyphenwersBcgqp535UoI85VievNqqo2IrG9VURA3eHKjXF7LIRE4YMpHeb5yFmN9wclcVj5QMKX0tPsNj0JUuqLnHap4v6ymLARI/s1600/8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnFZesvA6ZvAkz1lR-O1FFLMIe7GmqpQHYbuiBWjk-fehyphenhyphenwersBcgqp535UoI85VievNqqo2IrG9VURA3eHKjXF7LIRE4YMpHeb5yFmN9wclcVj5QMKX0tPsNj0JUuqLnHap4v6ymLARI/s1600/8.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var a,b,c,d,w,x,y,z,i,j:integer;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>tab:array[1..4,1..4] of integer;</div>
<div style="text-align: justify;">
procedure lukistabel;</div>
<div style="text-align: justify;">
{Prosedur untuk menampilkan tabel}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>var c:string;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>for i:=1 to 4 do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">    </span>for j:=1 to 4 do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span> begin</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">       </span>if (tab[i,j]>9) or ((tab[i,j]<0) and (tab[i,j]>-10))  then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">        </span>  c:='    '</div>
<div style="text-align: justify;">
<span style="white-space: pre;">       </span> else if (tab[i,j]<10) and (tab[i,j]>-1) then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">        </span>  c:='      '</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">       </span> else c:='  ';</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">      </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>if j=1 then</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span>write(tab[i,j],c)</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">     </span>else if j=2 then write(tab[i,j])</div>
<div style="text-align: justify;">
<span style="white-space: pre;">      </span> else write(c,tab[i,j]);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">     </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
{program utama}</div>
<div style="text-align: justify;">
Begin</div>
<div style="text-align: justify;">
{memasukan nilai}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('a = ');readln(a);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('b = ');readln(b);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('c = ');readln(c);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('d = ');readln(d);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('w = ');readln(w);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('x = ');readln(x);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('y = ');readln(y);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('z = ');readln(z);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('memproses.......');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>delay(500);</div>
<div style="text-align: justify;">
{rumusnya ini}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,1]:=a-w;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,2]:=c+w+y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,3]:=b+x-y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[1,4]:=d-x;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,1]:=d+w-z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,2]:=b;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,3]:=c;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[2,4]:=a-w+z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,1]:=c-x+z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,2]:=a;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,3]:=d;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[3,4]:=b+x-z;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,1]:=b+x;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,2]:=d-w-y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,3]:=a-x+y;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>tab[4,4]:=c+w;</div>
<div style="text-align: justify;">
{pemanggilan prosedur lukis tabel}</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>lukistabel;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi : Membuat tabel angka yang apabila nilai tabel dalam satu baris, kolom, dan diagonal di jumlahkan hasilnya akan sama. Hint: jangan terlalu heran, semua sudah ada rumusnya. Tinggal masukan an...

01Mar2014

Program Array (Pendataan Mahasiswa)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya.</div>
<div style="text-align: justify;">
Hint: Intinya adalah membuat array di record.</div>
Screen shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivf6bgarLgJpdcL1Yn_XRbE-OiDi6Gacq23XEgb97tLAtWvugkqqFHXKz_aH7LGXkwxV2-KwreUZYj53OjIly-yq7TnU-mg4kkqQ5kh8U3PZ-1Mug7F_PJXisUvipfY9f6G3i0BuF-88U/s1600/7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivf6bgarLgJpdcL1Yn_XRbE-OiDi6Gacq23XEgb97tLAtWvugkqqFHXKz_aH7LGXkwxV2-KwreUZYj53OjIly-yq7TnU-mg4kkqQ5kh8U3PZ-1Mug7F_PJXisUvipfY9f6G3i0BuF-88U/s1600/7.jpg" /></a></div>
<div style="text-align: justify;">
program mhsw;</div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
type mahasiswa=record</div>
<div style="text-align: justify;">
               nama,nim,kelas:string;</div>
<div style="text-align: justify;">
               end;</div>
<div style="text-align: justify;">
var m:array[1..41] of mahasiswa;</div>
<div style="text-align: justify;">
       j,i:integer;</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>write('Jumlah mahasiswa yang mendaftar : ');readln(j);</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Mahasiswa ',i,':');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Nama       : ');readln(m[i].nama);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Nim        : ');readln(m[i].nim);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> write('Kelas      : ');readln(m[i].kelas);</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>writeln;</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">   </span>writeln;</div>
<div style="text-align: justify;">
 <span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>clrscr;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('DATA MAHASISWA KOMPUTOK');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>writeln('==================================');</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>for i:=1 to j do</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>begin</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span> <span style="white-space: pre;"> </span>writeln('Mahasiswa ',i,':');</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Nama       : ',m[i].nama);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Nim        : ',m[i].nim);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln('Kelas      : ',m[i].kelas);</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">   </span> writeln;</div>
<div style="text-align: justify;">
<span style="white-space: pre;">  </span>end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>readln;</div>
end.</div>

Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya. Hint: Intinya adalah membuat array di record. Screen shot : program mhsw; uses crt; type mahasiswa=record ...

01Mar2014

Program Array (Penjumlah Matrix)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan</div>
<div style="text-align: justify;">
Hint: Masukan nilai matriks di tiap-tiap baris dan kolom.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGmsea_XJ1BpS41osl2w9E2J8RzcF209d60wyZUva6tnZLDsIPvpXeNFxFzf5pzD0mAHfL9NbfU1Rp0l16fEJzHFnLI_q7cWtxY7PBDbe7YQ31eO8f5BWrFj2AXPdSf4P1qywx2aIcc7k/s1600/6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGmsea_XJ1BpS41osl2w9E2J8RzcF209d60wyZUva6tnZLDsIPvpXeNFxFzf5pzD0mAHfL9NbfU1Rp0l16fEJzHFnLI_q7cWtxY7PBDbe7YQ31eO8f5BWrFj2AXPdSf4P1qywx2aIcc7k/s1600/6.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
 var m1,m2,mp:array[1..10,1..10] of integer;</div>
<div style="text-align: justify;">
       i,j,k,l:integer;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
{Menginput nilai matriks}</div>
<div style="text-align: justify;">
  writeln('Matriks ke 1');</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
    for j:=1 to 3 do</div>
<div style="text-align: justify;">
       begin</div>
<div style="text-align: justify;">
          write('m1[',i,',',j,'] : ');readln(m1[i,j]);</div>
<div style="text-align: justify;">
       end;</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
  writeln('Matriks ke 2');</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
       for j:=1 to 3 do</div>
<div style="text-align: justify;">
         begin</div>
<div style="text-align: justify;">
           write('m2[',i,',',j,'] : ');readln(m2[i,j]);</div>
<div style="text-align: justify;">
         end;</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
{jumlahkan}</div>
<div style="text-align: justify;">
 begin</div>
<div style="text-align: justify;">
  for i:=1 to 3 do</div>
<div style="text-align: justify;">
    for j:=1 to 3 do</div>
<div style="text-align: justify;">
       begin</div>
<div style="text-align: justify;">
          mp[i,j]:=m1[i,j]+m2[i,j];</div>
<div style="text-align: justify;">
       end;</div>
<div style="text-align: justify;">
 {lukis hasil penjumlahan}</div>
<div style="text-align: justify;">
 writeln('Hasil Penambahan = ');</div>
<div style="text-align: justify;">
 writeln;</div>
<div style="text-align: justify;">
    for i:=1 to 3 do</div>
<div style="text-align: justify;">
      begin</div>
<div style="text-align: justify;">
       writeln;</div>
<div style="text-align: justify;">
       for j:=1 to 3 do</div>
<div style="text-align: justify;">
         write(mp[i,j],' ');</div>
<div style="text-align: justify;">
      end;</div>
<div style="text-align: justify;">
readln;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
</div>

Fungsi : Menjumlahkan dua matriks 3x3 yang diinputkan Hint: Masukan nilai matriks di tiap-tiap baris dan kolom. Screen Shot : uses crt; var m1,m2,mp:array of integer; i,j,k,l:integer;...

01Mar2014

R2 Blog

Labels

Comment

Technology

Latest Post

Program Iterasi (Tebak Angka)

Program Iterasi (Jumlah Pangkat)

Program Iterasi (Angka)

Program Array (Fibbonaci Generator)

Program Array (Tabel Ajaib)

Program Array (Pendataan Mahasiswa)

Program Array (Penjumlah Matrix)

Author Name

Contact Form