| products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Spillner-Linz/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: bug36923.jsp Sprache: Unknown
|
Untersuchungsergebnis.rtf Download desIsabelle {Isabelle[342] Haskell[388] Abap[516]}zum Wurzelverzeichnis wechseln {\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\ {\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\ {\*\generator Msftedit 5.41.15.1507;} \viewkind4\uc1\pard\lang1031\f0\fs16} \cf1 \f1 identification \cf0\f0 \cf1 \f1 division \cf0\f0 \cf2 \f1 . \cf0\f0 \par \cf1 \f1 program-id \cf0\f0 \cf2 \f1 . \cf0\f0 \cf4 \f1 calculate \cf0\f0 \cf2 \f1 . \cf0\f0 \par \cf6 \f1 *-------------------------------- \cf0\f0 \par \cf6 \f1 * aus Spillner /Linz S.41 \cf0\f0 \par \cf6 \f1 * Berechnung eines Gesamtpreises \cf0\f0 \par \cf6 \f1 *-------------------------------- \cf0\f0 \par \cf1 \f1 author \cf0\f0 . "JD". \par \cf1 \f1 date-written \cf0\f0 . 2.12.2005. \par \cf1 \f1 date-compiled \cf0\f0 . \par \cf1 \f1 data \cf0\f0 \cf1 \f1 division \cf0\f0 \cf2 \f1 . \cf0\f0 \par \cf1 \f1 working-storage \cf0\f0 \cf1 \f1 section \cf0\f0 \cf2 \f1 . \cf0\f0 \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 8 \cf0\f0 )V \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 result \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 8 \cf0\f0 )V99. \par \cf1 \f1 linkage \cf0\f0 \cf1 \f1 section \cf0\f0 \cf2 \f1 . \cf0\f0 \par \cf6 \f1 * Grundpreis des Fahrzeuges \cf0\f0 \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 baseprice \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 8 \cf0\f0 )V99. \par \cf6 \f1 * Sondermodellaufschlag \cf0\f0 \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 specialprice \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 8 \cf0\f0 )V99 \par \cf6 \f1 * Preis der Zusatzausstattung \cf0\f0 \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 extraprice \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 8 \cf0\f0 )V99. \par \cf6 \f1 * Anzahl der Zusatzausstattungen \cf0\f0 \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 extras \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 4 \cf0\f0 )V99. \par \cf6 \f1 * Händlerrabatt \cf0\f0 \par \cf3 \f1 77 \cf0\f0 \cf4 \f1 discount \cf0\f0 \cf2 \f1 pic \cf0\f0 9(\cf2 \f1 8 \cf0\f0 )V99. \par \cf1 \f1 procedure \cf0\f0 \cf1 \f1 division \cf0\f0 \cf1 \f1 using \cf0\f0 \cf4 \f1 baseprice \par \cf4 \f1 specialprice \cf0\f0 \cf2 \f1 , \cf0\f0 \par \cf4 \f1 extraprice \cf0\f0 \cf2 \f1 , \cf0\f0 \par \cf4 \f1 extras \cf0\f0 \cf2 \f1 , \cf0\f0 \par \cf4 \f1 discount \cf0\f0 \cf2 \f1 . \cf0\f0 \par \cf6 \f1 * ermittle den Gesamtpreis \cf0\f0 \par \cf1 \f1 if \cf0\f0 \cf4 \f1 extras \cf0\f0 \cf2 \f1 > \cf0\f0 \cf2 \f1 = \cf0\f0 \cf3 \f1 3 \cf0\f0 \par \cf1 \f1 else \cf0\f0 \cf1 \f1 if \cf0\f0 \cf4 \f1 extras \cf0\f0 \cf2 \f1 > \cf0\f0 \cf2 \f1 = \cf0 \par \cf1 \f1 else \cf0\f0 \cf1 \f1 move \cf0\f0 \cf3 \f1 0 \cf0\f0 \cf1 \f1 to \cf0\f0 \cf4 \f1 addon- \par \par \cf1 \f1 if \cf0\f0 \cf4 \f1 discount \cf0\f0 \cf2 \f1 > \cf0\f0 \cf4 \f1 addon-discount \cf0\f0 \par \cf1 \f1 move \cf0\f0 \cf4 \f1 discount \cf0\f0 \cf1 \f1 to \cf0\f0 \cf4 \f1 addon-discount \cf \par \par \cf1 \f1 compute \cf0\f0 \cf4 \f1 result \cf0\f0 \cf2 \f1 = \cf0\f0 \par \cf4 \f1 baseprice \cf0\f0 \cf2 \f1 / \cf0\f0 \cf3 \f1 100 \cf0\f0 \cf2 \f1 * \cf0\f0 \cf2 \f1 ( \c \par \cf2 \f1 + \cf0\f0 \cf4 \f1 specialprice \cf0\f0 \par \cf2 \f1 + \cf0\f0 \cf4 \f1 extraprice \cf0\f0 \cf2 \f1 / \cf0\f0 \cf3 \f1 100 \cf0\f0 \cf2 \f1 * \ \par \par \cf1 \f1 display \cf0\f0 \cf2 \f1 "Gesamtpreis des Fahrzeuges =" \cf0\f0 \cf4 \f1 result \cf0\ \par \par \cf1 \f1 end-program \cf0\f0 \cf4 \f1 calculat \cf0\f0 \cf2 \f1 e \cf0\f0 . } [ zur Elbe Produktseite wechseln0.136Quellennavigators ] |