nahodne vykreslovanie - pascal

Kamahl · Napísal **Kamahl**: 25.05.2007 17:22

kamos maturuje z info a ma 30 zadani. robi to v C. ja mam maturu este pred sebou ale skusam nieco v pascale a nevim si rady s jednym. to dnes robil do tretej v C a teraz doma skusam v pascale ale mam problem.

takze chcem nahodne postupne vypisat na obrazovku 'X' az kym sa nevypise cela alebo stlacim enter...
toto je zatial len tak spravene ze kym nestlacim key, ale problem je v tom ze ono to posuva obrazovku dole, to bude asi tym ze Y vybera viac ako je na obrazovke, a to je ak sa nemylim 480... ale sak mam napisane "y:=random(478)+1;" takze nevim proc... a dalsi problem ze ono to vybere nejaku suradnicu a potom nakresli nejaky pocet Xsiek, neviem preco to nenapise len jedno X... dufam ze ste ma pochopili lebo nemam moc dar vysvetlovania

Kód:

uses crt;
var x,y,i:integer;
procedure pis;
begin
x:=random(638)+1;
y:=random(478)+1;
gotoxy(x,y);
write('X');
end;
begin
randomize;
clrscr;
repeat
pis;
delay(5);
until keypressed;
readln;
end.

Ivan11114 · Napísal **Ivan11114**: 25.05.2007 18:01

Kód:

Program X;
uses crt;
var x,y:integer;
begin
randomize;
clrscr;
repeat
x:=random(80);
y:=random(50);
gotoxy(x,y);
write('X');
delay(5);
until keypressed;
readln;
end.

audiotrack · Napísal **audiotrack**: 25.05.2007 18:05

Ivan11114: y by som dal iba na 25, a ešte by som to upravil aby nikdy nedalo X na pozíciu kde už je (síce ho prepíše, ale môže zaplnenie displeya trvať dlho)

Ivan11114 · Napísal **Ivan11114**: 25.05.2007 18:08

Ja viem ja by som to riesil inak. Ale ak to chalan chcel takto, tak mu do toho skakat nebudem. Nechcsi to zmeni. Mne to islo dobre.

Kamahl · Napísal autor témy **Kamahl**: 25.05.2007 18:14

aha diki a mohli by ste mi nekto vysvetlit preco mi to neslo? ja som to robil cez proceduru pretoze ten program ma este pokracovat, ale to je uz o inom... to koli tej procedure?

Ivan11114 · Napísal **Ivan11114**: 25.05.2007 18:17

Kamahl píše:

aha diki a mohli by ste mi nekto vysvetlit preco mi to neslo? ja som to robil cez proceduru pretoze ten program ma este pokracovat, ale to je uz o inom... to koli tej procedure?

Sirka monitora je 80x25 ci tak dako. Nechapem naco si tam daval pixely ci co to bolo. A procedura na tak kratky program ?

programator · Napísal **programator**: 25.05.2007 22:29

Ivan11114 píše:

Sirka monitora je 80x25 ci tak dako. Nechapem naco si tam daval pixely ci co to bolo. A procedura na tak kratky program ?

To nie je sirka monitora, ale textovy rezim v pascali...

Kamahl · Napísal autor témy **Kamahl**: 26.05.2007 10:18

programator píše:

To nie je sirka monitora, ale textovy rezim v pascali...

ahaa, dik vam obom za vysvetlenie, nevim preco som tam pchal pix, som lama :lol:

Kamahl · Napísal autor témy **Kamahl**: 26.05.2007 10:43

este by ma zaujimalo ako ked mam zadane ze nech vypisuje miesto X znak s poradovim cislom napr 200, ako to zadam pascalu...

juho · Napísal **juho**: 26.05.2007 11:57

nie som si isty ale zeby takto?

Kód:

write(chr(200))

Kamahl · Napísal autor témy **Kamahl**: 26.05.2007 12:23

juho píše:

nie som si isty ale zeby takto?

Kód:

write(chr(200))

ano ide to dik

a dalsia otazocka... ked nechem aby sa mi vyberalo rovnake suradnice, ako to spravim? napadlo am jedine zapisovat pouzite suradnice do nejakeho dokumentu a potom ze by to citalo a kontrolovalo ci to uz je v nom alebo nie, a ak nie je tak nakresli znak a zaroven zapise suradnicu do doc... ale urcite sa to da aj lahsie :lol:

dik za rady

tlacitko Enter · Napísal **tlacitko Enter**: 01.06.2007 13:05

Kamahl píše:

