Discovery karoseri Laksana

Karoseri Laksana kini mengeluarkan varian body baru dengan nama Discovery. Body baru ini diperlihatkan di IIIMS JI Expo Kemayoran. Body Discovery ini tak kalah elegan dari body Legacy SR1 cuma dari segi interior hampir sama seperti body SR1, tapi dari segi luar body ini terlihat lebih sangar.

Tamapak Depan
                  

 Tampak Belakang
                  

Program Pascal Perpangkatan

Disini saya ingin mejelaskan cara bagaimana membuat program pascal pemangkatan. Langsung saja beginilah perogram yang harus ditulis apabila anda ingin mebuat pangkat 2.

uses
 wincrt;

var
 bilangan: integer;
 hasil: longint;

begin
 clrscr;
 write('Masukkan sebuah bilangan bulat :');
 readln(bilangan);
 hasil:=bilangan * bilangan * bilangan;
 write(bilangan,'^2 =',hasil);
 readln;
end.

Bila program ini dijalan dengan ctrl+F9 lalu tulis angka sesuai kenginan anda dan disini saya menggunakan angka 5 

 

Dan bila anda ingin merubah pangkat 2 denagn keinginan sendiri tinggal dirubah saja angka 2 nya menjadi angka yang anda ingin kan di perogramnya.