Kurnia Dwi Inayati ( 131100054 )

Jumat, 30 Desember 2011

Belajar Pascal dengan Turbo Pascal

TPW atau Turbo Pascal for Windows adalah program yang dipakai dalam penggunaan bahasa pemrograman PASCAL pada komputer yang menggunakan sistem operasi windows. Turbo Pascal merupakan versi yang populer dalam PASCAL dan sudah menjadi bahasa pemrograman standar dalam dunia pendidikan bidang komputer
Diposting oleh di 18.18 0 komentar

Sebagai Pedoman


PENGANTAR PASCAL
A. Program Turbo Pascal
Pascal adalah salah satu bahasa pemrograman tingkat tinggi (high level language). Nama Pascal diambil dari nama seorang ahli matematika dan filosofi terkenal abad 17 dari Perancis, yaitu Blaise Pascal. Bahasa ini dirancang oleh Prof. Niklaus Wirth dari Technical University di Zurich, Switzerland. Turbo Pascal adalah salah satu versi Pascal yang paling popular dan banyak digunakan saat ini. Bentuk tampilan awal Turbo Pascal adalah sebagai berikut:

Menu Bar
Adalah fasilitas yang ada pada setiap aplikasi window. Ada delapan Menu Utama yang dapat dipanggil dengan menggunakan tombol Alt+[Huruf pertama dari menu]. Misalingin memanggil menu File, tekan tombol Alt+F.

Toolbar
Adalah kumpulan tombol-tombol bergambar yang berfungsi untuk memberikan
perintah pada komputer

Editor
Berfungsi untuk menulis dan menyunting program.

B. Struktur Bahasa Pascal
Program dalam bahasa pascal, ditulis dengan struktur sebagai berikut:
Program <Nama> (<Daftar parameter>)
_ Kepala Program
USES
<deklarasi unit>
LABEL
<deklarasi label>
CONST
<deklarasi konstanta>
TYPE
<deklarasi tipe>
VAR
<deklarasi variabel>
<deklarasi fungsi dan prosedur>
_ Bagian Deklarasi
BEGIN
<Pernyataan>
END.

_ Bagian Pernyataan
Kepala Program
Dalam Pascal, posisi kepala program adalah diawal program. Sintak dari kepala
program adalah:

Program <Nama> (<Daftar parameter>)
Penulisan Nama boleh sembarang, tapi harus dimulai dengan huruf dan bukan Reserve
Word (kata baku yang telah digunakan Pascal dan mempunyai definisi tertentu, misal
BEGIN, USES, dsb). Dapat terdiri dari kombinasi huruf, angka dan garis bawah.
Maksimal 127 karakter dan tidak ada perbedaan antara huruf besar dan huruf kecil.
Dalam memberikan Nama sebaiknya yang mempunyai arti sesuai dengan program
yang akan dibuat.

Bagian Pernyataan
Bagian pernyataan diawal dengan kata BEGIN serta diakhiri dengan kata END dan
tanda titik. Setiap pernyataan diakhiri dengan tanda titik kona (;). Pernyataanpernyataan
yang disusun mengikuti algoritma tertentu diletakkan pada bagian ini.

C. Tipe Data dalam Pascal
Ada beberapa macam tipe data dalam Pascal, diantaranya adalah :
1. Integer, adalah susunan angka yang tidak mengandung koma. Disebut juga
bilangan bulat. Nilainya terletak antara -32768 s/d 32767.
2. Byte, adalah merupakan bagian dari integer. Nilainya terletak antara 0 s/d 255.
3. Real, merupakan tipe bilangan yang mengandung pecahan. Nilainya terletak antara
1E-38 s/d 1E+38.
4. Boolean, berhubungan dengan dua keadaan logika. Dapat bernilai True atau False.
5. Char, merupakan tipe yang hanya terdiri dari sebuah simbol karakter ASCII
6. String, merupakan tipe yang terdiri dari sejumlah karakter.

PERNYATAAN INPUT dan OUTPUT
Dalam bahasa Pascal pernyataan input adalah pernyataan yang digunakan untukmemasukkan data. Pernyataan input yang ada di Pascal adalah READ dan READLN.Sedangkan pernyataan output adalah pernyataan yang digunakan untuk menampilkan hasil.
Ada dua pernyataan output yaitu WRITE dan WRITELN.

A.Pernyataan WRITE dan WRITELN:

WRITE dan WRITELN:
WRITE (<argumen >);
Atau
WRITELN (<argumen>);
Jika pernyataan WRITELN yang digunakan, setelah menampilkan hasil maka kursor ganti
baris. Sedangkan jika pernyataan WRITE yang digunakan, setelah menampilkan hasil
maka kursor tidak ganti baris. Dalam format penulisan WRITE dan WRITELN jika yang
akan ditampilkan adalah suatu kata/kalimat yang tidak disinpan dalam suatu variabel, maka
kata/kalimat tersebut harus ditulis diantara tanda petik tunggal (’).
• WRITE atau WRITELN dapat menerima argumen berupa variabel
Bentuk Pernyataan : WRITE (<variable>); WRITELN (<variabel>);

B. Memformat keluaran dari WRITE dan WRITELN

