cara menghitung luas bujur sangkar dengan menggunakan turbo pascal 1.5

kali ini yang akan saya bagi untuk temen - temen semua yaitu bagaiman menyelesaikan suatu tugas pemrograman komputer yang menggunakan turbo pascal 1.5. ya walaupun ini versi lama tapi mudah - mudahan dapat membantu temen - temen semua dalam menyelesaikanya. sangat simple yaitu ikuti step - step dibawah ini :
1. buka Turbo Pascal 1.5
2. pilih File Open maka akan muncul

3. kemudian pilih dalam kolom Files pilih welcome.pas maka akan muncul lembar baru

4. kemudian hapus kata (wincrt Demo program) sampai windows programming guide. dan isikan dengan data dibawah ini.

var
S,L : real;
Begin
writeln('Cara menghitung Luas Bujur Sangkar ');
writeln('created By_Prancana ');
write('Berapakah panjang sisi Bujur sangkar ?'); readln (S);
L:=S*S;
write(' luas bujur sangkar adalah =',L:9:2);
writeln(' Meter Kuadrat ');
End.

5. setelah itu kemudian pilih Compile (ALT + F9) seperti pada gambar dibawah ini

 

6. kemudian akan muncul seperti dibawan ini jika anda benar memasukkan data diatas 

7. klik ok kemudian pilih Run (Ctrl + F9) maka akan muncul seperti gambar dibawah ini :

8. masukkan data yang anda inginkan (misal 20) maka akan didapat seperti dibawah ini :

maka ketika program mampu menghitung dengan keinginan kita berarti program yang anda buat telah berhasil.. silahkan mencoba,, jangan lupa bila ini bermanfaat untuk anda silahkan di share ke temen - temen yang lain agar kita semua bisa.