prosím pomohol by my niekto z programom v pascale???

mmarecek · Napísal **mmarecek**: 09.06.2007 19:03

pomohol by my niekto s týmto programom ??? prosííííííím a vopred DAKUJEM.

Naprogramujte hru mince. najskor nakreslite niekolko minci vedla seba, farbu káždej mince určte náhodne bud modru alebo červenu. Hráč potom kliká na mince,a tým im mení farbu vždy na opačnú, pričom sa zmení aj farba oboch susedních minci na opačnu. Prvá a posledná minca maju iba jedného suseda. Cielom hry je pootáčat mince tak, aby mali všetký rovnakú farbu, teda bud modru, alebo červenu.

(návod): vhodne zvolte stredy minci a ich polomer, napríklad stredy v x-ových súradniciach VZDIALENOST, 2*VZDIALENOST, 3*VZDIALENOST... Potom ak kliknete mišou, do vnutra niektorej mince, z x -ovej suradnice myši zistíte stred tejto mince výpočtom: stred=((MysX+polomer) div vzdialenost ) *vzdialenost. Toto platí za predpokladu že mince sa neprekrývaju teda ked VZDIALENOST>2*POLOMER.)

audiotrack · Napísal **audiotrack**: 09.06.2007 23:41

musí to byť v pascale? nechce sa mi s tým babrať, ale ak to nie je úloha do školy a môžeš to mať aj v inom jazyku tak nie je problém.
Ale aj v pascale je to jednoduché, len by som ho musel nahodiť a to teda ee

mmarecek · Napísal autor témy **mmarecek**: 10.06.2007 13:16

no malo by to byt v pascale bo je to so školy a je to velmy potrebnee a prosimtaaaaa nemohol by si to spravit v tom pascale????? pleaseeeee

audiotrack · Napísal **audiotrack**: 10.06.2007 13:23

nie, nemám chuť sa babrať s pacalom. A už dlho som v ňom nerobil, tak neviem ako sa tam vôbec pracuje s mišou. Môžem ti to urobiť v delphi ak to vieš potom prepísať

mmarecek · Napísal autor témy **mmarecek**: 10.06.2007 13:33

no tak teda ked budeš taky dobry tak hej možeš a nejako sa to potom pokusím prepísat ale ak by niekto mohol v pascale tak by to bolo lepšie DAKUJEM.

mmarecek · Napísal autor témy **mmarecek**: 10.06.2007 19:32

prosííííím váááás nevedel by my to niekto spravittt ???? strašne to potrebujemm je to pre mna moc doležiteeee

prosííííííííííííím.

juho · Napísal **juho**: 12.06.2007 14:19

mne sa tak zda ze v celom borlande je to to iste cize mys sa ovlada cez registre(pascalu).alebo.(assmembleru)

Kód:

procedure ukaz;
begin
asm
mov ax,1
int $33
end
end;
procedure schovaj;
begin
asm
mov ax,1
int $33
end
end;
procedure kde(var x,y,b:word)
begin
asm
mov ax,3
int $33
mov b,bx
mov x,cx
mov y,dx
end;
end;

aspon si myslim ze to takto funguje

mmarecek · Napísal autor témy **mmarecek**: 12.06.2007 16:07

cau juho a nemáš tam náhodou nejaku chybo lebo my to nejde

prosíííím nevedl by my niekto s tím pomoct v pascale????

audiotrack · Napísal **audiotrack**: 12.06.2007 20:18

tu máš ukážku práce s myšou v pascale, pohraj sa s tým trochu:
http://webnews.terc.cz/ps/article.php?arid=64
http://www.trsek.com/pas/mys.pas

juho · Napísal **juho**: 12.06.2007 20:27

vies preco to nefacha?.. lebo asembler nechce zobrat parametre z procedury do svojho prikazoveho tela. nechapem preco je to tak, asi preto ze to musi mat hlavnu premenu, takze sa to bude musiet robit cez registre pascalu.
alebo

Kód:

procedure kde(x,y,b:word);
var x1,y1,b1:word;
begin
 asm
  mov ax,3
  int 51
  mov b1,bx
  mov x1,cx
  mov y1,dx
 end;
x:=x1;y:=y1;b:=b1;
end;

ale te procedury ukaz a schovaj by mali ist
alebo

Kód:

uses dos,graph,crt;

procedure mys(a:word);
var a1:word;
begin          a1:=a;
 asm
mov ax,a1
int 51
 end;
end;

procedure poz(var x,y,b:word);
var r:registers;
begin
 r.ax:=3;
 intr(51,r);
 b:=r.bx;
 x:=r.cx;
 y:=r.dx;
end;
function itos(a:longint):string;
var s:string;
begin
str(a,s);
itos:=s;
end;

var g,gr:integer;
    b,x,y:word;
    s,t:string;
begin g:=9;gr:=2;
initgraph(g,gr,'..\bgi');
mys(1);      setviewport(0,0,80,10,false);
while(b<>1) do
 begin
  poz(x,y,b);
  outtext(itos(x)+' '+itos(y)+' '+itos(b));
              clearviewport;

end;

mys(2);
readkey;
closegraph;
end.

v lavom hornom rohu by mali byt suradnice konci sa to lavym tlacidlom na mousi

juho · Napísal **juho**: 13.06.2007 18:08

minci je osem .. zda sa mi ze to ide v poriadku asi skoro ziadne chyby to nerobi. niekedy sa mi zda ze to nema riesenie ale to hadam ma asi tak byt..

Kód:

uses dos,graph,crt;

procedure mys(a:word);
var a1:word;
begin          a1:=a;
 asm
mov ax,a1
int 51
 end;
end;

procedure poz(var x,y,b:word);
var r:registers;
begin
 r.ax:=3;
 intr(51,r);
 b:=r.bx;
 x:=r.cx;
 y:=r.dx;
end;

procedure minca(var x:word;f:byte);
begin
setcolor(f);
circle(x,200,25);
setfillstyle(1,f);
floodfill(x,200,f);
inc(x,75);
end;

var g,gr:integer;
    x1,x,y,b:word;
    m,d:boolean;
    f,a,vyhra:byte;
BEGIN          g:=9;gr:=2;
initgraph(g,gr,'..\bgi'); mys(0);
randomize;  x1:=50;
while(x1<620) do minca(x1,1+random(2));

mys(1);      d:=true;
while(b<>3)do begin   
for a:=1 to 7 do
 if getpixel(50,200)=getpixel(50+a*75,200) then inc(vyhra);
 if vyhra=7 then
 begin cleardevice;outtext('vyhra je tvoja bleeee;;;');break;end;
                 vyhra:=0;
if b=0 then d:=true;
poz(x,y,b);
if d=true then                begin
if (b=1)and(y<225)and(y>175)and((x mod 75)<75)and((x mod 75)>25)then
begin m:=true; d:=false; end;
if (m=true) and (x<600) then begin x1:=50+75*(x div 75);
mys(2);
     a:=3;
if x1<75 then a:=2 else if x1>550 then begin inc(x1,-75);a:=2; end
else inc(x1,-75);
 for a:=a downto 1 do begin
  f:=getpixel(x1,200);
  minca(x1,1+(f mod 2));
                   end;
mys(1);                         end;
m:=false;
 end;


              end;

mys(0);readkey;closegraph;END.

MEAB8 · Napísal **MEAB8**: 14.06.2007 0:58

mov ax,a1

mam napisaný celý program a na tomto mieste mi vipisuje :Error 155" Invalid kombination of opcode and operands
čo to môze byt

mmarecek · Napísal autor témy **mmarecek**: 14.06.2007 9:31

dakujemmm ty juho velmy pekne thankssssss díki moc

si v tom dobrýý

juho · Napísal **juho**: 14.06.2007 12:04

MEAB8 píše:

mov ax,a1

mam napisaný celý program a na tomto mieste mi vipisuje :Error 155" Invalid kombination of opcode and operands
čo to môze byt

mne nie

prosím pomohol by my niekto z programom v pascale???

Podobné témy