Untuk mengatur penampilan hasil pernyataan WRITE dan WRITELN dapat dilakukan
formating. Untuk memformat data dilakukan dengan menambah tanda titik dua (:) diikuti
dengan bilangan yang menyatakan lebar ruang untuk menampilkan data:Data : n
Format ini menyebabkan data ditampilkan rata kanan pada ruang dengan ukuran sebesar nkarakter.
Contoh : WRITE (A:10);

C. Pernyataan READ dan READLN
Bentuk pernyataan READ READLN:
READ (<variabel-1, variabel-2,.., variabel-n>) ;
Atau
READLN (<variabel-1, variabel-2,.., variabel-n>) ;
Tiap-tiap data yang dimasukkan harus sesuai dengan tipe variabelnya. Setelah data
dimasukkan, tombol ENTER ditekan. Perbedaan antara READ dan READLN adalah pada
sifat menangani kelebihan data yang diinputkan
• READ : Jika ada kelebihan data, pernyataan ini tidak akan membuangnya. Kelebihan
data tersebut akan diberikan pada pernyataan READ atau READLN berikutnya.
• READLN : Jika ada kelebihan data, pernyataan ini akan membuangnya. Kelebihan data
tersebut tidak akan diberikan pada pernyataan READ atau READLN
berikutnya.



by : kurnia ( 1311100054 )
Diposting oleh di 09.03 0 komentar

The Simple Example


program pelajar;
uses wincrt;
var
   nrp :longint;

begin
     readln(nrp);
     writeln(nrp);
end.
program pelajar;
uses wincrt;
var
   hasil:integer;

begin
     hasil:= 5 + 3;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var
   hasil:real;

begin
     hasil:= 28 / 7;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var
   hasil:integer;

begin
     hasil:= 8 * 7;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var

   A,B,hasil:real;

begin
     A:=3;
     B:=45;
     hasil:=A/B;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var

   A,B,hasil:real;

begin
     A:=25;
     B:=100;
     hasil:=A*B;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var

   A,B,hasil:real;

begin
     readln(A);
     readln(B);
     hasil:=A/B;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var

   A,B,hasil:integer;

begin
     readln(A);
     readln(B);
     hasil:= A div B;
     writeln(hasil);
end.
program pelajar;
uses wincrt;
var

   i:integer;

begin
     i := 1;
     repeat
     i := i + 1;
     writeln(i);
     until i=10;
end.
program pelajar;
uses wincrt;
var

   i:integer;

begin
     i := 1;
     writeln(i);
     repeat
     i := i + 1;
     writeln(i);
     until i=10;
end.
program pelajar;
uses wincrt;
var

   i:integer;

begin
     i := 1;
     repeat
     writeln(i);
     i := i + 1;
     until i>10;
end.
program pelajar;
uses wincrt;
var

   i:integer;

begin
     i := 5;
     repeat
     writeln(i);
     i := i + 5;
     until i>100;
end.
Diposting oleh di 08.40 0 komentar

Let's Try !!! .....


program menghitung_umur;
uses wincrt;
var nama: string;
umur,TL: integer;
begin
writeln ('nama :'); readln (nama);
writeln ('tahun lahir :'); readln (TL);
writeln ('umur :');
umur:=2011-TL;
writeln (umur);
end.

program deret_angka;
uses wincrt;
var a: integer;
begin
a:=1;
write(1); write(' ');
repeat
a:=a+3;
write(a); write(' ');
until a=16;
end.



 
program belajar ;
uses wincrt;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i do
write(j,' ');
writeln;
end;
end.





program belajar ;
uses wincrt;
var
i,j:integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do
write(j,' ');
writeln;
end;
end.



program faktorial;
uses wincrt;
var i,n,f :integer;
begin
readln (n); f:=1; i:=0;
repeat
i:= i+1;
f:=f*i;
until i=n;
writeln (n, 'faktorial= ',f);
end.










program faktorial;
uses wincrt;
var
   i,n,jumlah: integer;
begin
jumlah:=1;
          write ('inputkan suatu nilai :'); readln (n);
          write ('faktorial dari ',n,' adalah:');
          for i:= n downto 2 do
          begin
               write (i,'x');
               jumlah:=i*jumlah;
          end;
begin
if n<0 then write ('tidak terdefinisi')
else write (1,'=',jumlah);
end;
end.




program deret;
uses wincrt;
var i,j,k,n,r:integer;
begin readln (n);
for i:=1 to n do
begin
for j:=1to i do
k:=1;
for r:=1 to j do
begin
k:=j*k;
write (k);
write(' ');
end;
writeln(' ');
end;
end.




program pp;
uses wincrt;
var i,n,j :integer;
begin
readln(n);
for i:=n downto 1 do
begin
for j:=1 to n do
begin if (j<i) then
write(' ')
else
write('*');
write(' ');
end;
writeln(' ');
end;
end.



program lina;
uses winCrt;
procedure gb (brs,kol:integer);
var i,j:integer;
begin
for i:=1 to brs do
    begin
    for j:=1 to kol do
        begin
        if ((i=1)or(i=brs)or(j=1)or(j=kol))then
        write ('*')
        else write(' ');
        end;
        writeln;
        end;                  
    end;
        var x,y:integer;
        begin                
        write('banyak baris= ');readln(y);
        write('banyak kolom= ');readln(x);
        writeln('bentuknya:');
        gb(y,x);
        end.
Diposting oleh di 08.33 0 komentar
Langganan: Postingan (Atom)