Pascal - chyba v kode

fubu · Napísal **fubu**: 12.02.2012 16:18

zdravim....mam taky problem ...potrebujem vytvori program ktory vykresli kruh a potom stlacim sipku hore a ten isty kruh vykresli hore o nieco vyssie ako ten prvy...napisal som cely zdrojak no niekde bude chyba....inicializoval som grafiku ktora ide a potom
circle(300,200,500);
readln(x);
if ord(x)=30 then circle(300,100,500);
readln;
end.
...no a tu je ten problem ono ked stlacim sipku ono to nebere ako znak neviem preco...a tzm padom sa mi nevzkona ani podmienka ...ako to upravit?

za rady vopred dakujem

// pridané po 34 sekundách od posledného príspevku

ten polomer mal byt 50

F3RY · Napísal **F3RY**: 12.02.2012 18:52

1,

Kód:

Zdrojovy kod patri do code!

2, Mohol si tu dat cely kod, zatial tu nevestime

k veci:
S kniznocou grafika som nerobil, ale bez kompletneho kodu to vyzera na chybu v deklaracii premennej.

fubu · Napísal autor témy **fubu**: 12.02.2012 23:24

Kód:

program kruh;
uses graph;
var GD,GM:integer;
    x:char;
begin
GD:=VGA;
GM:=VGAHI;
Initgraph(GD,GM,'D:\TP\BIN');
circle(300,200,50);
readln(x);
if ord(x)=30 then circle(300,100,50);
readln;
end.

ok tu je cely moj zdrojak ...chcem aby ked stlacim klavesu sipka hore aby mi nakreslilo ten druhy kruh...no ono to nejde ....zacne program nakresli prvy gruh stlacim sipku a nic sa nedeje..preco ?

Fico · Napísal **Fico**: 12.02.2012 23:31

miesto

Kód:

readln(x);

pouzi ReadKey --> http://www.freepascal.org/docs-html/rtl ... adkey.html ( uses crt )

fubu · Napísal autor témy **fubu**: 12.02.2012 23:58

uz som to zmenil a stale nejde ...pozzil som aj ten readkey....a som si urobil aj novy program aby som vvyskusal ten readkey a normalne mi nacitalo veci neukazalo a potom cez ord vypisalo ASCII....no co som si vsimol tak ked som stlacil sipku ktroukolvek tak vypisalo 0....ale ved sipky nemaju ASCII kod nula nie ?

Fico · Napísal **Fico**: 13.02.2012 11:03

Kód:

program kruh; 
uses graph, crt; 
var GD,GM:integer; 
    x:char; 
begin 
GD:=VGA; 
GM:=VGAHI; 
Initgraph(GD,GM,'D:\TP\BIN'); 
circle(300,200,50); 
x := ReadKey;
if ord(x)=72 then circle(300,100,50); 
ReadKey;
end.

fubu · Napísal autor témy **fubu**: 13.02.2012 16:22

nefunguje to...ale ked dam

Kód:

...ord(x)=0..

...tak potom to ide ale funguje na vsetky sipky a ja chcem aby islo len hornu sipku

Fico · Napísal **Fico**: 13.02.2012 16:44

Zamen riadok:

Kód:

if ord(x)=72 then circle(300,100,50);

s tymto:

Kód:

if ( x = #72 ) then circle(300,100,50);

fubu · Napísal autor témy **fubu**: 13.02.2012 16:50

stlae to nejde

// pridané po 1 minúte od posledného príspevku

teraz nejde na ziadnu sipku

Fico · Napísal **Fico**: 13.02.2012 17:09

Tak si spust tento program a stlac sipku hore. Malo by ti vypisat Arrow up! Ak nie, tak ti aspon vypise cislo, ktore bude pri tejto sipke - ale malo by to byt 72, no neviem, aky pascal pouzivas ( fpc mi to v linuxe berie ). Enterom to ukoncis.

Kód:

program test;
uses crt;
var ch: char;

BEGIN

repeat
  ch := ReadKey;
  if ch = #72 then
    Writeln( 'Arrow up!' )
  else
    Writeln( 'Char: ', Byte(ch) );
until ch = #13;

END.

fubu · Napísal autor témy **fubu**: 13.02.2012 19:56

napisalo mi Char:0 Arrow up!

// pridané po 20 minútach od posledného príspevku

ked stalcim sipku doprava tak napise char:0 char:77
ked stlacim sipku dolava tak napise char:0 char:75
...........................dole tak napise char:0 char:80
............................ hore tak napise char:0 Arrow up!
co to znamena mam nieco zle nastavene???

Fico · Napísal **Fico**: 13.02.2012 20:19

Nie, mas to dobre, ono to vypise aj tu nulu, pretoze to nie je normalny bezny znak. Takze vidis to sam, ak stlacis sipku hore, tato podmienka:

Kód:

if ch = #72 then

bude splnena. To znamena aj tato podmienka:

Kód:

if ( x = #72 ) then circle(300,100,50);

sa musi splnit a musi sa vykreslit novy kruh. Uz blizsie ti poradit nemozem, pretoze nemam kde skusit kod s kniznicou graph. Skus si to rozlozit do dvoch riadkov, cize takto:

Kód:

if ( x = #72 ) then
  circle(300,100,50);

a program krokuj pomocou debuggera, ci skoci aj na tento druhy riadok.

nBXXL · Napísal **nBXXL**: 13.02.2012 21:06

fubu píše:

ked stalcim sipku doprava tak napise char:0 char:77
ked stlacim sipku dolava tak napise char:0 char:75
...........................dole tak napise char:0 char:80
............................ hore tak napise char:0 Arrow up!

Fico píše:

ono to vypise aj tu nulu, pretoze to nie je normalny bezny znak.

V pascale som so šípkami nepracoval, no pokiaľ to funguje skutočne takto, tak ono to načíta tú šípku na dva readkeye (pretože v rámci jedného cyklu v tom Ficovom programe nemôže vypísať dvakrát), a ty máš len jeden readkey.. Výstupom jedného readkeyu bude 0 a druhého bude kód šípky,

v tom prípade skús toto:

Kód:

program kruh; 
uses graph, crt; 
var GD,GM:integer; 
    x,y:char; 
begin 
GD:=VGA; 
GM:=VGAHI; 
Initgraph(GD,GM,'D:\TP\BIN'); 
circle(300,200,50); 
x := ReadKey; if (ord(x)=0) then y := ReadKey;
if ord(x)=0 then if ord(y)=72 then circle(300,100,50); 
ReadKey; 
end.

fubu · Napísal autor témy **fubu**: 15.02.2012 0:07

nBXXL ten program mi ide aj vypisuje jak ma podla sipky....skusal som aj zmenit a ide to

a preco to ide na dva readkey a nejde rovno cez jeden???

Fico · Napísal **Fico**: 15.02.2012 11:31

http://www.freepascal.org/docs-html/rtl/crt/readkey.html

pascal píše:

If an extended or function key has been pressed, then the zero ASCII code is returned. You can then read the scan code of the key with a second ReadKey call.

fubu · Napísal autor témy **fubu**: 15.02.2012 22:37

aha to som si nevsimol....to tvorcovia toho pascalu uz tak naprogramovali ze musim to davat cez dva ?

Fico · Napísal **Fico**: 16.02.2012 17:09

Heh, tak urcite to tak nie je pre srandu kralikov

Datovy typ char ma rozsah 0-255. Teraz sa pozri sa na ASCII tabulku:
http://www.lookuptables.com/index/web.gif

Ako vidis, nestaci to na popisanie vsetkych znakov.

fubu · Napísal autor témy **fubu**: 18.02.2012 23:06

aha pretooooo

dakujem za rady

Pascal - chyba v kode

Podobné témy