ANSi Art File | 1994-08-22 | 522 b | 640x256 | 1-bit (2 colors)
ocr: Our solution to Uutside Assignment 2: separate (Tritest) function Tritype(Lenl, Len2, Len3 : in Integer) return Triangle is Answer : Triangle; begin if Len1 + Len2 <= Len3 or Len1 + Len3 <= Len2 or Len2 + Len3 <= Len1 then Answer := Not_a_Triangle: elsif Len1 = Len2 and Len2 = Len3 then Answer := Equilateral: elsif Len1 = Len2 or Len2 = Len3 or Len1 = Len3 then Answer := Isosceles; else Answer := Scalene; end if; return Answer; end Tritype;
(.png)
