Pascal | Menghitung Luas Persegi

Program Pascal : Menghitung Luas Persegi

Setelah saya belajar pemrograman tentunya mengenai turbo pascal dan bahasa pascal. Saya menjadi senang mencoba-coba membuat program pascal untuk menghitung hal-hal yang berkaitan dengan matematika. salah satunya adalah program pascal untuk menghitung luas persegi. 
Rumus luas persegi : L = sisi x sisi
maka script/code programnya adalah sebagai berikut :

Bagian Input


uses wincrt;
var
   s,luas:byte;
begin
     writeln('MENGHITUNG LUAS PERSEGI ');
     writeln('    by: Eva Dianita     ');
     writeln(' vadyanita.blogspot.com ');
     writeln('=========================');
     writeln;
     write('Diketahui : sisi-sisi persegi = ');readln(s);
     luas:=s*s;
     writeln('Jawab: Luas persegi tersebut adalah : ',luas);
end.


Tampilannya adalah sebagai berikut (Output)

Program pascal untuk menghitung luas persegi tersebut mudah bukan? Iya, ini adalah sript/code yang masih mudah karena belum muncul banyak statemen atau variabel lain. Persegi merupakan bidang yang memiliki sisi sisi yang sama sehingga luasnya pun mudah untuk diingat yaitu sisi dikali sisi, dan program pascalnya pun tidak rumit. ^_^