XProfan

Español

p.specht

In Werkstätten es gutes Licht para el Qualität el Arbeit wichtig. Lichtbänder bestehen de Leucht-Balken verschiedener Longitud. Ziel es, el Raumlänge nahezu sin Zwischenraum ("Gap") a füllen. Dabei sino que debe auch el Preis el Installation stimmen. Anbei mein Vorschlag, cómo hacerlo optimieren podría:

Kompilieren Marca Separación

Título de la ventana "Lichtband-Raumeinpassung con 3 Längen"
'(D) DEMO-PROGRAMM, NUR FÜR PRIVATE ZWECKE UND OHNE JEDWEDE GEWÄHR!
declarar il&,jl&,kl&
declarar ip&,jp&,kp&
declarar mp&,rp&
declarar Raumlaenge&
declarar Montagetoleranz&
declarar i&,j&,k&, L&,Gap&
cls:font 1

REPEAT

    Imprimir "\n Raumlaenge [cm]: ";:input Raumlaenge&:imprimir
    'caso Raumlaenge&=0:Raumlaenge&=356 'cm
    Montagetoleranz&=11'cm absolut pro Raum
    'Abmessungen: Longitud el verfügbaren Lichtbalken
    il&=45:jl&=70:kl&=100
    'Balkenpreis
    ip&=17:jp&=24:kp&=35
    'Montagekosten pro Balken:
    mp&=6
    'Raumfixe Kosten (Verrohrung, Schalter, Dosen)
    rp&=42

    whileloop 0,20:i&=&Loop

        whileloop 0,30:j&=&Loop

            whileloop 0,50:k&=&Loop

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

                if L&<=Raumlaenge&

                    gap&=int(Raumlaenge&-L&)

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

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

                        if %csrlin>30:sound 200,20:waitinput:cls:imprimir:endif

                        endif

                    endif

                endwhile

            endwhile

        endwhile

        sound 2000,40
        waitinput 1000

    UNTIL %key=27