Program Pertukaran

Berikut adalah source code program pertukaran yang mempertukarkan nilai dari dua peubah dengan menggunakan Pascal:

 

Program Pertukaran;

uses wincrt;

var
   a, b, temp : integer;

begin
     write ('A : '); read (a);
     write ('B : '); read (b);
     temp := a;
     a    := b;
     b    := temp;
     writeln;
     write ('A : ' , a);
     writeln;
     write ('B : ' , b);

end.

Mencetak Pesan “hello, world”

Saya mau kembali mengingat pelajaran Algoritma dan Pemrograman yang dulu pernah diberikan oleh Pak Dedi Rohendi, bahasa yang digunakan adalah Pascal dan dengan menggunakan Turbo Pascal.

Program pertama yang biasa dikenalkan adalah “Hello World”, dalam program ini kita diajarkan untuk menampilkan kata “Hello World”. Jika tidak muncul berarti program tersebut masih ada yang salah. Ini merupakan salah satu hal mudah tetapi agak membuat deg-degan bagi yang pertama mempelajari Pemrograman.

Berikut scriptnya:

Program Hello_World;

uses wincrt;

begin
     write ('Hello, world');

end.

Program lain untuk memunculkan pesan “Hello World” adalah:

Program Hello_World2;

uses wincrt;

var
   pesan : string;

begin
     pesan := 'Hello, world';
     write (pesan);

end.

Dan ini adalah versi lain:

Program Hello_World3;

uses wincrt;

const pesan = 'Hello, world';

begin
     write (pesan);

end.