Bài toán Pascal: Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình

Bài toán Pascal: Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình

Tính tam giác: Nụâp vào ba số a,b,c bất kì. Kiểm tra xem nó có thể  là độ dài ba cạnh hay không, nếu  không  thì in  ra màn  hình  ' Khong la ba  canh cua mot tam  giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.

Program TAMGIAC; 

Uses crt;

Var a,b,c,s,p : real; 

Begin

  Clrscr;

  Writeln(‘BAI TOAN TAM GIAC:’);

  Writeln('---------------------------------'); 

  Write('nhap a =');

  readln(a);

  Write ('nhap b =');

  readln(b); 

  Write('nhap c =');

  readln(c);

  If ((a+b)>c)and((b+c)>a)and((a+c)>b) then

  Begin

    p:=(a+b+c)/2;

    s:=sqrt(p*(p-a)*(p-b)*(p-c)); 

    Writeln('Chu vi tam giac:',2*p:4:2) ; 

    Writeln('Dien tich tam giac:',s:4:2);

  End

  Else

    Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac') ; 

    Readln;

End.
Bạn thấy bài viết này như thế nào?: 
Average: 10 (1 vote)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Smartphone Android 2014 có gì đáng xem

Smartphone Android 2014 có gì đáng xem

LG và Samsung đã mang đến cho người dùng sự xuất hiện của chiếc G Flex và Galaxy Round có thiết kế màn hình cong, còn Vivo và Japan Display

Facebook tích hợp tính năng “Nghe nhạc cùng bạn bè”

Facebook tích hợp tính năng “Nghe nhạc cùng bạn bè”

Mạng xã hội lớn nhất thế giới ngày hôm nay đã công bố ứng dụng “Listen With” cho phép người sử dụng của những dịch vụ cung cấp nhạc như Rdio hay Spotifi có thể cùng nghe một bài hát vào cùng một thời điểm thông qua Facebook.

"Virus" Rihanna lây lan "chóng mặt" trên Facebook

Virus Rihanna lây lan chóng mặt trên Facebook

Trong những ngày gần đây, nhiều người sử dụng Facebook đã bị sập bẫy "virus" ca sĩ Rihanna thông qua các đường link chia sẻ về cô ca sĩ này trên trang cá nhân.

 

Công ty diệt chuột T&C

 

Diet con trung