Jawaban:

Nomor 1.

Buat program dengan input masukan :

---> panjang alas segitiga

---> panjang tinggi segitiga

Dengan keluaran luas segitiga dari panjang alas dan tinggi yang telah dimasukkan.

program luas_segitiga_pascal;

var

a, t, luas: double;

begin

write('Panjang alas segitiga : '); readln(a);

write('Panjang tinggi segitiga : '); readln(t);

luas := (a*t)/2;

writeln('Luas segitiga dari alas sepanjang ', a:0:0, ' dan tinggi ', t:0:0, ' = ', luas:0:2);

end.

Nomor 2.

Program yang dapat membaca masukkan :

--------> jari-jari (r)

Dengan keluaran luas lingkaran dari phi dan jari jari yang telah dimasukkan.

program luas_lingkaran_pascal;

var

phi, r, luas: double;

begin

phi := 3.14;

write('Masukkan nilai jari-jari : '); readln(r);

luas := round(3.14*r*r);

writeln('Luas lingkaran dari jari jari sepanjang ', r:0:0, '  dan phi ', phi:0:2, '  dengan rumus luas lingkaran = (phi x r x r) adalah ', luas:0:2);

end.