Sakktábla

[lokika28]

hy azt kaptuk házinak hogy kell csinálni egy sakktáblát ciklussal de nemigazán vágom:S ha vki nagyjából megcsinálná nekem nagyon megköszönném szerda estig kéne legkésőbb

 

http://www.speedyshare.com/621772898.html

itt egy prog amit a tanár csinált ijet kéne csinálnom

 

előre is thx

[Markeee]

Hát a grafikába nem vok otthon,de sztem ezt egy for ciklussal és némi pozícionálással megcsinálhatod.

[vrnagy]

Egy szimpla sakktábla (Színezés és egyéb nélkül):

 

program sakktabla;
Uses crt, graph;
Const meret = 20;
Var i,k,gr,gd: integer;
Begin
  gd:=Detect;
  initgraph(gd,gr,'C:\TP7\bgi');
  For i:=0 to 7 do
    For k:=0 to 7 do
      rectangle(10+(i*meret),10+(k*meret),10+(i*meret)+meret,10+(k*meret)+meret);
  Readkey;
  CloseGraph;
End.

 

Const meret = 20;

A 20 a négyzetek szélessége és magassága, tetszőlegesen állítható

 

initgraph(gd,gr,'C:\TP7\bgi');

A "C:\TP7\bgi"-t cseréld le a saját BGI könyvtáradra

 

Ha gondolod íhatok egy színezőset is.

[lokika28]

hú köszi és ha télleg megcsinálnád a szinezőset is annak nagyon örülnék

[T1k3]

Itt van egy kis segítség főként hasznos könyvek + ráadás 2 program,a TP 7.0 és a DevPas (<-- tökéletes házi írására, korai Delphi-re hasonlító környezete van).

 

http://www.pirateclub.hu/index.php?showtopic=77618

 

[kopekicsigo]

Kösz T1k3

[szerzola]

Thanks !