R2 Blog

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

Program Mencari Penyelesaian Fungsi Kuadrat

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui</div>
<div style="text-align: justify;">
Hint: Masukan  nilai a,b,c  dan nilai x.</div>
Screen Shot :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEif2BESt4djBurF5C-Nm0aZNkLXluLzUUN3BQ9fAj2madc4LjF8AhsHDwJuvXcV9fsXDoFFcIW4FmwhNL7_qKeGK55Ft1uz5J_YJ2Vf0xrYu9YTfctQJF605d2vOAsKbwmif6PVJXNinSI/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEif2BESt4djBurF5C-Nm0aZNkLXluLzUUN3BQ9fAj2madc4LjF8AhsHDwJuvXcV9fsXDoFFcIW4FmwhNL7_qKeGK55Ft1uz5J_YJ2Vf0xrYu9YTfctQJF605d2vOAsKbwmif6PVJXNinSI/s1600/2.jpg" /></a></div>
<div id="code">
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var x,y,z,s:integer;</div>
<div style="text-align: justify;">
function fungsi(a,b,c,x:integer):integer;</div>
<div style="text-align: justify;">
    begin</div>
<div style="text-align: justify;">
       fungsi:=a*(x*x)-b*x+c;</div>
<div style="text-align: justify;">
    end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
   write('masukan a : ');readln(x);</div>
<div style="text-align: justify;">
   write('masukan b : ');readln(y);</div>
<div style="text-align: justify;">
   write('masukan c : ');readln(z);</div>
<div style="text-align: justify;">
   write('masukan x : ');readln(s);</div>
<div style="text-align: justify;">
   writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);</div>
<div style="text-align: justify;">
   writeln('f(',s,') =',fungsi(x,y,z,s));</div>
<div style="text-align: justify;">
   readln;</div>
<div style="text-align: justify;">
end.</div>
</div>
</div>

Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui Hint: Masukan nilai a,b,c dan nilai x. Screen Shot : uses crt; var x,y,z,s:integer; function fungsi(a,b,c,x:integer):intege...

01Mar2014

Program Prosedur dan Fungsi (Dilatasi)

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: justify;">
Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu.</div>
<div style="text-align: justify;">
Hint<span style="white-space: pre;"> </span>: -</div>
Screenshot Output:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQB7txkUWYwv2Iqhv2hWYVQf0HjJgkwcIgDs3bp2hYl3vGXLU-XGzwtfr8ybqWegBZO9ZsIJ0WdMopAUZrVijUnajEF7y-Mo2UE_OJgAzwjAlS_ggH6DFXtsg4IphVdJQG83FddFngMpk/s1600/Dilatasi.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="60" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQB7txkUWYwv2Iqhv2hWYVQf0HjJgkwcIgDs3bp2hYl3vGXLU-XGzwtfr8ybqWegBZO9ZsIJ0WdMopAUZrVijUnajEF7y-Mo2UE_OJgAzwjAlS_ggH6DFXtsg4IphVdJQG83FddFngMpk/s1600/Dilatasi.jpg" width="320" /></a></div>
<br />
<div style="text-align: justify;">
uses crt;</div>
<div style="text-align: justify;">
var absis,ordinat,pengali:integer;</div>
<div style="text-align: justify;">
procedure dilat(a,b,peng:integer);</div>
<div style="text-align: justify;">
   var c,d:integer;</div>
<div style="text-align: justify;">
   begin</div>
<div style="text-align: justify;">
    c:=a*peng;</div>
<div style="text-align: justify;">
    d:=b*peng;</div>
<div style="text-align: justify;">
    writeln('(',c,',',d,')');</div>
<div style="text-align: justify;">
  <span style="white-space: pre;"> </span>end;</div>
<div style="text-align: justify;">
begin</div>
<div style="text-align: justify;">
  writeln('Kordinat Awal');</div>
<div style="text-align: justify;">
  write('Absis : ');readln(absis);</div>
<div style="text-align: justify;">
  write('Ordinat : ');readln(ordinat);</div>
<div style="text-align: justify;">
  writeln;</div>
<div style="text-align: justify;">
  write('masukan faktor pengali ');readln(pengali);</div>
<div style="text-align: justify;">
  write('Kordinat (',absis,',',ordinat,') setelah didilatasikan terhadap faktor ',pengali,' menjadi ');</div>
