Startseite
  Archiv
  Gästebuch
  Kontakt
 


http://myblog.de/qwertz123

Gratis bloggen bei
myblog.de





plümchen

var j,k,n:integer;
begin
   initxyw(canvas,100,400,90);
   n:=SE1.Value;
   Canvas.pen.color:=clgreen;
   vw(canvas,100);
   Canvas.pen.color:=clyellow;
   for j:=1 to n do begin  vw(Canvas,50);
    for k:=1 to 3 do begin vw(Canvas,10); li(Canvas,360/3); end;
       vw(Canvas,-50); li (canvas,360/n); end;
18.1.07 11:19
 


bisher 0 Kommentar(e)     TrackBack-URL

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)



 Smileys einfügen



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung