Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

80 Okunma Delphi

"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.
Üçgen Alan Kenar Delphi

İlginizi Çekebilir

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği

Delphi Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Ö ...