Auto

[Sierra]

Endlich habe ich es geschafft.

Delphi-Quellcode:

program pRad4;

{$APPTYPE CONSOLE} 

uses
  mSum;

var
  meinBildschirm: Bildschirm; 
  meinBuntstift : Buntstift; 
  meineMaus     : Maus;
  Koordinaten, i   : Integer;

begin
//Initialisierung
  meinBildschirm:= Bildschirm.init;
  meinBuntstift := Buntstift.init;
  meineMaus     := Maus.init;

//Aktionsteil
begin
for Koordinaten:= 200 to 900 do
      begin
with meinBuntstift do
   begin
  bewegeBis(Koordinaten,400);
  zeichneKreis(50);
  bewegeBis(Koordinaten,400);
  runter;
  dreheUm(-1);
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45); 
  runter;
  bewegeUm(50);
  hoch; 
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50); 
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten,400);
  dreheUm(-45);
  runter; 
  bewegeUm(50);
  hoch;

  bewegeBis(Koordinaten+200,400);
  zeichneKreis(50);
  bewegeBis(Koordinaten+200,400);
  runter;
  dreheUm(-1);
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45); 
  runter;
  bewegeUm(50);
  hoch; 
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50); 
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter;
  bewegeUm(50);
  hoch;
  bewegeBis(Koordinaten+200,400);
  dreheUm(-45);
  runter; 
  bewegeUm(50);
  hoch;
warte(10);

repeat
until meineMaus.istGedrueckt;

with meinBildschirm do
     begin
     loescheAlles;
   end;
     end;
       end;
         end;
//Aufräumen
  meinBildschirm.gibFrei;
  meinBuntstift.gibFrei;
  meineMaus.gibFrei

end.

Ihr könnt es euch auch direkt downloaden.

Rechtsklick - Speichern unter.

Zum Bewegen der Räder, einfach die Linke Maustaste gedrückt halten.

Wie kann ich denn auch noch ein "Auto" auf die Räder setzen?
Muss das in der gleichen Schleife oder in einer neuen Schleife geschehen?