PEMBAGIAN TURBO PASCAL 7

Coba bandingkan kedua program pembagian berikut ini

-------------------------------------------------

program LuasSegi_Tiga;
uses crt;

var alas,tinggi:Byte;
luas:integer;

begin
clrscr;
(* Luas segi tiga dengan menggunakan operator div sebagai *)
{ bilangan bulat, sedangkan untuk bilangan real gunakan operatot / }

clrscr;
write ('Masukan alas segitiga =');
readln (alas);
write ('Isi tingginya =');
readln (tinggi);

luas:=(alas*tinggi) div 2;

writeln ('(Alas x tinggi):2 =',luas);
writeln (alas,'x',tinggi,': 2 =',luas);
readln;
end.

-----------------------------------------------------------------

program Mencari_Luas_Segi_Tiga;
uses crt;

var
alas :real;
tinggi :real;
luas :real;

begin
clrscr;
writeln ('Luas Segitiga adalah Alas x Tinggi dibagi 2');
writeln;

write ('Masukan Alas Segitiga : ');
readln (alas);
write ('Masukan Tinggi Segitiga : ');
readln (tinggi);
luas:=(alas*tinggi)/2;
write ('Luas Segitiganya adalah =',luas);
readln;
end.