Advertisement
Guest User

Untitled

a guest
Apr 19th, 2019
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.68 KB | None | 0 0
  1. program triangle;
  2. uses crt, math;
  3. var
  4. a,b,c: real;
  5. biggest: real;
  6. ttype: real;
  7. begin
  8. write('a = ');
  9. readln(a);
  10.  
  11. write('b = ');
  12. readln(b);
  13.  
  14. write('c = ');
  15. readln(c);
  16.  
  17. biggest := max(c, max(a,b));
  18.  
  19. if (biggest = a) then
  20.         begin
  21.             ttype := a*a - (b*b + c*c);
  22.         end;
  23. if (biggest = b) then
  24.         begin
  25.            ttype := b*b - (a*a + c*c);
  26.         end;
  27.  
  28. if (biggest = c) then
  29.         begin
  30.                 ttype := c*c - (a*a + b*b);
  31.         end;
  32.  
  33. if (ttype = 0) then writeln('Triangle has 90 degrees angle.');
  34. if (ttype > 0) then writeln('Triangle has dumb-angle.');
  35. if (ttype < 0) then writeln('Triangle is sharp-angled.');
  36. readln;
  37.  
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement