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

 
galaxy

Những thiết bị vi phạm của Samsung trong vụ kiện với Apple

Thẩm phán Lucy Koh và bồi thẩm đoàn đã tuyên án Samsung vi phạm các bằng sáng chế của Apple trên hầu hết các sản phẩm bị "nhà táo" cáo buộc. Rõ ràng điều này có ảnh hưởng không nhỏ đến uy tín cũng như các sản phẩm của hãng điện tử Hàn Quốc. Sau đây chúng ta sẽ cùng điểm qua 25 thiết bị vi phạm của Samsung trong vụ kiện tụng với Apple.

Facebook muốn tặng không smartphone cho người dùng

Facebook muốn tặng không smartphone cho người dùng

Hôm qua (25/11), trang công nghệ Businessinsider dẫn lời 2 nguồn tin thân cận với dự án Facebook Phone, cho biết giới lãnh đạo mong muốn tặng không dế cưng cho người dùng.

Western Digital ngừng sản xuất ổ đĩa cứng dùng giao tiếp PATA từ 29/12

Western Digital ngừng sản xuất ổ đĩa cứng dùng giao tiếp PATA từ 29/12

Western Digital (WD) vừa cho biết rằng họ sẽ dừng sản xuất các ổ cứng sử dụng cổng kết nối PATA(parallel-ATA) thuộc dòng Caviar kể từ ngày 29/12/2013.