Untersuchungsergebnis.rtf Download desIsabelle {Isabelle[342] Haskell[388] Abap[516]}zum Wurzelverzeichnis wechseln
{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Fixedsys;}{\f1\fmodern\fprq1\fcharset0 Fixedsys;}
{\colortbl;\red255\green0\blue0;\red0\green0\blue255;\red0\green0\blue128;\red0\green0\blue0;\red128\green0\blue0;\red0\green128\blue0;\red128\green128\blue128;\red0\green128\blue128;\red255\green0\blue255;}
{\*\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 )V99.
\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 \cf0\f0 \cf2 \f1 , \cf0\f0
\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 \cf1 \f1 then \cf0\f0 \cf1 \f1 move \cf0\f0 \cf3 \f1 10 \cf0\f0 \cf1 \f1 to \cf0\f0 \cf4 \f1 addon-discount \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\f0 \cf3 \f1 5 \cf0\f0 \cf1 \f1 then \cf0\f0 \cf1 \f1 move \cf0\f0 \cf3 \f1 15 \cf0\f0 \cf1 \f1 to \cf0\f0 \cf4 \f1 addon-discount \cf0\f0
\par
\cf1 \f1 else \cf0\f0 \cf1 \f1 move \cf0\f0 \cf3 \f1 0 \cf0\f0 \cf1 \f1 to \cf0\f0 \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 . \cf0\f0
\par
\par
\cf1 \f1 if \cf0\f0 \cf4 \f1 discount \cf0\f0 \cf2 \f1 > \cf0\f0 \cf4 \f1 addon-discount \cf0\f0 \cf1 \f1 then \cf0\f0
\par
\cf1 \f1 move \cf0\f0 \cf4 \f1 discount \cf0\f0 \cf1 \f1 to \cf0\f0 \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 . \cf0\f0
\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 ( \cf0\f0 \cf3 \f1 100 \cf0\f0 \cf2 \f1 - \cf0\f0 \cf4 \f1 discount \cf0\f0 \cf2 \f1 ) \cf0\f0
\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 * \cf0\f0 \cf2 \f1 ( \cf0\f0 \cf3 \f1 100 \cf0\f0 \cf2 \f1 - \cf0\f0 \cf4 \f1 addon-discount \cf0\f0 \cf2 \f1 ) \cf0\f0 \cf2 \f1 . \cf0\f0
\par
\par
\cf1 \f1 display \cf0\f0 \cf2 \f1 "Gesamtpreis des Fahrzeuges =" \cf0\f0 \cf4 \f1 result \cf0\f0 \cf2 \f1 . \cf0\f0
\par
\par
\cf1 \f1 end-program \cf0\f0 \cf4 \f1 calculat \cf0\f0 \cf2 \f1 e \cf0\f0 . }
[ zur Elbe Produktseite wechseln0.221Quellennavigators
]
