Fortran - Üçgen Şartı Kontrolü

[turkmedia]

Üç kenar uzunluğu klavyeden girildiğinde üçgenin türünü ya da üçgen şartının sağlanmadığını belirten bir program yazınız.

program ucgen
write(*,*) 'ucgen kenar uzunluklarini giriniz'
read(*,*) a,b,c
if (a.lt.(b+c) .and. b.lt.(a+c) .and. c.lt.(a+b)) then
if (a.eq.b .and. b.eq.c)then
write(*,*)'bu ucgen eskenar ucgendir'
else if ((a.eq.b .and. b.ne.c) .or.
&(b.eq.c .and. c.ne.a).or.
&(b.eq.c .and. c.ne.a))then
write(*,*)'bu ucgen ikizkenar ucgendir'
else
write(*,*)'bu ucgen cesitkenar ucgendir'
end if
else
write(*,*)'bu bir ucgen degildir'
end if
end