Program Luas_Empat_Segi_Panjang;
uses wincrt;
var
panjang, lebar, luas : real;
begin
write ('Berapa panjang segiempat? '); readln (panjang);
write ('Berapa lebar segiempat? ') ; readln (lebar);
luas := panjang*lebar;
writeln;
writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');
end.
Tag Archive: pascal
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.
Berikut adalah source code mencetak ucapan ‘halo’ dan nama orang di Pascal:
Program Hallo_Nama;
uses wincrt;
var
nama : string;
begin
write ('Nama : '); read (nama);
writeln;
write ('Hallo ', nama);
end.
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.
