Program Pascal : Menukar Nilai dari Dua Variabel

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 :

1. Tuangkan isi gelas A (isi Teh) ke dalam gelas C (kosong)
2. Tuangkan isi gelas B (isi Kopi) ke dalam gelas A (kosong)
3. 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

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

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

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 :