Fortran90 Programme Gleichungsloeser
Beispielprogramm
Basiswissen
Eine Gleichung wird durch systemtatisches Probieren gelöst.
Quellcode
integer :: x,y
x=0
y=0
! Suche von 0 bis 1000 in Schrittweite 1
do x=0,1000,1
! Die zu lösende Gleichung:
y=4*x-800
! y ist der Funktionswert, der erreicht werden soll:
if (y==0) exit
end do
write (*,*) x
End program gleichungsloeser