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....

No comments:

Post a Comment