Viết chương trình nhập vào 3 số a ,b, c bất kì. Kiểm tra xem 3 cạnh đó có thể là độ dài 3 cạnh của 1 tam giác hay không? Nếu có thì in in ra màn hình

0 bình luận về “Viết chương trình nhập vào 3 số a ,b, c bất kì. Kiểm tra xem 3 cạnh đó có thể là độ dài 3 cạnh của 1 tam giác hay không? Nếu có thì in in ra màn hình”

1. Uses crt;
   var a,b,c:longint; p:real;
   begin
   clrscr;
      write(‘a,b,c=’);readln(a,b,c);
      if (a+b>c)and(a+c>b)and(b+c>a) then
         begin
            writeln(‘Day la 1 tam giac.’);
            p:=(a+b+c)/2;
            Writeln(‘Dien tich: ‘,sqrt(p*(p-a)*(p-b)*(p-c)):0:3);
         end else write(‘Day khong phai la 1 tam giac.’);
   readln
   end.

   //////////////////////////////////////

   Có diện tích.

   #Chúc học tốt.

   Trả lời

2. uses crt;

   var a,b,c:integer;

      p,s:real;

   begin

   clrscr;

   write(‘Nhap canh a:’);readln(a);

   write(‘Nhap canh b:’);readln(b);

   write(‘Nhap canh c:’);readln(c);

   p:=(a+b+c)/2;

   s:=sqrt(p*(p-a)*(p-b)*(p-c));

   if (a+b>c) and (b+c>a) and (a+c>b) then write(‘ Do la ba canh cua tam giac’);

   writeln(‘Dien tich cua tam giac la:’,s:10:2)

   else writeln(‘Do ko phai la ba canh cua tam giac’);

   readln;

   end.

   Trả lời