Beranda > Pemrograman Pascal > Menghitung Luas dalam Pascal

Menghitung Luas dalam Pascal


Ehm…setelah C++ dan PHP kini giliran Pascal yang menemani hari-hariku di semester4 ini, kalau C++ dulu punya Borland C++ Bulider, PHP punya Dreamweaver, XAMPP, dkk…nah punyanya si Pascal ini ya Borland Delphi… sebagai pemanasan, neh program dasar yang sebenarnya langsung dikonversi aje dari program di C++ dulu… neh program buat menghitung luas lingkaran dan persegi panjang yang dibuat dalam bentuk menu.

Program dalam Pascal

var x,r,p,l,l2:integer; l1: real;

begin

writeln (‘MENU’);

writeln (‘1. Menghitung Luas Lingkaran’);

writeln (‘2. Menghitung Luas Persegi’);

write (‘Masukkan pilihan Anda: ‘);

readln(x);

case x of

1: begin

write(‘masukkan jari-jari: ‘);

readln(r);

l1:=r*r*3.14;

write(‘luas lingkaran adalah ‘,l1:6:2);

end;

2: begin

write(‘masukkan panjang: ‘);

readln(p);

write(‘masukkan lebar: ‘);

readln(l);

l2:=p*l;

write(‘luas persegi adalah ‘,l2);

end;

end;

readln;

end.

hmmmm…kalau di C++ biasanya nemu “printf” nah di Pascal jadinya “write”, trus yang lainnya lihat di bawah:

C++ Pascal
printf write
scanf read
printf (“\n”); writeln
{ begin
} end.
i=0 i:=0
Kategori:Pemrograman Pascal Tag:
  1. zauharry
    April 3, 2012 pukul 9:24 pm

    siipp

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: