Menghitung luas & keliling persegi (turbo pascal)

Selamat datang di blog saya , pada postingan kali ini saya akan men-share mengenai cara menghitung luas & Keliling persegi menggunakan turbo pascal. Sebelumnya persegi mempunyai rumus Luas:

Ket:

L : Luas Persegi

s : Panjang Sisi

dan Keliling :

Ket :

K = Keliling Persegi

s = Panjang Sisi

Sekarang kita akan membahas mengenai sintaknya, sebagai berikut

uses wincrt;
var
s:integer;
l,k : real;
begin
writeln ('========================');
writeln ('   Menghitung Luas dan');
writeln ('    Keliling Persegi ');
writeln ('========================');
writeln (' ');
write ('Masukan Panjang Sisi : ');readln (s);
l := s*s;
k := s+s+s+s;
writeln ('Jadi Luasnya adalah    ', l:1:1 , ' satuan luas');
writeln ('dan kelilingnya adalah ', k:1:1 , ' satuan keliling');
readln;
end.

Setelah dijalankan programnya akan tampil seperti berikut:

Bagi yang mau download source code programnya silahkan download melalui link dibwah ini:

Semoga Bermanfaat