Pascal – Membuat Program Luas dan Keliling Lingkaran

Sebelumnya saya sudah membuat program mencari luas dan keliling bujur sangkar. Kali ini saya akan membuat program mencari luas dan keliling lingkaran dengan bahasa Pascal.

uses crt;
var r:integer;
const pi=3.1415;

function Luas(jari_jari:integer; phi:real):real;
begin
Luas:=phi*sqr(jari_jari);
end;

function Keliling(jari_jari:integer; phi:real):real;
begin
Keliling:=2*phi*jari_jari;
end;

begin
clrscr;
write('Jari-Jari: '); readln(r);
writeln('Keliling: ',Keliling(r,pi):0:2);
writeln('Luas: ',Luas(r,pi):0:2);
readln;
end.

Jika program di atas dijalankan, dan saya masukkan nilai jari-jari sebesar 10 maka outputnya adalah:

Lingkaran Output

Sekian dan terima kasih sudah merelakan waktu untuk datang ke sini.

Advertisements

Pascal – Membuat Program Untuk Menghitung Luas dan Keliling Bujur Sangkar

Saya ingin berbagi tentang program penghitung luas dan keliling bujur sangkar dengan bahasa pascal. Berikut adalah programnya.

uses crt;
var s:integer;

function Cari_Luas(sisi:integer):integer;
begin
Cari_Luas:=sisi*sisi;
end;

function Cari_Keliling(sisi:integer):integer;
begin
Cari_Keliling:=4*sisi;
end;

begin
clrscr;
write('Masukkan nilai sisi= '); readln(s);
writeln('Luas = ',Cari_Luas(s));
writeln('Keliling = ',Cari_Keliling(s));
readln;
end.

Output dari program diatas jika saya isi sisi dengan 5 adalah:

 Output_Luas_dan_Keliling_Bujur_Sangkar

Sekian dan Terima Kasih.

Menginstall DOSBox Emulator dan Turbo Pascal pada Ubuntu

DOSBox Emulator Logo

Karena di Internet bertebaran cara instalasi Turbo Pascal pada Windows. Kali ini saya tertarik untuk membuat panduan instalasi Turbo Pascal pada Ubuntu. Langkah-langkahnya cukup mudah, yaitu:

  1. Buka Terminal (Shortcut pada umumnya adalah CTRL+ALT+T)
  2. Ketik sudo apt-get install dosbox
  3. Masukkan password anda
  4. Apabila ditanya untuk menginstall ketik y kemudian tekan enter
  5. Tunggu hingga dosbox selesai di install

Untuk Turbo Pascal sendiri klik di sini

Setelah Turbo Pascal di download, silahkan mengekstrak filenya ke tempat yang anda inginkan, dalam kasus ini saya extract di home folder (/home/[username] atau dapat disingkat dengan ~/). Setelah anda selesai mengekstrak file tersebut, anda dapat membuka dosbox dengan menggunakan command line dosbox atau membukanya dari launcher.

Untuk membuka Turbo Pascal terlebih dahulu anda harus menentukan Virtual Drive Letternya dengan mengetik

MOUNT X /home/[username]/TP/

Pada layar DOSBox. Untuk X dapat diganti dengan huruf alfabet kesukaanmu dan untuk /home/[username]/TP/ adalah tempatmu meletakkan folder TP yang diekstrak tadi.

Jika sudah anda dapat mount virtual drivenya dengan mengetik X:

Untuk memastikan anda sudah berada di dalam folder TP anda dapat mengetik DIR dan jika hasilnya persis dengan isi folder TP maka anda melakukannya dengan benar.

Untuk langkah terakhir ketik BIN\TPX.EXE atau BIN\TURBO.EXE

Jika benar anda akan membuka Turbo Pascal.

Untuk panduan konfigurasinya akan saya buat lain kali jika ada waktu atau anda dapat mengunjungi website ini

Sekian panduan Menginstall DOSBox Emulator dan Turbo Pascal pada Ubuntu jika ada salah dan kekurangan mohon dimaafkan. Jika ada yang perlu diperbaiki tolong diberitahukan demi kebaikan blog ini kedepannya. Sekian dari saya dan terima kasih banyak.