a "SIMPSINT"b ---------------------------------------------------------------------->b BESTIMMTES INTEGRAL MITZb( PC 1715 UND DRUCKERzb2 auf KC85/4 von JeHaSoftb< ----------------------------------------------------------------------bF::( ):  ) "A c h t u n g !"%cP:  ) "Der Integrand musz als BASIC-Zeile"WcZ:  ) "500 FX =........................."xcd:  ) "programmiert sein"cn: ) "> E N T E R <"cxWZ$$()c "Untere Grenze Xu = ";XUc "Obere Grenze Xo = ";XOd "zul. Fehler in % von I = ";Fd::FIFd+dXXO: : SFXCdXXU: : SFXSYdN: DX(XOXU)Nmd J N d : GNFXGNd JdDX(XOXU)Nd J N d : UNFXUNd JdI(SUNGN)DXeDI(I1I): D1(FII)e" DID1 ^(e, N THe6I1I: GNGNUN: UN: NNRe@ eJ AUSGABE AUF DEN BILDSCHIRM -----------------------------------------eT:  ) "Fehler > "; F; " % von I"e^:  ) "Integral I = "; Ifh:  ) "Fehler < "; (I1I)jfr AUSGABE AUF DRUCKER ---------------------------------------------------f|"==================================="f "Berechnung des bestimmten Integrals"f"==================================="g: "in den Grenzen"6g "von Xu = "; XU; " bis Xo = "; XO: hg N "Genauigkeit nicht erreichbar": g "Integral I = "; Ig "Fehler < "; (I1I)g "fuer den programmierten Integranden"g %h Upro ----------------------------------------------------------------3hXXUJDXDhFX (X)XJhPh%h Upro ----------------------------------------------------------------3hXXUJDXDhFX