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 !

 Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)

Terimakasih telah berkunjung ke Blog Saya....