Dwi Baraja Blog's

Program Pascal : Menukar Nilai dari Dua Variabel

2011-01-17T08:03:00.000-08:00

Pernahkah anda diminta untuk menukar isi dari dua buah gelas, gelas A dan gelas B yang masing-masing berisi Teh dan Kopi ? Bisakah gelas A langsung dituang ke dalam gelas B ???

Untuk memecahkan masalah ini diperlukan satu buah gelas kosong (gelas C). Langkah-langkah pemecahan masalah sebagai berikut :

Tuangkan isi gelas A (isi Teh) ke dalam gelas C (kosong)
Tuangkan isi gelas B (isi Kopi) ke dalam gelas A (kosong)
Tuangkan isi gelas C (isi Teh) ke dalam gelas B (kosong)

sehingga kondisi akhir gelas A yang awalnya berisi Teh sekarang berisi Kopi dan gelas B yang awalnya berisi Kopi sekarang berisi Teh.

Berikut ini adalah program pascal yang mirip dengan masalah di atas. Pertama program membaca dua buah nilai untuk variabel A dan B, kemudian mempertukarkan nilai dua variabel tersebut.

program TukarNilai;

uses wincrt;

var

   A,B,C : integer; {deklarasi variabel}

begin

   clrscr;

   write('Masukkan Nilai A : ');

   readln(A);

   write('Masukkan Nilai B : ');

   readln(B);

   writeln;

   {proses tukar Nilai}

   C:=A;

   A:=B;

   B:=C;

   writeln('Setelah ditukar');

   writeln;

   writeln('Nilai A : ',A);

   writeln('Nilai B : ',B);

end.

Tampilan output :

Perguruan Tinggi di Riau

2011-01-15T10:57:00.000-08:00

Bagi anda yang berada di luar Provinsi Riau dan ingin atau berencana melanjutkan pendidikan ke jenjang perguruan tinggi atau anda sekedar mencari informasi seputar kampus anda, berikut ini daftar perguruan tinggi yang ada di Riau :

Universitas

Universitas Riau www.unri.ac.id
Universitas Islam Riau www.uir.ac.id
UIN Sultan Syarif Kasim Riau www.uin-suska.ac.id
Universitas Lancang Kuning www.unilak.ac.id
Universitas Tabrani Rab

Sekolah Tinggi

Sekolah Tinggi Bahasa Asing Persada Bunda, Pekanbaru
Sekolah Tinggi Ilmu Administrasi Lancang Kuning, Dumai
Sekolah Tinggi Ilmu Farmasi Riau, Pekanbaru
Sekolah Tinggi Ilmu Kesehatan Hang Tuah, Pekanbaru
Sekolah Tinggi Ilmu Pertanian Swarna Dwipa, Teluk Kuantan, Kuantan Sengingi
Sekolah Tinggi Ilmu Purna Graha, Pekanbaru
Sekolah Tinggi Pariwisata Riau, Pekanbaru
Sekolah Tinggi Teknik Dumai, Dumai
Sekolah Tinggi Teknik Pekanbaru, Pekanbaru
Sekolah Tinggi Teknologi Unggulan Swarna Dwipa, Teluk Kuantan, Kuantan Sengingi
STIE Bangkinang, Bangkinang, Kampar
STIE Dharma Putra, Pekanbaru
STIE Indragiri Rengat, Rengat, Indragiri Hulu
STIE Persada Bunda, Pekanbaru
STIE Riau, Pekanbaru
STIE Sri Gemilang, Tembilahan, Indragiri Hilir
STISIP Persada Bunda, Pekanbaru
TKIP YPM Bangko, Bangko, Merangin
Sekolah Tinggi Manajemen Informatika & Komputer (STMIK) AMIK Riau, Pekanbaru www.stmik-amik-riau.ac.id
Sekolah Tinggi Manajemen Informatika & Komputer (STMIK),Dumai www.stmik-amik-dumai.ac.id

Politeknik

Politeknik Bengkalis, Bengkalis www.polbeng.ac.id
Politeknik Caltex Riau, Pekanbaru www.pcr.ac.id
Politeknik Kampar, Bangkinang
Politeknik Pasir Pengaraian, Pasir Pangaraian, Rokan Hulu
Politeknik Pertanian Tembilahan, Tembilahan, Indragiri Hilir

Akademi

Akademi Akuntansi Mahaputra Riau, Pekanbaru
Akademi Akuntansi Pelita Indonesia, Pekanbaru
Akademi Bahasa Asing Persada Bunda, Pekanbaru
Akademi Kebidanan Dayang Suri, Rengat, Indragiri Hulu
Akademi Kebidanan Dharma Husada, Pekanbaru
Akademi Kebidanan Internasional, Pekanbaru
Akademi Kebidanan Merangin, Bangko, Merangin
Akademi Kebidanan Payung Negeri, Pekanbaru
Akademi Keperawatan Dharma Husada, Pekanbaru
Akademi Keperawatan Sri Bunga Tanjung, Dumai
Akademi Kesehatan Fisioterapi, Pekanbaru
Akademi Kesenian Melayu Riau, Pekanbaru
Akademi Keuangan Dan Perbankan Riau, Pekanbaru
Akademi Pariwisata Engku Putri Hamidah, Pekanbaru
Akademi Sekretari dan Manajemen Persada Bunda, Pekanbaru
Akademi Teknik Otomotif Pekanbaru, Pekanbaru
AKP Muhammadiyah Pekanbaru, Pekanbaru
AKRI Pekanbaru, Pekanbaru
AMIK Dumai, Dumai
AMIK Mahaputra Riau, Pekanbaru
AMIK Tridharma, Pekanbaru www.amiktridharma.ac.id
AMIK Mitra Gama, Duri, Bengkalis
AMIK Riau, Pekanbaru
AMIK Selat Panjang, Selat Panjang, Bengkalis www.amikselatpanjang.ac.id

