Macam-macam Perulangan dalam Pascal

§  For To Do

-        Pascal

§  For Downto Do

-        Pascal

§  While Do

-        Pascal

§  Repeat Until

-        Pascal

Menghitung Luas Dengan Pascal

1.     Menghitung luas persegi panjang

program luasperpanjang;

uses crt;

var lebar,panjang:integer;

luas:real;

begin

clrscr;

writeln('program luas persegi panjang');

writeln;

write('masukkan panjang(cm):');readln(panjang);

write('masukkan lebar(cm):');readln(lebar);

writeln;

luas:=panjang*lebar;

writeln('luas persegi panjang=',panjang,':x',lebar,'=',luas);

readln;

end.

2.     Menghitung keliling persegi panjang

program menghitung_keliling_persegi_p;

uses crt;

var keliling,p,l:integer;

begin

clrscr;

write('masukkan nilai panjang:');readln(p);

write('masukkan nilai lebar:');readln(l);

keliling:=2*(p*l);

writeln('nilai keliling persegi panjang=',keliling);

readln; 

end.                   

3.     Menghitung luas segitiga siku-siku

program menghitung_luas_segitiga_siku;

uses crt;

var l,a,t,g,q,h,i,j:real;

begin

clrscr;

writeln('rumus menghitung luas segitiga siku-siku');

writeln('================');

write('masukkan nilai kemiringan=');readln(g);

write('masukkan nilai alas=');readln(a);

q:=a/2;

h:=sqr(g);

i:=sqr(q);

j:=h-i;

t:=sqrt(i);

l:=(q*t)/2;

writeln('nilai setengah alas=',q:10:2);

writeln('nilai tinggi=',t:10:2);

writeln('hasil luas segitiga siku-siku=',l:10:2);

readln;

end.

Reserved Word dan Macam-macam deklarasi pascal

Reserved Word

AND	DOWNTO	IN	OF	STRING
ASM	ELSE	INHERITED	OR	THEN
ARRAY	END	INLINE	PACKED	TO
BEGIN	EXPORTS	INTERFACE	PROCEDURE	TYPE
CASE	FILE	LABEL	PROGRAM	UNIT
CONST	FOR	LIBRARY	RECORD	UNTIL
CONSTRUCTOR		FUNCTION	MOD	REPEAT
DESTRUCTOR		GOTO	NIL	SET
DIV	IF	NOT	SHL	WHILE
DO	IMPLEMENTATION	OBJECT	SHR
WITH	VAR	USES

Contoh Masing-Masing Deklarasi

Ø  Deklarasi

Bagian ini menjelaskan /  memperkenalkan secara rinci semua data yang akan

digunakan pada suatu program. Dalam penulisannya tidak boleh  sama  dengan kata-kata cadangan (reserved words) dan selalu diakhiri dengan titik koma (;).

·       Deklarasi label

Deklarasi label   digunakan   Jika   pada  penulisan program akan

menggunakan statemen GOTO (untuk meloncat ke suatu statement tertentu).

Contoh :

program cetak;

uses crt;

label satu,akhir;

begin

clrscr;

writeln('universitas cokroaminoto palopo');

goto satu;

writeln('jln latammacelling no.19');

satu:

writeln('prodi informatika');

goto akhir;

writeln('fakultas teknik komputer');

akhir:

readln;

end.

·       Deklarasi konstanta

Deklarasi    ini   digunakan  untuk    mengidentifikasikan    data yang    nilainya

sudah ditentukan dan pasti, tidak dapat dirubah dalam program.

program cetak_const;

uses crt;

const a=73;

b='indonesia merdeka';

begin

clrscr;

writeln(a,'tahun');

writeln(b);

readln;

end.

·       Deklarasi Variabel

program cetak;

uses crt;

var

satu:integer;

dua:integer;

a:real;

b:real;

begin

satu:=5;

dua:=4;

a:=2.3;

b:=5+4*2.3;

write('hasil=',b:4:1);

readln;

end.

·       Deklarasi Tipe

program tipe;

uses crt;

type

nilai1=real;

nilai2=real;

nilai3=real;

var

a:nilai1;

b:nilai2;

c:nilai3;

begin

clrscr;

a:=10;

b:=5;

c:=a+b;

writeln('hasil penjumlahan=',c:0:0);

readln;

end.

-        Pascal

-        Hasil