<div style="text-align: justify;">
  dilat(absis,ordinat,pengali);</div>
<div style="text-align: justify;">
  readln;</div>
end.<br />
<br /></div>

Fungsi : Mengalikan dua buah angka yang dimasukan dengan angka tertentu. Hint : - Screenshot Output: uses crt; var absis,ordinat,pengali:integer; procedure dilat(a,b,peng:integer); var c,...

01Mar2014

Program Matrix

Unknown March 01, 2014 Tutorial Turbo-Pascal

program Matrix; uses crt; var a:Array of integer; baris,kolom:integer; begin write('jumlah baris : ');readln(baris); write('jumlah kolom : ');readln(kolom); for baris:=1...

01Mar2014

DASAR - DASAR PEMROGRAMAN TURBO PASCAL

Unknown March 01, 2014 Tutorial Turbo-Pascal

<div dir="ltr" style="text-align: left;" trbidi="on">
<b>a. </b><b>Nama Program</b><br />
Untuk keperluan dokumentasi, suatu program dapat diberi nama.  Nama 
program ini bersifat optional (boleh ada boleh tidak).  Jika akan 
diberikan nama program, maka syntaknya sebagai berikut :<br />
Syntax :<br />
<b>Program NamaProgram;</b><br />
NamaProgram mempunyai ketentuan sebagai berikut :<br />
o          Karakter pertama harus <i>Abjad</i>.<br />
o          Karakter kedua dan seterusnya yang diijinkan adalah <i>Abjad</i>, <i>Angka</i> dan <i>Garis</i> <i>Bawah</i> ( _ ).<br />
(aturan ini berlaku UMUM untuk : <i>Nama Program</i>, <i>Nama Constanta</i>,  <i>Nama Type Data</i>, <i>Nama Variabel</i>, <i>Nama Fungsi</i> dan  <i>Nama Procedure</i>)<br />
<b> </b><br />
<b>b. </b><b>Variable</b><br />
Variabel adalah suatu “wadah data” yang harus dideklarasikan dibagian
 deklarasi variabel sebelum dipakai dalam program.  Inilah salah satu 
