Program Pascal Luas Bangun Datar

Nama : Muhammad Lathif Azmii            NPM :06201740013

Program Studi :Sistem Informasi  Matakuliah :Algoritma

1. {luas jajarangenjang}

Program Jajarangenjang;

Uses crt;

var

luas,a,t:real;

begin

clrscr;

writeln(‘==Program menghitung luas jajarangenjang==’);

readln;

write(‘Masukkan Alas:’);

readln(a);

write(‘Masukkan Tinggi:’);

readln(t);

luas:=a*t;

writeln(‘luas jajarangenjang=’,luas:0:0);

readln;

end.

Output

==Program menghitung luas jajarangenjang==

Masukkan Alas :2

Masukkan Tinggi:4

Luas jajarangenjang=8

2. {luas segitiga}

Program persegipanjang;

Uses crt;

var

luas,a,t:real;

begin

clrscr;

writeln(‘==Program menghitung luas segitiga==’);

readln;

write(‘Masukkan Alas:’);

readln(a);

write(‘Masukkan Tinggi:’);

readln(t);

luas:=(a*t)/2;

writeln(‘luas segitiga=’,luas:0:0);

readln;

end.

Output

==Program menghitung luas segitiga==

Masukkan Alas :3

Masukkan Tinggi:4

Luas segitiga=6

3. {luas persegipanjang}

Program persegipanjang;

Uses crt;

var

luas,p,l:real;

begin

clrscr;

writeln(‘==Program menghitung luas persegipanjang==’);

readln;

write(‘Masukkan panjang:’);

readln(p);

write(‘Masukkan Lebar:’);

readln(l);

luas:=p*l;

writeln(‘luas persegipanjang=’,luas:0:0);

readln;

end.

Output

==Program menghitung luas persegipanjang==

Masukkan Panjang   :2

Masukkan Nilai Lebar :6

Luas persegipanjpanjang=12

Attention!

Selalu Perhatikan tanda baca atau huruf  saat anda mengerjakannya dengan pascal, karena itu dapat berpengaruh saat anda mencobanya di pascal, jika tidak sesuai akan terjadinya sintax error.

==semoga dapat membantu anda mengerjakan tugas==

======Semoga bermanfaat======