Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma
"Delphi" Programlama dilinde "Üç Kenarı Verilen Bir Üçgenin Alanını Bulma" ile ilgili kod örneği aşağıdadır.
program Main;
uses System;
var
a, b, c: Integer;
s, area: Double;
begin
Writeln('1. kenarı giriniz:');
ReadLn(a);
Writeln('2. kenarı giriniz:');
ReadLn(b);
Writeln('3. kenarı giriniz:');
ReadLn(c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then
begin
s := (a + b + c) / 2.0;
area := Sqrt(s * (s - a) * (s - b) * (s - c));
Writeln('Üçgenin Alanı: ', area);
end
else
Writeln('Üçgenin Alanı yoktur');
end.