Resitev kvadratne enacbe
Program naj resi kvadratno enacno in izpise resitve

program kvadrat
implicit none
real :: a,b,c,d,x1,x2
write (*,*) "vnesi parametre kvadratne enacbe"
read (*,*) a,b,c
d=b**2-4e0*a*c
if (d.eq.0) then
   x1=-b/2e0/a
   write(*,*)'x1,2=',x1
   elseif (d.gt.0) then
   x1=(-b+sqrt(d))/2e0/a
   x2=(-b-sqrt(d))/2e0/a
   write(*,*)'x1=',x1
   write(*,*)'x2=',x2
   else
   x1=-b/2e0/a
   x2=sqrt(abs(d))/2e0/a
   write(*,*)'x1=',x1,'+i',x2
   write(*,*)'x2=',x1,'-i',x2
   endif
end program kvadrat

Prikaz



Nazaj na osnovno stran za numercne metode.