Program Pascal : Mencetak Ucapan 'Hello' dan Nama Orang

2011-01-15T08:34:00.000-08:00

Script program berikut ini membaca nama seseorang dari piranti masukan/keyboard, kemudian mencetak ucapan "Hello" diikuti dengan nama orang tersebut ke layar.

program HalloNama;
uses wincrt;

var
   nama:string;

begin
   clrscr;
   write('Nama Anda : ');
   readln(nama);
   writeln;
   writeln('Hallo ',nama);
end.

Tampilan output :

Program Pascal : Menyapa Dunia

2011-01-15T07:52:00.000-08:00

Sudah menjadi konvensi tidak tertulis bagi para newbie di bidang pemrograman yang ingin mempelajari suatu bahasa pemrograman baru bahwa program yang pertama kali harus dibuat adalah program "Menyapa Dunia". Berikut ini script program dalam bahasa Pascal.

program HelloWorld;
uses wincrt;
{tidak ada deklarasi}
begin
clrscr; {untuk membersihkan layar}
writeln('Hello World');
end.

Tampilan output :

Program Pascal : Stack / Tumpukan

2010-12-29T01:19:00.000-08:00

Berikut ini adalah contoh penggunaan Stack / Tumpukan untuk membalikkan string yang diinputkan dari piranti masukan/keyboard.

{Judul Program}

program balik_kalimat;

uses wincrt;

{Deklarasi}

const elemen=255;

type S255=string[elemen];

     Tumpukan=record

                isi:S255;

                atas:integer;

              end;

var

   T:Tumpukan;

   i:integer;

   Kalimat:S255;

{Prosedur dan Fungsi}

procedure Awalan(var S:Tumpukan);

begin

     S.atas:=0;

end;

procedure PUSH(var S:Tumpukan; d:char);

begin

     if S.atas=elemen then

        write('PENUH')

     else

         begin

            S.atas:=S.atas+1;

            S.isi[S.atas]:=d;  

         end;

end;

function POP(var S:Tumpukan):char;

begin

     POP:=S.isi[S.atas];

     S.atas:=S.atas-1;

end;

{Program Utama}

begin

     clrscr;

     ...
     ...
     ...

Silahkan download program lengkap stack1.zip atau stack1.txt

Tampilan output :

Program Pascal : Queue / Antrian

2010-12-28T00:35:00.000-08:00

Queue / Antrian dalam bahasa pemrograman Pascal.

{Judul Program}
program Antrian;
uses wincrt;

{Deklarasi}
const max=5; {konstanta}
type queue=record
   elemen:array[1..max]of string;
   head,tail,count:integer;
   end;
var
   Q:queue;
   i:integer;
   data:string;
   temp:string;
   jawab:char;

{Prosedur dan Fungsi}
procedure Inisialisasi(var A:queue);
begin
   A.head:=0;
   A.tail:=0;
end;

function Empty:boolean;
begin
   if Q.tail=0 then
   Empty:=true
   else
   Empty:=false;
end;

function Full:boolean;
begin
   if Q.tail=max then
   Full:=true
   else
   Full:=false;
end;

procedure Enqueue(var A:queue; x:string);{prosedur untuk penambahan data}
begin
   if Empty then
   begin
   A.head:=1;
   A.tail:=1;
   A.elemen[A.tail]:=x;
   end
   else if not Full then
   begin
   A.tail:=A.tail+1;
   A.elemen[A.tail]:=x;
   end
   else
   writeln('ANTRIAN SUDAH PENUH');
end;

function Dequeue(var A:queue):string; {prosedur untuk mengambil/menghapus data}
var
   j:integer;
begin
   if not Empty then
   begin
   Dequeue:=A.elemen[A.head];
   for j:=A.head to (A.tail-1) do
   begin
   A.elemen[j]:=A.elemen[j+1];
   end;
   A.tail:=A.tail-1;
   end;
end;

procedure Tampil(A:queue);
var
   k:integer;
begin
   if A.tail<>0 then
   for k:=1 to A.tail do
   writeln('Pasien ke-',k,' : ',A.elemen[k])
   else
   writeln('ANTRIAN KOSONG');
end;

{Program Utama}
begin
   clrscr;
   writeln('PROGRAM ANTRIAN PASIEN');
   writeln('----------------------');
   writeln;
   ...
   ...
   ...

Download file lengkap antrian.zip atau antrian.txt

Tampilan output: