Perulangan (loop)


Pada postingan sebelumnya (postingan yang berjudul Program Menggunakan Looping, Program Konversi, Program Yes/No Question ^-^, dan Program Mean & Modus) saya memberikan contoh-contoh program yang menggunakan looping. Kali ini saya akan menebus janji saya beberapa waktu yang lalu untuk membuat postingan tentang perulangan (loop) pada Turbo Pascal. So, let’s check it out!

PENGULANGAN (LOOPING)

APA ITU LOOPING?
Perulangan (looping) adalah sebuah perintah yang menjalankan suatu perintah tertentu berulang-ulang sampai suatu kondisi terpenuhi. Looping pada Pascal menggunakan beberapa keyword seperti FOR...DO, WHILE...DO dan REPEAT...UNTIL.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Program Mean & Modus


PROGRAM MEAN & MODUS

Sekarang saya akan berbagi pengetahuan tentang program pascal yang berhubungan dengan ilmu statistika.
Program pertama yang saya buat adalah program untuk menghitung modus, yaitu:
program menghitung_modus;
uses wincrt;
var
 i,n,j,modus,modus1:integer;
 data,frek:array[1..50] of real;
begin
 writeln('Berapa jumlah data yang akan dimasukkan?(max 50)  '); readln (n);

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Program Yes/No Question ^-^

PROGRAM YES/NO QUESTION ^-^


            Beberapa hari yang lalu saya dapat tugas membuat program tentang yes/no question. Di program tersebut terdapat perintah apakah ingin keluar program atau tidak. Jika di jawab ya, maka program akan berhenti dan harus ditutup. Namun jika dijawab tidak maka program akan berlanjut. Dan dibawah ini adalah hasil pekerjaan saya.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Program Konversi


PROGRAM KONVERSI



Bagaimana membuat program yang dapat mengkonversikan bilangan decimal menjadi bilangan biner?

            Nggak usah bingung, dibawah ini adalah syntax untuk program yang mengkonversikan bilangan decimal menjadi bilangan biner

Program konversi_desimal_biner;
uses wincrt;
var    
     desimal,d,sisa,biner:integer;
begin
     write (' angka desimal '); readln (desimal);
     d:=0;
      repeat
     sisa:= desimal mod 2;
     desimal:= desimal div 2;
     if (d=0) then
     d:=1
     else
     d:=d*10;
     biner := biner+sisa*d;
     until desimal = 0;
      write ('biner=', biner );
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Program Menggunakan Looping

PROGRAM MENGGUNAKAN LOOPING



Berikut ini adalah contoh-contoh program yang menggunakan looping.

Penggunaan for to do
-----------------
program deret;
uses wincrt;
var n,d:integer ;
begin
     d:=2;
     for n:=2 to 6 do
     begin
     write (d, ' ');
     d:=d+2
     end;
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Pernyataan Bersyarat (Part 3)


PERNYATAAN BERSYARAT (PART 3)



Selain  struktur  kendali  If,  pascal  juga  menyediakan  suatu  struktur  Case,  yang  akan menjalankan statement berdasarkan range tertentu, adapun syntaxnya adalah sebagai berikut :
Case variabel Of
Range1 : Statement1;
Range2 : Statement2;
Range3 : Statement3;
Else StatementN;
End;

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Pernyataan Bersyarat (Part 2)


PERNYATAAN BERSYARAT (PART 2)


Sekarang kita masuk pada bab tentang pernyataan bersyarat bagian kedua (kayak film ajah ^-^) , tepatnya pernyataan If  bersarang.  Bukan burung aja loh yang punya sarang, ternyata IF juga punya (hahaha). Pingin tahu selengkapnya, baca uraian dibawah ini.

