Új hozzászólás Aktív témák

• #1648 Cxgrav senior tag

  Új Válasz 2006-11-22 23:24:27 #1648

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Cxgrav

  senior tag

  Hali!
  
  Kezdő pascalozós vagyok, mindössze szeptember óta tanulnom.
  
  Most megkaptam az első ''kemény'' házit.
  
  Egy játékot kell írni. 3*3 cellás tábla van, 1-8ig feltöltve. A táblát csak kikell rajzolni nem ez a lényeg. Ugye így marad 1 üres cella. Amit tenni kell hogy a számokat sorrendbe kell helyezni iránygombokkal. Annyit már megtudtam csinálni hogy: kiiratok egy X-et és az mozog fel le. De ha kiiratom a 8 számot csak akkor nem tudom megmozdítani egyiket sem.
  
  1 2 3
  4 5 6
  7 8
  
  így nézne ki.
  Hogy kéne megírni procedurában hogy a 8 mozogjon az üres rész cellába vagy a 6 lefele. Utána meg a prg regisztrálja hogy most melyik cella üres és tudja hogy újabb pozícionálásnál melyik számokat lehet mozgatni?
  
  begin
  clrscr;
  x:=1;y:=1;
  gotoxy(x,y);
  write('x');
  repeat
  bill:=readkey;
  if bill=#77 then
  begin
  x:=x+1;
  gotoxy(x,y);
  write('x');
  end;
  
  if bill=#80 then
  begin
  y:=y+1;
  gotoxy(x,y);
  write('x');
  end;
  
  if bill=#75 then
  begin
  x:=x-1;
  gotoxy(x,y);
  write('x');
  end;
  
  if bill=#72 then
  begin
  y:=y-1;
  gotoxy(x,y);
  write('x');
  end;
  
  
  until bill=#27;
  end.
  
  Elismerem elég favágó stílus Ugye ilyenkor csak rajzolni lehet jópofán az X-el. De sajnos ennél jobban nem tudom megközelíteni a feladatot. Köszönöm
  
  [Szerkesztve]

Új hozzászólás Aktív témák