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.



İlginizi Çekebilir

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi 1'den 100'e Kadar Çift Sayı Toplam Örneği

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi Fibonacci Serisinde N'inci Terimi Bulma Örneği

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...