Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program triangle;
- uses crt, math;
- var
- a,b,c: real;
- biggest: real;
- ttype: real;
- begin
- write('a = ');
- readln(a);
- write('b = ');
- readln(b);
- write('c = ');
- readln(c);
- biggest := max(c, max(a,b));
- if (biggest = a) then
- begin
- ttype := a*a - (b*b + c*c);
- end;
- if (biggest = b) then
- begin
- ttype := b*b - (a*a + c*c);
- end;
- if (biggest = c) then
- begin
- ttype := c*c - (a*a + b*b);
- end;
- if (ttype = 0) then writeln('Triangle has 90 degrees angle.');
- if (ttype > 0) then writeln('Triangle has dumb-angle.');
- if (ttype < 0) then writeln('Triangle is sharp-angled.');
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement