Pascal

Wednesday, October 20, 2010

Macam-Macam Perulangan Pada Pascal :
  • FOR TO DO , perulangan dengan penghitung ( counter ).
  • REPEAT UNTIL , perulangan dengan syarat akhir.
  • WHILE DO , perulangan dengan syarat awal.
  • WHILE DO , bersyarat.
  • FOR DOWN TO DO.
  • WHILE DO , bersyarat.
Bentuk Umum :
  • FOR TO DO , FOR mengubah := UNGKAPAN 1 TO UNGKAPAN 2 DO STATEMENT;
  • FOR DOWN TO DO, FOR mengubah := UNGKAPAN 1 TO UNGKAPAN 2 DO STATEMENT;
Macam-Macam Kondisi Pada Pascal :
  • IF .. THEN .. ELSE
Pernyataan percabangan / kendali / bersyarat merupakan pernyataan yang akan mengeksekusi suatu pernyataan yang mengikutinya bila suatu persyaratan dipenuhi.
Bentuk Umum :
IF KONDISI THEN
STATEMENT 1
ELSE
STATEMENT 2
  • CASE .. OF 
Digunakan untuk pengambilan keputusan jika terdapat lebih dari 2 alternatif jawaban yang tersedia.
Bentuk Umum:
CASE UNGKAPAN OR
LABEL 1 : STATEMENT 1
LABEL 2 : STATEMENT 2
LABEL n : STATEMENT n
END;
Contoh Program Perulangan dan Kondisi :
PROGRAM PERULANGAN ;
USES WINCRT ;
VAR C INTEGER ;
BEGIN
FOR C := 1 TO 24 DO
WRITELN ( ' CHACA ' ) ;
END.
PROGRAM KONDISI ;
USES CRT ;
VAR KARAKTER: CHAR ; 
CLRSCR;
FOR KARAKTER: ' A ' DOWN TO ' Z ' DO
WRITE ( KARAKTER : 2 ) ;
READLN ;
END.
Pengertian Array dan Record :
  • Array , yaitu sebuah struktur data yang terdiri atas banyak variable dengan tipe data sama, di mana tiap elemen variabel memiliki nilai indeks.
  • Record , yaitu sebuah rekaman yang disusun oleh beberapa field , tiap field berisi data dari tipe dasar.
Contoh Pogram Array dan Record 2 Dimensi :
  • Contoh Program Pascal Array 2 Dimensi :
USES WINCRT ;
CONST N = 10 ;
TYPE INT ARRAY = ARRAY ( 1 . . N ) OF INTEGER
VAR BIL : INT ARRAY
INDEKS : INTEGER
BEGIN
WRITELN ( ' MASUKKAN SEPULUH BIL INTEGER ' ) ;
FOR INDEKS = 1 TO 10 DO
BEGIN
READLN ( BIL ( INDEKS ) ) ;
END ;
WRITELN ( ' ISI DARI ARRAY INI YAITU ' ) ;
FOR INDEKS = 1 TO 10 DO
BEGIN
WRITELN ( ' BIL ( INDEKS 2 ) ;
END ;
END . 
  • Contoh Program Pascal Record 2 Dimensi :
DATA MAHASISWA GUNADARMA = RECORD
NAMA : STRING ;
USIA : INTEGER ;
KOTA : STRING ;
KODE POS : INTEGER ;
ALAMAT : INTEGER ;
END ;
VAR C : DATA MAHASISWA GUNADARMA ;
Pengertian Function dan Procedure :
  • Function , yaitu mengelompokkan beberapa instruksi tertentu dalam 1 instruksi.
  • Procedure , yaitu suatu penggalan program yang dapat dipanggil oleh program utama dan tidak mengembalikan nilai.
Parameter yang Terdapat pada Function dan Procedure :
  • Parameter yang terdapat pada function :
Hanya parameter IN PRIVILLAGE yang dibutuhkan CREATE PROCHEDURE atau CREATE ANY PROCHEDURE untuk demo tentang FUNCTION CONNECT sebagai USER SCOTT.
  • Parameter pada procedure :
IN , mengirim nilai angka, variabel, exprese.
OUT , menampung hasil dari proses procedure variabel.
IN OUT , mengirim nilai dan menampung hasil proses variabel. 
Contoh Program Function :
FUNCTION HITUNG ( VAR A,B:INTEGER ) : INTEGER;
BEGIN
HITUNG := A+B ;
END;
VAR X,Y : INTEGER;
BEGIN
WRITE ( ' NILAI X ? ' );
READLN ( X ) ;
WRITE ( ' NILAI Y ? ' );
READLN ( Y );
WRITELN;
WRITELN ( X , ' + ' , Y , ' = ' , HITUNG ( X , Y ) ) ;
END.


Hasilnya :
NILAI X ? 2
NILAI Y ? 3
1+3 = 5
Pengertian File dan Pointer :
  • File , yaitu kumpulan byte-byte yang disimpan dalam media penyimpanan.
  • Pointer , yaitu bagian yang menunjuk ke komponen file yang akan diakses ( dibaca atau direkam ) untuk keperluan pengaksesan file ( akan dibahas kemudian ).
Bentuk Umum File dan Pointer :
  • Bentuk Umum File : 
a. Untuk membuka file :        
   OPEN " mode " , ( # ) nomor file , nama file 
b. Untuk menutup file :
   CLOSE ( # nomor file )
c. Untuk menyimpan data ke f ile : 
   WRITE # nomor file , dafpar
d. Mengambil data dari file :
   INPUT # nomor file , varlist
  • Bentuk Umum Pointer :
Type *variabel name; 
Contoh File dan Pointer :
  • Contoh File :
OPEN " C : MY DATA / ALAMAT " FOR OUTPUT AS#1
WRITE#,"Dika",17,"Denpasar"
WRITE#,"Evul",18,"Sukabumi"
WRITE#,"Chaca",18,"Jakarta"
WRITE#,"Agha",18,"Halim"
WRITE#,"Bram",20,"Surabaya"
WRITE#,"Ary,",24,"Bandung"
CLOSE#1
END
  • Contoh Poniter :
//Program : pointer1.cpp
#include(iostream.h)
//cetak p dan *p
Void main(void)
(
int v=7,*p;
p=&v;
cout 9 (("Nilai v="((v)) dan *p="((*p
(("/n alamatnya = "((p))'n';
)

You Might Also Like

0 komentar

© chaca atmika 2010 - 2016. Powered by Blogger.

Popular Posts

Follow on Twitter

Contact Us

Name

Email *

Message *