Wie kann ein Zeichen Spiralförmig am Bildschirm laufen?

[Sofa5000]

Probelem in Turbo Pascal!

Die Aufgabenstellung lautet:
Ein beliebiges Zeichen soll spiralförmig über den Bildschirmlaufen!

Wie geht das! Zur leichteren verständnis habe ich ein Ansicht wie das ausschauen soll! (Bisschen schlecht habe ich selbstgezeichnet!)

Danke im voraus!

http://home.tiscalinet.ch/datalive/nonehf/spiral.jpg

[sakura]

Ändere mal den Titel Deines Threads in eine etwas aussagekräftige Version :warn:

Was für ein Zeichen meinst Du :gruebel:

...:cat:...

[Luckie]

Zitat:

Zitat von sakura

Was für ein Zeichen meinst Du :gruebel:

Wer lesen kann....

Zitat:

beliebiges Zeichen

[Sofa5000]

kann mir den niemand helfen???? :( :( :(

[sakura]

Ändere bitte den Titel :warn:

...:cat:...

[Luckie]

Hast du denn wemfalls schon einen Ansatz den du uns mal zeigen könntest?

[devnull]

Könnte man das nicht einfach so realisieren, dass man die Position des Zeichens
> wenn man nach rechts geht X := X + 5; (in Pixel)
> " " " links geht X := X - 5;
nach oben und unten dann genauso, nur das hier halt x := 0; ist ...

Die Anzahl der Verschiebungen ist ja dann eigentlich belieb.

[Sofa5000]

Delphi-Quellcode:

begin
     x:=-1;
     y:=1;
     repeat
           y:=y+f;
           for i:=1 to 80-f do begin
               clrscr;
               x:=x+1;                                            
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           x:=x-f;
           for i:=1 to 25-f do begin
               clrscr;
               y:=y+1;
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           y:=25;
           y:=y-f;
           for i:=1 to 80-f do begin
               clrscr;
               x:=x-1;
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           x:=1;
           x:=x+f;
           for i:=1 to 25-f do begin
               clrscr;
               y:=y-1;
               gotoxy(x,y);
               write('*');
               for j:=1 to 5000000 do;
           end;
           f:=f+1;
           x:=-1;
           y:=1;
     until (f=13);
     donewincrt;
end.

Ich habe das jetzt so! Das geht schon fast! Es ist nur wenn ich es ausführe springt er immer zu den Eckpunkten und dann erst dorthin wo er hin soll!

[devnull]

Frage: Sicher das das so mit Delphi geht ??????
Das sieht nach borland pascal aus ...
clrscr; gotoxy

[Luckie]

Soll auch mit Borland Pascal gemacht werden. Stand erst so im Titel.