Potrebujem pomoct s pohybom auticka – Pascal – Fórum – Programujte.com

Potrebujem pomoct.. mam naprogramovat auticko v pascale aby sa pohybovala z jednej strany obrazovky na druhu...

Pokusam sa to a stale mi auticko stoji na mieste... neviem kde mam chybu.... pouzila som proceduru kde som si cez write a gotoxy nakreslila auticko... av cykle si ho volam.. netusim ako ho posunut aby mi ho nepisalo na to iste miesto nic co som skusila nefunguje... dakujem!!

Co tak sem hodit kod, to by hodně pomohlo. Jinak úloha je celkem snadná, stačit postupně měnit souřadnice, na kterých se auto vykresluje. Samozřejmě musíš zároveň mazat ty body, které jsou za současnou polohou auta.

:smile11:
Buď zapomínáš měnit souřadnici autíčka, nebo ji sice měníš, ale nepoužíváš ji v tom Gotoxy. Ukaž zdroják, jinak ti nepomůžu (ne že bych nechtěl, jenom nevím jak).

Edit: z_moravec byl rychlejší :-)

To z_moravec :

uz sedim pri tom tolko ze uz neviem ani zaklady pascalu... :( proste v hlave to mam a v reali mi to nijako nefunguje... poslednu variatnu ked uz skusam vselico som zavesila...

K xovým parametrům Gotoxy přičti parametr a, k yovým b. Pak se ti bude kreslit tam, kam chceš.

To Mircosoft :
v hlavnom cykle?

Ne, v proceduře Auto: Gotoxy(a+2,b+5); atd.

Mimochodem, ten cyklus nějak nechápu. Tipoval bych, že potřebuješ:
1) smazat autíčko z aktuální pozice (auto(něco,něco,true);),
2) nakreslit ho na novou (auto(něco+1,něco,false);),
3) a chvilku počkat (delay).
Což jsou tři řádky a ne devět...

viz Mircosoft. Vykresluješ neustále stejný objekt na stejné pozici. Musíš použít ty souřadnice, které předáváš proceduře auto.

na zaciatkTo Mircosoft :
nazaciatku boli tri a ked to neslo sa postupne pridavali..:D...

skusila som ako ste mi poradili a teraz sa zase auticko javi ze cyklus presiel len raz a nie cez cyklus viac krat....

Zkus třeba prodloužit čekání, se 150 ms proběhne celý cyklus za 1.5 sekundy a třeba sis toho ani nevšimla...
Zdroják by byl?

To Mircosoft :

ja som fakt vygumovana.. teraz auticko 10 krat zablikalo a potom posunulo kurzor......

Koukám, že jsi a a b na začátku procedury nulovala, což je chyba.
Dovolil jsem si pár úprav a takhle by to mohlo fungovat:

program auticko;

uses crt;



var i:integer;



procedure auto(a,b:integer; farba:byte);

Begin

textcolor(farba);

gotoxy(a,b);   write('       ****   ');

gotoxy(a,b+1); write('       *   *  ');

gotoxy(a,b+2); write('       *    * ');

gotoxy(a,b+3); write('********     *');

gotoxy(a,b+4); write('*            *');

gotoxy(a,b+5); write('**************');

gotoxy(a,b+6); write('  ()      ()  ');

End;



BEGIN

clrscr;

for i:=1 to 20 do

  begin

  auto(i,10,0); {vymazani (cerna)}

  auto(i+1,10,15); {nakresleni (bila)}

  delay(150);

  end;

readln;

END.

To Mircosoft :
presne som toto napisala.. sice sa tam uz nieco hybe...ale prokaz write to da vsetrko do jedneho riadku...a prikaz writeln... posuva iba strechu auta...

To Mircosoft :
jaj nevsimla som si ze si to prerobil..:D... idem skusit..

parada..:D... uz zo ide..:)... DAKUJEM!!!!!!!