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

233 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 Bir Stringi Ters Çevirmek

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

Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği

Delphi Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği