Fahrstuhl 3 Etagen

[m.fuchs]

Man kann mehrere Bedingungen in einer bedingten Anweisung mit and verknüpfen, wenn alle diese Bedingungen zutreffen sollen.

Code: Alles auswählen

if (a > 5) and (a < 10) then begin
  WriteLn ('a ist 6, 7, 8 oder 9');
end;

[lazarus047]

Ok Danke

[Mathias]

Ich habe den Lift etwas abgeändert.
Jetzt ist es möglich über eine Konstante die Anzahl Etagen zu bestimmen.
Das Paint geht jetzt über einen Timer und nicht mehr über eine Schleife, welches das ganze Programm blockiert.