Just Sadadine

Pada Kesempatan kali ini saya akan share tentang coding free pascal pada program untuk menghitung luas Bujur Sangkar. tidak perlu panjang lebar lagi lets check this out !!!

program bujur_sangkar;
uses wincrt;
var s,l:real;
begin
     Writeln(‘=======================================’);
     Writeln(‘ => Software Untuk Menghitung Luas Bujur Sangkar <=’);
     Writeln(‘=======================================’);
     writeln;
     writeln;
     write('Masukkan sisi bujur sangkar    = '); readln(s);
     writeln;
     l:=s*s;
     write('Maka luas bujur sangkar        =',l:5:2);
     writeln;
     writeln;
     writeln;
     Write(‘===============> THE END <==============’);
     Writeln;
     Write(‘=========> Created By : Ahmad Tiar <========’);
     Readln;
End.