Jump to content
lokika28

Sakktábla

Recommended Posts

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 :rolleyes:

 

előre is thx

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

Kösz T1k3

Share this post


Link to post
Share on other sites

Thanks !

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Bejelentkezés

Already have an account? Sign in here.

Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.

×