XProfan

English

p.specht

In workshops is good light for quality the work important. Lichtbänder consist of Leucht-beam verschiedener length. target is it, The Raumlänge almost without Zwischenraum ("Gap") To fill. thereby but should too the Price the installation voices. enclosed my suggestion, How to the optimize could:

Compile Mark Separation

Window Title "Lichtband-Raumeinpassung with 3 Längen"
'(D) DEMO-PROGRAMM, ONLY FOR 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

    Print "\n Raumlaenge [cm]: ";:input Raumlaenge&:print
    'case Raumlaenge&=0:Raumlaenge&=356 'cm
    Montagetoleranz&=11'cm utterly per space
    'dimensions: length the available Lichtbalken
    il&=45:jl&=70:kl&=100
    'Balkenpreis
    ip&=17:jp&=24:kp&=35
    'Montagekosten per beam:
    mp&=6
    'Raumfixe cost (Verrohrung, switch, cans)
    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&)

                        print " type I = ";i&;", J = ";j&;", k = ";k&;"  Montage-Gap=";gap&;" [cm]",
                        print tab(56);" cost: ";int(RP&+mp&*(i&+j&+k&)+i&*ip&+j&*jp&+k&*kp&);" [u]"

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

                        endif

                    endif

                endwhile

            endwhile

        endwhile

        sound 2000,40
        waitinput 1000

    UNTIL %key=27