XProfan

Français

p.specht

dans Werkstätten ist gutes Licht pour qui la qualité qui travail important. Lichtbänder bestehen aus Leucht-poutre verschiedener Longueur. but ist es, qui Raumlänge nahezu sans Zwischenraum ("Gap") trop füllen. Dabei mais devrait aussi qui Preis qui installation stimmen. Anbei mon Vorschlag, comment on cela optimaliser pourrait:

Kompilieren Marque Séparation

Titre de la fenêtre "Lichtband-Raumeinpassung avec 3 Längen"
'(D) DEMO-PROGRAMM, NUR D' PRIVATE ZWECKE UND OHNE JEDWEDE GEWÄHR!
declare il&,jl&,kl&
declare ip&,jp&,kp&
declare mp&,rp&
declare Raumlaenge&
declare Montagetoleranz&
declare i&,j&,k&, L&,Gap&
cls:font 1

REPEAT

    Imprimer "\n Raumlaenge [cm]: ";:input Raumlaenge&:imprimer
    'cas Raumlaenge&=0:Raumlaenge&=356 'cm
    Montagetoleranz&=11'cm absolu pro espace
    'Abmessungen: Longueur qui verfügbaren Lichtbalken
    il&=45:jl&=70:kl&=100
    'Balkenpreis
    ip&=17:jp&=24:kp&=35
    'Montagekosten pro poutre:
    mp&=6
    'Raumfixe coûter (Verrohrung, commutateur, Dosen)
    rp&=42

    whileloop 0,20:i&=&Boucle

        whileloop 0,30:j&=&Boucle

            whileloop 0,50:k&=&Boucle

                L&= i&*il&+j&*jl&+k&*kl&

                si L&<=Raumlaenge&

                    gap&=int(Raumlaenge&-L&)

                    si (gap&>=0) and (gap&<Montagetoleranz&)

                        imprimer " Typ I = ";i&;", J = ";j&;", K = ";k&;"  Montage-Gap=";gap&;" [cm]",
                        imprimer tab(56);" coûter: ";int(RP&+mp&*(i&+j&+k&)+i&*ip&+j&*jp&+k&*kp&);" [U]"

                        si %csrlin>30:sound 200,20:waitinput:cls:imprimer:endif

                        endif

                    endif

                endwhile

            endwhile

        endwhile

        sound 2000,40
        waitinput 1000

    UNTIL %clé=27