Mọn người viết cho mình cái chương trình này : Đề : Kiểm tra xem 3 số bất kì có phải là cạnh của tam giác ko ?

0 bình luận về “Mọn người viết cho mình cái chương trình này : Đề : Kiểm tra xem 3 số bất kì có phải là cạnh của tam giác ko ?”

1. Program Kiem_tra_tam_giac;

   Uses crt;

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

   BEGIN

   Clrscr;

   Writeln(‘nhap so thu nhat’); readln(a);

   Writeln(‘nhap so thu hai’); readln(b);

   Writeln(‘nhap so thu ba’); 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, ‘ dien tich cua tam giac la’, s:6:2);

   End

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

   Readln;

   End.

   Bình luận

2. program Canh_Cua_Tam_Giac;

   uses crt;

   var x,y,z : real;

   begin   

   Clrscr;

   writeln(‘Nhap 3 so x,y,z :’); readln(x,y,z);

   if (x+y > z ) and (x+z >y) and ( z+y > x) then writeln (‘x,y,z la do dai 3 canh cua mot tam giac’)

   else writeln (‘x,y,z  khong la do dai 3 canh cua mot tam giac’);

   readln;

   end.

   Bình luận