Contoh Program Dasar Bahasa Pascal. ~ Beauty Ninja

Kalian tahu apa itu Pascal? Pascal adalah bahasa pemograman yang dibuat oleh Niklaus Wirth. Bahasa pascal adalah bahasa yang mudah menurut saya, bagaimana tidak, bahasanya dapat dimengerti.

Dan saya selaku admin beauty ninja ini sedang mengembangkan game RPG yang dibuat menggunakan bahasa pascal. Yah baru dikembangkan sih, paling selesainya 6 Bulan lebih :v.

Lalu apa yang akan dibahas sekarang? Tidak ada yang dibahas, saya hanya memberikan contoh code program dasar di pascal. Untuk dasar sekali, sobat bisa belajar di buku/ebook.

Perpangkatan 3

(* Program pangkat 3 by Rishad Harisdias *)
(* http://beauty-ninja.blogspot.com *)
program pangkat3;
uses crt;
var
n:integer;
b:longint;
begin
clrscr;
writeln('Program pangkat 3');
writeln;
write('Masukkan angka : ');readln(n);
b:=n*n*n;
writeln('Hasil = ',b);
readln;
end.

Program diatas adalah program menghitung pangkat 3. untuk variable b saya beri longint karena hasilnya pasti akan besar.

Perpangkatan 2

(* Program pangkat 3 by Rishad Harisdias *)
(* http://beauty-ninja.blogspot.com *)
program pangkat3;
uses crt;
var
n:integer;
b:longint;
begin
clrscr;
writeln('Program pangkat 3');
writeln;
write('Masukkan angka : ');readln(n);
b:=n*n;
writeln('Hasil = ',b);
readln;
end.

Keliling Segitiga

(* Menghitung Luas Segitiga by Rishad Harisdias *)
(* http://beauty-ninja.blogspot.com *)
program luassegitiga;
uses crt;
var
a,b,c,hasil:integer;
begin
clrscr;
write('Masukkan panjang sisi 1 : ');readln(a);
write('Masukkan panjang sisi 2 : ');readln(b);
write('Masukkan panjang sisi 3 : ');readln(c);
hasil:=a+b+c;
writeln('Hasilnya adalah ',hasil);
readln;
end.

Code diatas tadi adalah contoh program dasar yang hanya menggunakan code yang simple.

Saya akan update lagi contoh programnya!