perbedaan pokok antara PASCAL dengan BASIC.  Di dalam BASIC kita dapat 
memakai sembarang nama variable tanpa pusing-pusing “memesan” dulu.  
Tetapi di dalam PASCAL, variabel yang akan dipakai harus “dipesan” dulu 
dengan dideklarasikan dalam deklarasi variabel.<br />
Syntax :<br />
<b> </b><b>Var   NamaVariable :  TipeVariable;</b><br />
<b> </b><br />
Di dalam program selanjutnya variabel dapat diisi data, dengan cara<i> ditugasi langsung</i> atau <i>dibaca dari keyboard.</i><br />
Berikut adalah Type Variable dalam PASCAL yang dapat dipilih<br />
<br />
<table border="0" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td valign="top" width="140">Type Variable</td>
<td valign="top" width="217">Kisaran Nilai</td>
<td valign="top" width="161">Ukuran Memory   (Byte)</td>
</tr>
<tr>
<td valign="top" width="140">Byte
Word<br />
ShortInt<br />
Integer<br />
LongInt<br />
Real</td>
<td valign="top" width="217">0  …    255
0 … 65535<br />
-128 … 127<br />
-32768 … 32757<br />
-2147483648 … 2147483648<br />
1 E-38 … 1E+38</td>
<td valign="top" width="161">1
2<br />
1<br />
2<br />
4<br />
6</td>
</tr>
<tr>
<td valign="top" width="140">Single
Double<br />
Extended</td>
<td valign="top" width="217">1.5 E-45 … 1.5 E+45
5.0 E-324 … 5.0 E+308<br />
1.9E-4951 … 1.1E+4932</td>
<td valign="top" width="161">4
8<br />
10</td>
</tr>
<tr>
<td valign="top" width="140">Boolean
Char<br />
String</td>
<td colspan="2" valign="top" width="378">Kondisi TRUE, FALSE
satu karakter ‘a’, ‘b’,…,’z’,   ‘0’,’1’,…,’9’,’^’,dll<br />
rangkaian karakter seperti hari   <img alt=":(" class="wp-smiley" src="http://s0.wp.com/wp-includes/images/smilies/icon_sad.gif?m=1129645325g" />  ‘senin’, ‘selasa’ ,dst)</td>
</tr>
<tr>
<td valign="top" width="140">Array
Record<br />
File<br />
Set<br />
Pointer</td>
<td colspan="2" valign="top" width="378">Larik karakter , numerik atau   demensi
Numerik, string, char<br />
Numerik, string, larik, record<br />
Data ordinal<br />
Alamat memori (menunjukkan   letrak data di memori)</td>
</tr>
</tbody>
</table>
<br />
<b>a. </b><b>Type Data</b><br />
Deklarasi Type Data dipakai apabila kita akan mendefinisikan suatu Type Data kita diluar Type Data standard PASCAL.<br />
Cara mendeklarasikan adalah :<br />
<b> </b><b>Type   NamaTypeData = TypeDataPASCAL;</b><br />
<b> </b><br />
<b>b. </b><b>Constanta</b><br />
Konstanta adalah suatu nilai data yang bersifat tetap selama progarm 
dijalankan (“run time”). Konstanta dideklarasikan dengan cara :<br />
Syntax :<br />
<b> </b><b>Const   NamaKonstanta = NilaiData;</b><br />
Yang harus diingat adalah bahwa antara nama konstanta dengan nilai data dipisahkan tanda  <b>=</b> (Sama Dengan).<br />
<b>c. </b><b>Unit</b><br />
Unit adalah suatu satuan kumpulan instruksi  yang harus diaktifkan 
jika instruksi yang bersangkutan akan dipakai. Di dalam PASCAL ada 4 
unit yang sering dipakai yaitu <b><i>CRT</i></b> (berhubungan dengan perintah-perintah pengaturan layar), <b><i>PRINTER</i></b> (berhubungan dengan media cetak printer), <b><i>DOS</i></b> (berhubungan dengan perintah berkaitan dengan DOS) dan <b><i>GRAPH</i></b> (perintah-perintah grafik).<br />
Sebagai contoh : <b>Clrscr</b>, adalah prosedur untuk membersihkan layar yang ada di dalam unit CRT, maka untuk dapat memakai Clrscr, unit Crt harus di ‘<b><i>Uses</i></b>‘ dalam deklarasi unit.  <b>Uses Crt</b> dan  <b>Clrscr</b>,
 merupakan pasangan dalam arti Clrscr adalah suatu prosedur PASCAL yang 
menghendaki dideklarasikannya unit namanya CRT, dengan cara Uses Crt.  
Prosedur lain yang memerlukan unit Crt antara lain <i>Gotoxy(x,y)</i>, <i>DelLine</i>, <i>InsLine</i> dan lain-lain yang akan dibahas kemudian.<br />
<b> </b><br />
<b>d. </b><b>Label</b><br />
Label adalah suatu nama tertentu (dapat terdiri angka atau huruf atau
 kombinasinya), yang dalam program nanti akan dituju oleh statemen <i>GOTO</i>.  Namun dalam PASCAL sesungguhnya statement <i>GOTO</i>
 ini hanya diijinkan tetapi sama sekali TIDAK DIANJURKAN.  Karena 
