menghitung luas lingkaran menggunakan Foxpro


*PROSEDUR MENGHITUNG LUAS LINGKARAN
PROCEDURE LUAS
INPUT “MASUKKAN NILAI RADIUS LINGKARAN” TO RADIUS
LS=PI()*RADIUS^2
@5,0 SAY “LUAS LINGKARAN DENGAN R=”+STR(RADIUS)
@6,0 SAY “ADALAH                 =”+STR(LS,10,2)
RETURN

*PROSEDUR MENGHITUNG KELILING LINGKARAN
PROCEDURE KELILING
INPUT “MASUKKAN NILAI RADIUS LINGKARAN” TO RADIUS
KEL=2*PI()*RADIUS
@5,0 SAY “KELILING LINGKARAN DENGAN R=”+STR(RADIUS)
@6,0 SAY “ADALAH                     =”+STR(KEL,10,2)
RETURN

*PROSEDUR MENGHITUNG LUAS SEGITIGA
PROCEDURE LUASSEGITIGA
INPUT “MASUKKAN NILAI ALAS” TO ALAS
INPUT “MASUKKAN NILAI TINGGI” TO TINGGI
LS3=1/2*ALAS*TINGGI
@5,0 SAY “LUAS SEGITIGA DENGAN ALAS=”+STR(ALAS)
@6,0 SAY “DAN DENGAN TINGGI        =”+STR(TINGGI)
@7,0 SAY “ADALAH                   =”+STR(LS3,10,2)
RETURN

*PROSEDUR MENGHITUNG LUAS PERSEGI PANJANG
PROCEDURE LUASPP
PARAMETERS PANJANG,LEBAR
LUASPP=PANJANG*LEBAR
@5,0 SAY “LUAS PERSEGI PANJANG DENGAN”
@6,0 SAY “PANJANG=”+STR(PANJANG)
@7,0 SAY “LEBAR=”+STR(LEBAR)
@8,0 SAY “ADALAH=”+STR(LUASPP)
RETURN

Tags: ,

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s


%d bloggers like this: