Program Pascal Pangkat dua

Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???

Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)

Program Pangkat dua

program perpangkatan;

uses wincrt;
const
     nm = '      Program by Sakinah Lisdawati';
   line = '=======================================';
   grs = '----------------------------------------------------------';
var
   X : real;
   hasil : real;
   z : char;
begin

     writeln(nm);
     writeln(line);
     writeln('Berikut ini adalah program perpangkatan');
     repeat
     writeln(grs);
     writeln;
     write ('     Masukkan angka = '); readln(X);
     writeln('     Hasilnya       = ',sqr(X):2:2);
     writeln;
     Write ('Hitung lagi ? (y/n) ') ; readln (z);

Until Upcase (z) <> 'Y';

end.

Hasilnya akan tampil seperti gambar berikut !