Cara Membuat Progran Penghitung Luas Bangun Datar dengan Menggunakan Pascal

1. Buka Aplikasi Bahasa Pascal
2. Kemudian tulis Skrip dibawah ini ke dalam Pascal :

Program Luas_Bangun_Datar;
Uses Crt;

Procedure TampilMenu;
Begin
textcolor(12);gotoxy(25,8);write('1.Luas Segitiga');
textcolor(12);gotoxy(25,10);write('2. Luas Lingkaran');
textcolor(12);gotoxy(25,12);write('3. Luas Persegi');
textcolor(12);gotoxy(25,14);write('4. Luas Persegi Panjang');
textcolor(12);gotoxy(25,16);write('5. Luas Trapesium');
textcolor(12);gotoxy(25,18);write('6. Keluar');
End;

Procedure Luas_Segitiga(a,t:integer; var L: real);
begin
L:=(1/2)*a*t;
end;

Procedure Luas_Lingkaran(r:integer; var L:real);
begin
L:=3.14*r*r;
end;

Procedure Luas_Persegi(s:integer; var L:real);
begin
L:= s*s;
end;
Procedure Luas_Persegi_Panjang(p,y:integer; var L:real);
begin
L:= p*y;
end;
Procedure Luas_Trapesium(a,b,t:integer; var L:real);
begin
L:= (1/2)*(a+b)*t;
end;

Var
jawab:char;
alas,tinggi,sisi,jarijari,panjang,lebar,angka1,angka2 :integer;

Luas : real;
{****** Program Utama ******}
begin
clrscr;
repeat
TampilMenu;
textcolor(14);gotoxy(25,22);
write('Pilihan anda :');readln(jawab);
if jawab='1' then
begin
clrscr;
write('Masukkan alas :');
readln(alas);
write('Masukkan tinggi :');readln(tinggi);
Luas_Segitiga(alas,tinggi,Luas);
writeln('alas : ',alas);
writeln('tinggi : ',tinggi);
writeln('Luas : ',Luas:6:2);
end;
if jawab = '2' then
begin
clrscr;
write('Masukkan jarijari :');
readln(jarijari);
Luas_Lingkaran(jarijari, Luas);
writeln('jari-jari : ',jarijari);
writeln('Luas :',Luas:6:2);
end;
if jawab = '3' then
begin
clrscr;
write('Masukkan sisi :');
readln(sisi);
Luas_Persegi(sisi,Luas);
writeln('sisi : ',sisi);
writeln('Luas :',Luas:6:2);
end;
if jawab = '4' then
begin
clrscr;
write('Masukkan panjang :');
readln(panjang);
write('Masukkan lebar :');readln(lebar);
Luas_Persegi_Panjang(panjang,lebar,Luas);
writeln('panjang : ',panjang);
writeln('lebar :',lebar);
writeln('Luas :',Luas:6:2);
end;
if jawab = '5' then
begin
clrscr;
write('Masukkan nilaiA :');
readln(angka1);
write('Masukkan nilaiB :');readln(angka2);
write('Masukkan tinggi :');readln(tinggi);
Luas_Trapesium(angka1,angka2,tinggi,Luas);
writeln('nilai a : ',angka1);
writeln('nilai b : ',angka2);
writeln('tinggi : ',tinggi);
writeln('Luas :',Luas:6:2);
end;
until jawab='6';
end.

3. Kemudian Simpan dengan nama sesuka Hati,,,
4. Selesai Sudah, tinggal mencoba,,,,,,,,

Nb: Bila Mau Praktek / latihan di malam hari jangan lupa Siapin Coffe yaaaaaaaaaaaaaaa