APA SIH PERNYATAAN IF BERSARANG ITU?
Jika ada dua pernyataan IF atau lebih, dimana pernyataan IF yang satu berada di dalam  pernyataan IF yang lain, maka pernyataan tersebut disebut Bersarang (nested).
Contoh bentuk pernyataan IF Bersarang:
IF  <syarat logika-1> THEN  <Pernyataan-1>
ELSE IF <syarat logika-2> THEN  <Pernyataan-2>
ELSE IF <syarat logika-3> THEN  <Pernyataan-3>
ELSE <Pernyataan-4>;
Gambar 3. Flowchart Statement IF THEN Bersarang

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Pernyataan Bersyarat (Part 1)


PERNYATAAN BERSYARAT (Part 1)



Pernyataan bersyarat adalah pernyataan yang akan menjalankan pernyataan yang mengikutinya sesuai dengan syarat tertertentu. Pernyataan bersyarat ada 2 macam, yaitu IF dan CASE.
Bagaimana Pernyataan IF ?
Bentuk pernyataan IF: IF  <syarat logika>   THEN  <Pernyataan>;

Gambar 1. Flowchart Statement IF THEN

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Variabel dalam Turbo Pascal


VARIABEL DALAM TURBO PASCAL



Ada hal penting lagi yang wajib diketahui pengguna Tuorbo Pascal sebelum membuat program pascal, yaitu tentang macam-macam tipe variabel pada Turbo Pascal.
Let’s check it out!

TYPE VARIABEL APA SAJA YANG DISEDIAKAN TURBO PASCAL ?
Adapun type variable yang disediakan pada TURBO PASCAL :

Ordinal types
Type  data yang mempunyai urutan pasti, dan masih terbagi menjadi
·         Integer
Type  variable  yang beguna untuk pengolahan  data yang  bulat,  type  ini  masih  terbagi atas berberapa menurut jangkauan data dan ukurannya :
Type                  Jangkuan                               Ukuran
Shortint              -128..127                                 8 bit
Integer               -32768..32767                         16 bit
Longint              -2147483648..2147483647     32 bit
Byte                   0..255                                      8 bit
Word                 0..65535                                 16 bit

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Aturan dalam Pascal

ATURAN DALAM PASCAL

"Sudah susah payah membuat program dengan Turbo Pascal, kok tidak bisa di-run?  Jadi malas belajar Pascal, susah sih!."

Teman-teman pasti pernah mengucapkan perkataan seperti itu, termasuk juga saya (hehehe). Biasanya kejadian seperti itu akibat ketidaktahuan kita pada beberapa aturan yang ada di Pascal. So, agar program kita bisa jalan, yuk! kita pelajari beberapa aturan dalam PASCAL berikut ini.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Struktur Program Pascal

STRUKTUR PROGRAM PASCAL

Bagaimana Struktur program pascal?

Struktur dasar suatu program pascal adalah sebagai berikut :
program   ... ;   { Program heading }
uses      ... ;   { Uses clause }
label     ... ;   { Labels }
const     ... ;   { Constants }
type      ... ;   { Types }
var       ... ;   { Variables }
procedure ... ;   { Procedures }
function  ... ;   { Functions }
begin
statement;      { Statements }
...
end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

Pengenalan Turbo Pascal

           PENGENALAN TURBO PASCAL

          Seperti pepatah klasik “tak kenal maka tak sayang”, jadi sebelum berbicara panjang lebar tentang pemrograman pascal, alangkah baiknya kita mengetahui apa itu Turbo Pascal dan sejarahnya.

            APA SIH PASCAL ITU?
Pascal adalah salah satu  bahasa komputer tingkat tinggi yang dibuat sekitar tahun  1970  oleh  Niklaus  Wirth  dan  digunakan  untuk  pendidikan  komputer.  Nama  Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama.  Bahasa Pascal dirancang untuk menyelesaikan masalah dari  berbagai kalangan penggunanya, mulai dari para mahasiswa, pendidik, dan ilmuwan.  Salah satu kompiler pascal yang terkenal dan tercepat adalah Turbo PASCAL yang  dibuat oleh perusahaan Borland (http://www.borland.com).

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments