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!
 
404 Not Found

Server Error

404

Page Not Found

This page either doesn't exist, or it moved somewhere else.


That's what you can do