statemen Goto menyebabkan struktur program menjadi tidak jelas.<br />
<b>e. </b><b>Fungsi dan Procedure</b><br />
Pemrograman PASCAL yang terstruktur menghendaki pemecahan masalah 
menjadi modul-modul yang lebih kecil.  Modul ini nanti dapat 
diimplementasikan melalui fungsi atau prosedur, sehingga program utama 
hanyalah bertugas mengelola pemanggilan fungsi dan prosedur yang sudah 
dideklarasikan.  Pada topik fungsi dan prosedur, deklarasi ini  akan 
dikupas lebih jauh.<br />
<b>h. </b><b>Procedure Write dan Writeln</b><br />
Procedure Write dan Writeln digunakan untuk mencetak suatu  
konstanta, variable, ekspresi atau kombinasi dua atau ketiganya, dapat 
berupa konstanta string atau konstanta numerik.<br />
Syntax :<br />
<b> Write(‘kontanta’, ‘ekspresi’, ‘variabel’) </b><br />
<b> Writeln(‘konstanta’, ‘ekspresi’, ‘variabel’)</b><br />
<br />
Rangkaian karakter yang <span style="text-decoration: underline;">diapit tanda petik tunggal</span> (‘ …..karakter …’)<br />
<i>Write</i> :     akan mencetak dan  posisi kursor pada baris yang sama.<br />
<i>Writeln</i> :    mencetak dan kursor akan turun satu baris, ke awal  baris.<br />
<b><i>Example 1:</i></b><br />
Begin<br />
Write(‘Halo ‘);<br />
Write(‘  PASCAL’); Writeln;<br />
Write(‘HALO’);<br />
Write(‘   PASCAL’); Writeln;<br />
Writeln(‘Halo’);<br />
Writeln(‘PASCAL’);<br />
Readln;<br />
End.<br />
<b><i>Hasil Run :</i></b><br />
Halo   PASCAL<br />
HALO   PASCAL<br />
Halo<br />
PASCAL<br />
<br />
<b>h. </b><b>Procedure Read dan Readln</b><br />
Prosedur Read dan Readln adalah untuk membaca data DARI KEYBOARD 
dengan hasil pembacaan akan ditampung dalam variabel yang ada dalam 
argumen Read dan Readln tersebut.<br />
Syntax :<br />
<b>Read(NamaVar1, NamaVar2, …);</b><br />
<b>Readln(NamaVar1, NamaVar2, …);</b><br />
<br />
Tidak seperti Write atau Writeln dimana argumen (apa-apa yang ada 
dalam tanda kurung), dapat terdiri dari konstanta, variabel atau 
ekspresi, maka argumen Read atau Readln hanya dapat berupa <i>Variable-Variable</i> yang dapat satu atau lebih, yang sudah dideklarasikan dalam deklarasi variable.  Data yang masuk haruslah sesuai dengan <i>Type Variable</i> yang bersangkutan.<br />
<b><i>Example 2:</i></b><br />
{file  : P12.Pas<br />
Nama         : Yuni   01.05.2000<br />
Tara   01.05.2005<br />
Hari/tgl/jam : Selasa, 10 01 01, 11.00<br />
Kelp./passw  : SL2-F/22F<br />
Ass          : Winnie}<br />
<br />
Program menghitung_bilangan;<br />
Uses Crt;;<br />
Var<br />
A,B,C : integer;<br />
P,Q   : real;<br />
Z     : string;<br />
<br />
Begin<br />
Clrscr;<br />
A := 4; B:= 5; C:=A*B;<br />
Z:= ‘SMKPGRI1NGAWI’;<br />
Writeln(A,B,C);<br />
Writeln(‘ISI Z = ’,Z);<br />
Readln<br />
End.<br />
<b><i>Hasil Run:</i></b><br />
4520<br />
ISI Z = SMKPGRI1NGAWI<br />
<br />
<b><i>Example:</i></b><br />
{file : P12A.Pas<br />
Nama         : Yuni   02.05.2000<br />
Tara   02.05.2005<br />
Hari/tgl/jam : Selasa, 01 10 02, 11.00<br />
Kelp./passw  : SL2/22F<br />
Ass          : Winnie}<br />
<br />
Program menghitung_bilangan;<br />
Uses Crt;<br />
Var<br />
A,B,C : integer;<br />
P,Q   : real;<br />
Z     : string;<br />
<br />
Begin<br />
Clrscr;<br />
A := 4; B:= 5; C:=A*B;<br />
Z:=’SMKPGRI1NGAWI’;<br />
Writeln(‘A=’,A:5, ‘B=’,B:5, ‘C=’,C:5);<br />
Writeln(‘ISI Z=’,Z:10);<br />
Readln;<br />
End.<br />
<b><i> Hasil Run:</i></b><br />
A=    4    B=    5    C=   20<br />
ISI Z =   SMKPGRI1NGAWI</div>

a. Nama Program Untuk keperluan dokumentasi, suatu program dapat diberi nama. Nama program ini bersifat optional (boleh ada boleh tidak). Jika akan diberikan nama program, maka syntaknya sebagai ...

01Mar2014

R2 Blog

Labels

Comment

Technology

Latest Post

Program Array (Mencari angka kelipatan 3)

Program Penjumlah Pecahan

Program Menghitung Waktu Gerhana

Program Mencari Penyelesaian Fungsi Kuadrat

Program Prosedur dan Fungsi (Dilatasi)

Program Matrix

DASAR - DASAR PEMROGRAMAN TURBO PASCAL

Author Name

Contact Form