Membuat program sederhana_menghitung luas segitiga,lingkaran dan persegi panjang

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.










Langsung di copas,itu scrip buat di pascalGUI yg di andro klo buat di pc ganti "uses crt" menjadi "uses wincrt" (tanpa tanda petik) ...slamat mencoba. :)

Tweet