Vsota kvadratov prvih 100 stevil
V urejevalniki teksta napisemo naslednji program:

program vsotakvadratov
integer i,vsota
vsota=0
do i=1,100
vsota=vsota+i**2
enddo
write(*,*)vsota
end program vsotakvadratov

do enddo uporabljamo, kadar tocno vemo kolikokrat moramo nekaj ponoviti.

Tekst sedaj shranimo kot datoteko vsota.f90 in prevedemo.

Nazaj na osnovno stran za numercne metode.