Program Hitung Persegi | Turbo Pascal

Kesempatan kali ini saya mau berbagi kepada kalian, bagaimana cara membuat Program Hitung Persegi dengan Turbo Pascal. Di program ini kalian bisa menghitung Luas & Keliling Persegi. Untuk kalian yang belum memiliki program Turbo Pascal Bisa di download DISINI

1. Tuliskan Source Code seperti dibawah pada Turbo Pascal

Tulis Source Code di Turbo Pascal

Source Code :

program hitungpersegi;
uses wincrt;
var sisi,luas,keliling:integer;
begin
clrscr;
       writeln('=========================================================')
       writeln('Program Hitung Persegi')
       writeln('=========================================================')
       writeln;
       write('Masukkan Sisi Persegi = ');
       readln(sisi);
       luas:=sisi*sisi;
       writeln('Luas Persegi = ',luas);
       keliling:=4*sisi;
       writeln('Keliling Persegi = ',keliling);
       readln;
end.

2.  Compile hasil penulisan code diatas dengan menekan ALT+F9

Program Berhasil di Compile

3. Jalankan Program yang telah dibuat dengan Menekan CTRL+F9

Program Hitung Persegi berjalan lancar