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

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.