Domáca úloha – Pascal – Fórum – Programujte.com

Ahojte, prosím vás toto som bol schopný polepiť ako tak sám, mohli by ste mi pomôcť, potrebujem spraviť program v ktorom budem môcť hýbať hviezdičkou po obrazovke a ovládať ich šípkami :/ 
 

program project1;
uses crt;
var f:text;
a:array[1..100] of char;
i,pocet,x,y:integer;
procedure nacitanie;
var i:integer;
begin
assign(f,'subor');
reset(f);
while not eof(f)do
  begin
  inc(i);
  read(f,a[i]);
  end;
pocet:=i;
close(f);
end;
procedure vypis;
var i:integer;
begin
for i:=1 to pocet do
write(a[i]:2);

end;
begin
nacitanie;
vypis;
x:=20; y:=12; gotoxy(x,y); write('*');
for i:=1 to pocet do
begin
case a[i] of
'H': dec(y);
'D': inc(y);
'L': dec(x);
'P': inc(x);
'Q': begin dec(y); inc(x); end;
'W': begin dec(x); inc(y); end;
'E': begin inc(y); dec(x); end;
'R': begin inc(x); dec(y); end;
end;
gotoxy(x,y); write('*'); delay(50);
end;
end.          

A jak to souvisí s tím kódem, který jsi sem napsal? Ten dělá něco úplně jiného...

Jestli chceš hýbat hvězdičkou po obrazovce pomocí šipek, mohl by program vypadat nějak takhle:

- Souřadnicím hvězdičky (proměnné x a y) nastav nějaké výchozí hodnoty.
- Cyklus:
-- Čekej na stisk klávesy a ulož si ji do proměnné typu char (klavesa:=Readkey).
-- Podle toho, co je to za klávesu, uprav souřadnice hvězdičky (case klavesa of... inc, dec atd.).
-- Zkontroluj, jestli souřadnice neutekly mimo obrazovku a v případě potřeby je uprav (if x<1 then x:=1 atd.). Obvyklé rozměry obrazovky v textovém režimu jsou 80x25 nebo 80x50 znaků; použij to, co máš.
-- Smaž obrazovku (Clrscr).
-- Vykresli hvězdičku na souřadnicích x,y (Gotoxy, Write).
-- Jestli klávesa byla třeba Escape (#27), ukonči cyklus.

ASCII kódy šipek: doleva #75, doprava #77, nahoru #72 a dolů #80. Ve skutečnosti ze šipek dostaneš dva znaky: #0 a pak teprve tohle. Ty nuly pro začátek stačí ignorovat.

 To jsem vykopiroval z nejakeho forka, co jsem nasel googlem. To je zaklad, ktery tam musis mit. Klidne to nech v teto podobe, jen dopis procedury.

Uses Crt;

Var
  key : Char;

Begin
  WriteLn('Press any key (ESC to quit)');
    Repeat
      key := upcase(readkey);
      case key of
        #75: GoLeft();
        #80: GoDown();
        #72: GoUp();
        #77: GoRight();
      end;
    end;
  Until (key = #27); {ESC}
end.

To, co tam mas ty je uplne jiny priklad, ktery pracuje se souborem. Ale je tam ta funkcnost, ze musis zmacknout klavesu, aspon.

Jo, jen si nejsem jisty, jestli tam pred cisly ma nebo nema byt krizek. Pascal uz jsem nepouzival 20 let.

Ahojte :) No dakujem :) mám to takto 

program project1;
uses crt;
 var x,y:integer;
     ch:char;
begin

x:=40; y:=13;
gotoxy(x,y);
write('HIHI');

repeat
ch:=ReadKey;
  case ch of
	'a' : begin; clrscr; x:=x-1; gotoxy(x,y); if x<1 then x:=1; write('HIHI'); end; //dolava
	'd' : begin; clrscr; x:=x+1; gotoxy(x,y); if x>80 then x:=80; write('HIHI'); end; //doprava
	'w' : begin; clrscr; y:=y-1; gotoxy(x,y); if y<1 then y:=1; write('HIHI'); end; //hore
	's' : begin; clrscr; y:=y+1; gotoxy(x,y); if y>25 then y:=25; write('HIHI'); end; //dole
        end;
until   ch='p'; //nejak to ukončit,,,neviem ako (unsure)
clrscr;
x:=40; y:=13;
gotoxy(x,y);
write('MUHAHA');
readln;
end.

To gotoxy asi až potom, co ty souřadnice podržíš v rozsahu. Neštve tě kolikrát se ti tam opakuje stejný kód?

case ch of
'a' : if x >  1 then dec(x);
'd' : if x < 80 then inc(x);
'w' : if y >  1 then dec(y);
's' : if y < 25 then inc(y);
end;
clrscr; gotoxy(x,y); write('HIHI');

Ahoj, 

neporadil by mi někdo jak to zapsat, tak abych to nemusela pořád dokola opisovat?

Připojen obrázek.

#7 Ja
to patri k predchozimu tematu?

Akorat si to nebude pamatovat predchozi stavy, ale treba nejsou ani potreba. Jinak pole

for i:=2 to n do begin
  v := v + D(i+1) + opr1; 
end;