Kiểm tra tam giác, tính chu vi, diện tích tam giác, hình tròn

Kiểm tra 3 cạnh tam giác.

Đề bài: Viết chương trình nhập ba số dương bất kỳ, kiểm tra ba số vừa nhập có phải là ba cạnh của tam giác không? Nếu phải thì cho biết chu vi và diện tích của tam giác đó.

Hướng dẫn: Trong tam giác thì tổng 2 cạnh lớn cạnh còn lại và khi đã biết chi vi của tam giác thì bạn dùng công thức Heron để tính diện tích của nó.

với p là nửa chu vi của tam giác:

Công thức Heron còn có thể được viết:

hoặc

Program Kiem_tra_tam_giac;
Uses CRT;
Var a,b,c,cv,s,p: real;
BEGIN
  Clrscr;
  Writeln(‘Nhap chieu dai cua canh thu nhat (a)’); readln(a);
  Writeln(‘Nhap chieu dai cua canh thu 2 (b)’); readln(b);
  Writeln(‘Nhap chieu dai cua canh thu ba (c)’); readln(c);
  If(a+b>c) And(a+c>b) And(b+c>a) then
    Begin
      Cv:=a+b+c; p:=c/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));
      Writeln(‘Ba so vua nhap la ba canh cua tam giac’);
      Writeln(‘Chu vi cua tam gia la ’, cv:4:2);
      Writeln(‘Dien tich cua tam giac la ’, s:6:2);
    End
  Else 
    Writeln(‘Ba so vua nhap khong phai la ba canh cua tam giac’);
  Readln
End.

Đề bài tương tự : Nhập vào bán kính xuất ra màn hình chu vi và diện tích của hình tròn.

Program Tinh_chu_vi_va_dien_tich_hinh_tron;
Uses crt;
Var r:integer;
Begin
     Clrscr;
     write('Nhap do dai ban kinh:');     Readln(r);
     writeln('Chu vi hinh tron :',2*3.14*r:5:2);
     writeln('Dien tich hinh tron:',3.14*r*r:5:2);
     Readln;
End.