Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Kenar Uzunlukları Girilen Üçgenin Alanını Bulma


Kenar Uzunlukları Girilen Üçgenin Alanını Bulma

Pascal programlama dilinde yazılmış bu programda kenar uzunlukları girilen üçgenin alanı hesaplanmıştır. Üçgenin kenar uzunlukları kullanıcıdan alınmaktadır.Veri tipi olarak real kullanılmıştır.

Program Kodu:

  1.  
  2. uses crt;
  3. var
  4.  
  5. a,b,c,alan,u:real;
  6. c1:char;
  7.  
  8.  
  9. begin
  10.  
  11. while c1 <> '*'do
  12.  
  13. begin
  14.  
  15.  writeln('Degerlerini giriniz .. birinci kenar: ');
  16.  readln(a);
  17.  writeln('Degerlerini giriniz .. ikinci kenar: ');
  18.  readln(b);
  19.  writeln('Degerlerini giriniz .. ucuncu kenar: ');
  20.  readln(c);
  21.  
  22. u:=(a+b+c)/2;
  23. alan:=sqrt(u*(u-a)*(u-b)*(u-c));
  24.  
  25. writeln('Alan= ',alan);
  26. writeln('Programi sonlandirmak icin * karakterine basiniz');
  27. readln(c1);
  28.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!