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

program kvadratna
implicit none
real::a,b,c
complex::x1,x2
read(*,*)a
read(*,*)b
read(*,*)c
x1=(-b+csqrt(cmplx(b**2-4*a*c)))/2./a
x2=(-b-csqrt(cmplx(b**2-4*a*c)))/2./a
write(*,*)x1
write(*,*)x2
end program kvadratna

Ukaz read se uporablja za branje iz ukazne vrstice ali datoteke.

complex uporabimo pri deklaraicji kompleksnih stevil.

cmplx spremeni realni tip stevila v kompleksni.

sqrt izracuna koren, csqrt pa koren kompleksnega stevila.

Tekst sedaj shranimo kot datoteko kvadratna.f90 in prevedemo.

Na naslednji sliki si oglejmo prevajanje in kaj program naredi.



Nazaj na osnovno stran za numercne metode.