Viết chương trình con để kiểm tra tính chất của tam giác ?

0 bình luận về “Viết chương trình con để kiểm tra tính chất của tam giác ?”

1. uses crt;
   var a,b,c:extended;
   {—Kiem-tra—}
   function check(a,b,c:extended):boolean;
         begin
               if (a>0) and (b>0) and (c>0) and ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
                     begin
                           check:=true;
                           write(‘3 canh vua nhap la 3 canh tam giac’);
                     end
               else begin
                     check:=false;
                     write(‘3 canh vua nhap khong phai la 3 canh tam giac’);
                     exit;
               end;
         end;
   {—Chuong-trinh-chinh—}
   BEGIN
         clrscr;
         write(‘Nhap 3 canh tam giac: ‘); readln(a,b,c);
         check(a,b,c);
         readln;
   END.

   Bình luận

2. program tam_giac;

   uses crt;

   var a,b,c:integer;

   {—Chuong-trinh-con—}

   function kt(a,b,c:integer):boolean;

   begin

         if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)

               then kt:=true

                     else kt:=false;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

         clrscr;

         write(‘Nhap so dai canh thu nhat: ‘);  readln(a);

         write(‘Nhap so dai canh thu hai: ‘);  readln(b);

         write(‘Nhap so dai canh thu ba: ‘);  readln(c);

        if kt(a,b,c) then write(‘La ba canh cua tam giac’)

              else write(‘Khong phai la ba canh cua tam giac’);

        readln;

   end.

   Bình luận