Program segiempat;
uses wincrt;
type titik=record
x:integer;
y:integer;
end;
var
a:array [1..2] of titik;
i,luas,panjang,lebar:integer;
begin
writeln('(1)********');
writeln(' ********');
writeln(' ...
Monday, February 27, 2012
Menghitung luas segitiga dalam pascal versi 1
Program segitiga;
uses wincrt;
type point=record
absis:integer;
ordinat:integer;
end;
var
titik:array [1..3] of point;
i,alas,tinggi:integer;
jawaban:real;
begin
writeln(' *(3) ');
writeln('...
Wednesday, February 22, 2012
Subscribe to:
Posts (Atom)