MCVSMtreppe Miscellaneous ;DtreppegClick to insert. è! é$ åé7 é: è;ÿÿÿ|÷…›÷°à è! é$ åé7 é: è;ÿÿÿ®°®° ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùù€€€ü@@@@C„C„C„@@@@ü¾ × ðhšhe3breite1.2 stufenhšhe.17procedure sabina; var l, h, b, sh, sl, ush, v, summe, t : real; s, i, j, y : integer; begin b := PBREITE; {Breite der Treppe} h := PH…HE; {Hšhe der Treppe} ush := PSTUFENH…HE; {ungefŠhre Stufenhšhe} summe := 0.63; {Schrittweite} v := h/ush; {optimale Anzahl Stufen} s := v; {reale Anzahl Stufen} sh := h/s; {Stufensteigung} sl := summe-2*sh; {Stufenauftritt} l := s*sl; {LŠnge der Treppe} t := sl+sh; {Summe der Stufensteigung und -auftritt} i := s; {Rechnungsgršsse} j := s; {Rechnungsgršsse} y := s; {Rechnungsgršsse} {------------------------------------------------------------------} rect(0,0,b,l); {Boden} rect(0,l,b,l+h); {RŸckwand} {-----------------} for i := 0 to s-1 do begin rect(0,l+h+i*t,b,l+h+i*t+sl); rect(0,l+h+i*t+sl,b,l+h+(i+1)*t); end; {-----------------} moveto(0,0); for i := 0 to s-1 do begin lineto(-(i+1)*sh,i*sl); lineto(-(i+1)*sh,(i+1)*sl); end; lineto(0,l); {-----------------} moveto(b,0); for i := 0 to s-1 do begin lineto(b+(i+1)*sh,i*sl); lineto(b+(i+1)*sh,(i+1)*sl); end; lineto(b,l); end; run(sabina);