program menghitung luas lingkaran,segitiga, persegi panjang pada pascal

program menghitung;

uses crt;

var

Pilih : integer;

Luas,L,P,R,T,A : real;

begin

clrscr;

writeln('----------------------------------');

write('            PILIHAN               | ');

writeln;

writeln('----------------------------------');

write('1. menghitung luas lingkaran      |');

writeln;

writeln('');

write('2. menghitung luas segitiga       |');

writeln;

writeln('');

write('3. menghitung luas persegi panjan |');

writeln;

writeln('----------------------------------');

write('pilih nomor berapa [1..3] =');

readln(pilih);

writeln('----------------------------------');

case pilih of

1: begin

clrscr;

writeln('menghitung luas lingkaran');

writeln;

writeln('=========================');

write('masukkan jari-jari lingkaran = ');

readln(R);

writeln;

luas := pi*R*r;

writeln('luas lingkaran adalah =',luas:0:2);

writeln;

readln;

end;

2: begin

clrscr;

writeln('menghitung luas segitiga');

writeln;

writeln('========================');

write('masukkan alas = ');

readln(L);

writeln;

write('masukkan tinggi =');

readln(T);

writeln;

luas := 1/2*L*T;

writeln('luas segitiga adalah :',luas:0:2);

readln;

end;

3: begin

clrscr;

writeln('menghitung luas persegi panjang');

writeln;

writeln('===============================');

write('masukkan panjang = ');

readln(p);

writeln;

write('masukkan lebar = ');

readln(l);

writeln;

luas := p*l;

writeln('jadi luasnya adalah =', luas :0:2);

readln;

end;

end

end.

jadi hasilnya seperti di bawah ini

dan setelah dipilih salah satu nomor maka akan muncul seperti d bawah ini

SELAMAT MENCOBA YACH..................!!!!!!

Posted in: program pascal