R2 Blog

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

Program Array (Mencari angka kelipatan 3)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan.</div>
<div style="text-align: justify;">
Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDe6woZ2k6mQst5jWxyXABLGuYy4j4E6toYM0L9hBCAw20MTMLbjuwxBzwAThsZOnfKHOTp6z8T2QK0oFxolYkBGUagccvO4Mi_NL3KVfyTTvY-alIzwqVr81GFb8S_tzyPIRG9WJmkfs/s1600/5.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDe6woZ2k6mQst5jWxyXABLGuYy4j4E6toYM0L9hBCAw20MTMLbjuwxBzwAThsZOnfKHOTp6z8T2QK0oFxolYkBGUagccvO4Mi_NL3KVfyTTvY-alIzwqVr81GFb8S_tzyPIRG9WJmkfs/s1600/5.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
 var a,b:array[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;">
       {memasukan angka}</div>
<div style="text-align: justify;">
   j:=1;</div>
<div style="text-align: justify;">
   repeat</div>
<div style="text-align: justify;">
     write('angka ke-',j,': ');readln(a[j]);</div>
<div style="text-align: justify;">
      j:=j+1;</div>
<div style="text-align: justify;">
   until a[j-1]=-1;</div>
<div style="text-align: justify;">
   {menentukan mana yang kelipatan 3}</div>
<div style="text-align: justify;">
   for k:=1 to j do</div>
<div style="text-align: justify;">
     begin</div>
<div style="text-align: justify;">
        if a[k] mod 3=0 then</div>
<div style="text-align: justify;">
           b[k]:=a[k];</div>
<div style="text-align: justify;">
      end;</div>
<div style="text-align: justify;">
<span style="white-space: pre;"> </span>{Menampilkan mana yang kelipatan tiga}</div>
<div style="text-align: justify;">
  write('angka kelipatan 3 adalah : ');</div>
<div style="text-align: justify;">
  for i:=1 to (j-1) do</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       if b[i]<>0 then</div>
<div style="text-align: justify;">
         write(b[i],', ');</div>
<div style="text-align: justify;">
     end;</div>
<div style="text-align: justify;">
  readln;</div>
end.</div>

Fungsi :Mencari angka kelipatan 3 dari sekumpulan angka yang diinputkan. Hint: Masukan angka dan masukan -1 untuk berhenti, otomatis hasil akan ditampilkan. Screen Shot : uses crt; var a,b:arr...

01Mar2014

Program Penjumlah Pecahan

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menjumlahkan 2 buah pecahan.</div>
<div style="text-align: justify;">
Hint:  Tinggal masukan saja penyebut dan pembilang.</div>
Screenshot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0dHlJxnVwlJjPvPFqz1zl8aegNpk9ztJPAzf2vcsBlIkiNUbnbD4p9lIDhR53YbjT51nkLm58bgtl852QNIWUkSHVMcucJ3s0vXRyMmTzzX1ielsB3nMGVi-wtyw8MBPhohslQpmTRO4/s1600/4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0dHlJxnVwlJjPvPFqz1zl8aegNpk9ztJPAzf2vcsBlIkiNUbnbD4p9lIDhR53YbjT51nkLm58bgtl852QNIWUkSHVMcucJ3s0vXRyMmTzzX1ielsB3nMGVi-wtyw8MBPhohslQpmTRO4/s1600/4.jpg" /></a></div>
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var pemi,pemII,penyi,penyII:integer;</div>
<div style="text-align: justify;">
      j,k:integer;</div>
<div style="text-align: justify;">
function pemb(a,c:integer):integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       j:=penyii;</div>
<div style="text-align: justify;">
       k:=penyi;</div>
<div style="text-align: justify;">
       pemb:=a*j+k*c;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
function peny(b,d:integer):integer;</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
     peny:=b*d;</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
    writeln('Pecahan 1 ');</div>
<div style="text-align: justify;">
    write('Pembilang i :');readln(pemi);</div>
<div style="text-align: justify;">
    write('Penyebut i :');readln(penyI);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    write('Pecahan 2 ');</div>
<div style="text-align: justify;">
    write('Pembilang ii :');readln(pemII);</div>
<div style="text-align: justify;">
    write('Penyebut II: ');readln(penyII);</div>
<div style="text-align: justify;">
    writeln;</div>
<div style="text-align: justify;">
    writeln('maka hasil dari 
pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah 
',pemb(pemi,pemii),'/',peny(penyi,penyii));</div>
<div style="text-align: justify;">
readln;</div>
end.</div>

Fungsi : Menjumlahkan 2 buah pecahan. Hint: Tinggal masukan saja penyebut dan pembilang. Screenshot : uses crt; var pemi,pemII,penyi,penyII:integer; j,k:integer; function pemb(a,c:inte...

01Mar2014

Program Menghitung Waktu Gerhana

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada.</div>
<div style="text-align: justify;">
Hint: Sebenarnya intinya hanya 
membuat prosedur yang menampilkan jumlah hari dalam bulan 
tertentu..waktu gerhana ini sebagai tambahan saja.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAB5A3oxImjGx0J6x0VYf5FUpZsPxNuIXIJ4oXXJH3oDgKuyQFZVBuy7lKlWMHkvEvWeyT-U0_T_oqFW9UdurwwVoRT9zEJ54XZ60Vpfk_ln23eNcmXCqJFdvjInSCUbwNnfGpiunw0I4/s1600/3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAB5A3oxImjGx0J6x0VYf5FUpZsPxNuIXIJ4oXXJH3oDgKuyQFZVBuy7lKlWMHkvEvWeyT-U0_T_oqFW9UdurwwVoRT9zEJ54XZ60Vpfk_ln23eNcmXCqJFdvjInSCUbwNnfGpiunw0I4/s1600/3.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var b,ha,ger:integer;</div>
<div style="text-align: justify;">
      bul:string;</div>
<div style="text-align: justify;">
procedure maks(s:integer);</div>
<div style="text-align: justify;">
    var y,k:integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
      case s of</div>
<div style="text-align: justify;">
        1,3,5,7,8,10,12:ha:=31;</div>
<div style="text-align: justify;">
        4,6,9,11:ha:=30;</div>
<div style="text-align: justify;">
        2:begin</div>
<div style="text-align: justify;">
            write('masukan tahun ');readln(y);</div>
<div style="text-align: justify;">
            k:=y mod 4;</div>
<div style="text-align: justify;">
            if k=0 then</div>
<div style="text-align: justify;">
              ha:=28</div>
<div style="text-align: justify;">
           else ha:=29;</div>
<div style="text-align: justify;">
           end;</div>
<div style="text-align: justify;">
      else writeln('Bulan salah!!!');readln;exit;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
end;</div>
<div style="text-align: justify;">
procedure hitung(bee:integer);</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
     ger:=bee-(2*b);</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
   write('masukan bulan ke- :');readln(b);</div>
<div style="text-align: justify;">
   maks(b);</div>
<div style="text-align: justify;">
   hitung(ha);</div>
<div style="text-align: justify;">
   write('Gerhana bulan ');</div>
<div style="text-align: justify;">
   case b of</div>
<div style="text-align: justify;">
       1 : WRITE('Januari');</div>
<div style="text-align: justify;">
       2:WRITE('Februari');</div>
<div style="text-align: justify;">
       3:WRITE('Maret');</div>
<div style="text-align: justify;">
       4:WRITE('April');</div>
<div style="text-align: justify;">
       5:WRITE('Mei');</div>
<div style="text-align: justify;">
       6:WRITE('Juni');</div>
<div style="text-align: justify;">
       7:write('Juli');</div>
<div style="text-align: justify;">
       8:WRITE('Agustus');</div>
<div style="text-align: justify;">
       9:write('September');</div>
<div style="text-align: justify;">
       10:write('Oktober');</div>
<div style="text-align: justify;">
       11:WRITE('November');</div>
<div style="text-align: justify;">
       12:WRITE('desemberrrr');</div>
<div style="text-align: justify;">
   end;</div>
<div style="text-align: justify;">
   writeln(' terjadi pada hari ke-',ger);</div>
<div style="text-align: justify;">
readln;</div>
<div style="text-align: justify;">
end.</div>
</div>
<div style="text-align: justify;">
<br /></div>
</div>

Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada. Hint: Sebenarnya intinya hanya membuat prosedur yang menampilkan jumlah hari dalam bulan tertentu..waktu gerha...

01Mar2014

R2 Blog

Labels

Comment

Technology

Latest Post

Program Array (Fibbonaci Generator)

Program Array (Tabel Ajaib)

Program Array (Pendataan Mahasiswa)

Program Array (Penjumlah Matrix)

Program Array (Mencari angka kelipatan 3)

Program Penjumlah Pecahan

Program Menghitung Waktu Gerhana

Author Name

Contact Form