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 Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
The State of Drupal: Building the Future

Theo dòng thời gian xây dựng CMS Drupal

Has it been six years already? I'm astounded. Drupal in 2004 was really really really different. 

Cách xem video bằng Quick Look trong Lion

Cách xem video bằng Quick Look trong Lion

Trong Snow Leopard, mỗi lần nhấn phím Space khi chọn một video, chức năng Quick Look sẽ chạy file đó trong Finder.

Gặp lỗi #1044 khi up website Drupal lên host

Gặp lỗi #1044 khi up website Drupal lên host

Hướng dẫn khi bị lỗi #1044 import sql lên host