a dalsia otazocka... ked nechem aby sa mi vyberalo rovnake suradnice, ako to spravim? napadlo am jedine zapisovat pouzite suradnice do nejakeho dokumentu a potom ze by to citalo a kontrolovalo ci to uz je v nom alebo nie, a ak nie je tak nakresli znak a zaroven zapise suradnicu do doc... ale urcite sa to da aj lahsie :lol:

dik za rady

samozrejme sa to da lahsie, napr dvojrozmerne pole:
array[1..80,1..25] of boolean;
potom ked vygenerujes nahodne suradnice tak sa to preveri v poli ze ci true alebo false atd... ak este nemas o dvojrozmernych poliach ani sajnu tak to je na dlho... :

Kód:

program x;

  uses crt;
  var x,y,i:integer;

        {takto vytvoris akoby tabulku 80*25 buniek a kazda bude mat hodnotu true alebo false}
        a : array[1..80,1..25] of boolean;        

procedure pis;
  begin
  x:=random(80)+1;
  y:=random(25)+1;
  
{a toto je ta podmienka, ktora zisti ci na [x,y] uz je napisane X alebo nie, ak nie tak ho napise a zapise to aj do pola...}
  if a[x,y] = false then 
    begin
    gotoxy(x,y);
    write('X');
    a[x,y] = true;
    end;

  end;

begin
randomize;
clrscr;
repeat
pis;
delay(5);
until keypressed;
readln;
end.

dufam ze som to napisal bez chyb...

audiotrack · Napísal **audiotrack**: 03.06.2007 13:53

tlacitko Enter: teraz mi povedz čo tým získaš? je to rovnako neefektívne ako keď prekresluje bod. Jednoducho zvolí súradnicu bodu, pozre sa do matice na pozíciu a[x,y] a ak tam je true tak zvolí inú pozíciu a toto stále opakuje (ale zase ju volí náhodne tak zase môže zvoliť obsadenú). Teoreticky je to to isté ako keby prepisoval znak. Tiež sa môžeš na rovnakú pozíciu dostať n-krát a preto to môže trvať nekonečne dlho.

tlacitko Enter · Napísal **tlacitko Enter**: 03.06.2007 14:52

audiotrack píše:

tlacitko Enter: teraz mi povedz čo tým získaš? je to rovnako neefektívne ako keď prekresluje bod. Jednoducho zvolí súradnicu bodu, pozre sa do matice na pozíciu a[x,y] a ak tam je true tak zvolí inú pozíciu a toto stále opakuje (ale zase ju volí náhodne tak zase môže zvoliť obsadenú). Teoreticky je to to isté ako keby prepisoval znak. Tiež sa môžeš na rovnakú pozíciu dostať n-krát a preto to môže trvať nekonečne dlho.

Ano, mas pravdu, takze lepsie by bolo pouzit zlozitejsi algoritmus - napriklad by sa generovalo nahodne 1 cislo: random(pocet prazdnych policok)+1; a podla tohto cisla by sa vypocitala dana bunka v matici s tym, ze zaplnene bunky by sa uz nebrali do uvahy => to by bol konecny algoritmus s nahodnym vykreslovanim ale vzdy na rovnaky pocet krokov by vykreslil celu obrazovku.
Napr. mam maticu 2 * 2, tak sa vygeneruje cislo od 1 do 4 , napr 2, potom bude vyzerat matica takto:
0 X
0 0
Potom sa bude generovat opat cislo ale uz od 1 do 3 , napr 2 a matica bude vyzerat takto:
0 X
X 0
potom z 1 - 2 , napr 1:
X X
X 0
atd...

Dalo by sa to aj tak ze to cislo by sa generovalo stale z rovnakeho intervalu random(80*25)+1; a potom by sa v matici vypocitavala bunka takym sposobom ze ak by to dorazilo na koniec, opat by to skocilo na zaciatok matice...
No dufam ze je to zrozumitelne. :roll:

juho · Napísal **juho**: 03.06.2007 20:43

a co tak to nerobit nahodne ale s prikazom

Kód:

for 1 to 80 do 
begin
for 1 to 25 do write('x');
writeln;
end;

prinutit nahodne generovanie aby negenerovalo nahodne sa proste neda.

audiotrack · Napísal **audiotrack**: 03.06.2007 21:19

juho to iba zapíšeš pekne postupne zľava doprava a zhora dole obrazovku znakmi x, ale v zadaní bolo náhodné vykreslovanie

juho · Napísal **juho**: 03.06.2007 22:38

audiotrack píše:

juho to iba zapíšeš pekne postupne zľava doprava a zhora dole obrazovku znakmi x, ale v zadaní bolo náhodné vykreslovanie

keby to bolo v TC tak by som nato pouzil gettext(); ale v pascale neviem najst ziadnu podobnu funkciu

nahodne vykreslovanie - pascal

Podobné témy