KOK BULMA

1 view
Skip to first unread message

abdullah erdi önüt

unread,
Mar 28, 2009, 1:34:16 PM3/28/09
to Bilgisayar_Programlama_Kou2o
program kok_bulma
real::a,b,c,delta,kok1,kok2
print*,"bu program verilmis olan denklemin koklerini bulur"
print*,"bu program ABDULLAH ERDI ONUT tarafindan yapilmistir."
print*,"tum haklari saklidir"

20 print*,"lutfen denklemin katsayilarini giriniz"
read*,a,b,c
delta=b*b-4*a*c
if(delta>0) then
print*,"reel kok vardir."
kok1=(-b+sqrt(delta))/(2*a)
kok2=(-b-sqrt(delta))/(2*a)
print*,kok1,kok2
goto 20
else
print*,"reel kok yoktur"
goto 20
end if

end program

Reply all
Reply to author
Forward
0 new messages