Kvadratna enacba v mnozici realnih stevil
V urejevalniki teksta napisemo naslednji program:

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

Ukaz implicit none se uporablja kadar zahtevamo da deklariramo vse spremenljivke.

if then elseif else endif stavek uporabimo, ko hocemo, da program nekaj naredi odvisno od pogoja.

Tekst sedaj shranimo kot datoteko kvadratna2.f90 in prevedemo.

Nazaj na osnovno stran za numercne metode.