program genelkokbulma
use hesapkitap
integer::derece
real::a,b,c,d,x1,x2,x3,delta
print*,"Kacinci dereceden kok bulacaksiniz?"
print*,"(Programdan cikmak icin 0 degerini giriniz)"
read*,derece
select case(derece)
case (0)
stop
case (1)
print*,"Ax+B=0 seklindeki denklemin A ve B degerlerini sirasiyla giriniz:"
read*,a,b
x1=-b/a
print*,"x degeri=",x1
print*
case (2)
print*,"Ax^2+Bx+C=0 seklindeki denklemdeki A,B ve C degerlerini sirasiyle giriniz:"
read*,a,b,c
call ikinciderece(a,b,c,x1,x2,delta)
if (delta<0.0) then
print*,"reel kok yoktur!"
print*
else
print*,"denklemin kokleri:"
print*,"x1=",x1," ","x2=",x2
print*
end if
case (3)
print*,"Ax^3+Bx^2+Cx+D=0 seklindeki denklemdeki A,B,C ve D degerlerini sirasiyle giriniz:"
read*,a,b,c,d
x1=ucuncuderece(a,b,c,d)
c=(a*x1**2+b*x1+c)
b=(a*x1+b)
call ikinciderece(a,b,c,x2,x3,delta)
if (delta<0.0) then
print*,"Denklemin koku=",x1
print*,"Baska reel kok yoktur!"
print*
else
print*,"denklemin kokleri:"
print*,"x1=",x1," x2=",x2," x3=",x3
print*
end if
case (4:)
print*,"Bu program 3.dereceden daha buyuk denklemleri cozemez!"
print*
end select
end program genelkokbulma