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?: 
No votes yet
Ả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

 
Khái niệm thiết kế điện thoại Facebook và Nokia Lumia Elements

Khái niệm thiết kế điện thoại Facebook và Nokia Lumia Elements

Với một chiếc điện thoại Facebook, người dùng Facebook có thể truy cập vào trang web mạng xã hội này bất cứ nơi nào tại bất kì thời điểm nào, một lợi thế rất lớn so với những thiết bị khác.

Xem qua những ưu điểm của Backdrop CMS, Drupal backdrop

Xem qua những ưu điểm của Backdrop CMS, Drupal backdrop

Ethan Teague of CivicActions provides a nice overview of Backdrop CMS.

Facebook bắt đầu triển khai dự án Internet miễn phí

Internet.org là đại diện cho tham vọng của Facebook đem Internet miễn phí đến người dùng trên toàn thế giới

Tomdesgin.vn

 

Drupal Services