Ein Einfeldträger wird durch eine konstante Streckenlast belastet. Der Träger ist an einem Endpunkten fest eingespannt und im Anderen  gelenkig gelagert. Gesucht ist der Biegemomentenverlauf im Träger.

Struktogramm

Eingabe von Länge und Linienlast
Berechnung des Stützmomentes in A
Berechnung der Auflagerkraft in A
 
Schleife über die Trägerlänge in 10 Schritten 
 
Berechnung des Biegemomentes an der aktuellen Position
Ausgabe der Position und des zugehörigen Biegemomentes
 
Der Quelltext in Fortran 90.

Tags