Potrebujem urobit domacu ulohu

[lucky17]

tento program vykresli pohyb auta. a ja potrebuje aby to auto preslo este aj cez tunel, ked bude prechadzat cez tunel aby ho nebolo vidno. prosim vas. potrebujem to do zajtra rana do 8:00
tu je ukazka tunela: www.artgallerymk.sk/green2k/tunel.jpg

uses grafika;
var x,y,i:integer;
procedure auto(x,y:integer);
begin
setcolor(15);
rectangle(x,y,x+100,y-50);
circle(x+30,y,15);
circle(x+70,y,15);
delay(200);
setcolor(0);
rectangle(x,y,x+100,y-50);
circle(x+30,y,15);
circle(x+70,y,15);
end;
begin
x:=100;y:=300;
auto(x,y);
for i:=1 to 100 do begin
auto(x,y);
x:=x+5;
if x>540 then x:=1;
end;
end.

[JanFiala]

Ti učitelé jsou ale svině, viď? Zadávat žákům úlohy odpoledne ve státní svátek, a chtít aby je měli druhý den hotové...

Pridej si do toho cyklu podminku:
If not AutoVTunelu(x) then auto(x,y);

AutoVTunelu je funkce ktera vraci, jestli je nebo neni aut v tunelu

[JanFiala]

Dalsi moznost (jednodussi)
Nakreslit auto, nakreslit tunel. Pak se ti tunel prekresli pres aut a pokud bude auto v tunelu, nebude videt

[lucky17]

No ucitel to uz dal skor ale my studenti robime vsetko na poslednu chvilu heh
No na to som mylel aj ja ale ma to byt tak ze auto ma byt vidno ako vchadza do tunelu. cize aby tu branu len zcasti zakrylo.
Nechce sa ti to dopisat do programu? ja totiz z pascalo neviem voobec robit. no som zvedavy ako z neho zmaturujem

[lucky17]

Prosim vas pomozte, urcite niekto to vie... prosiim

[JanFiala]

Nechce sa ti to dopisat do programu? ja totiz z pascalo neviem voobec robit.

A proto si to nechavas na posledni chvili, vid?
V tom cyklu, kde kreslis pohyb auta kresli po nakresleni auta i tunel a on ti auto postupne skryje.
Na psani kodu nemam cas. Snaz se.

[firefoxik]

Tak ale tohle je zrovna brutalni priklad, jak to nedelat, rozhodne buch to delal pres sprity. (resp. PutImage)

[JanFiala]

Tak ale tohle je zrovna brutalni priklad, jak to nedelat, rozhodne buch to delal pres sprity. (resp. PutImage)

Skolni priklad, ktery se vykresluje v konzolovem okne delat pomoci spritu?
To by mu ucitel urcite uveril, ze je to jeho dilo, zvlast, kdyz y tomu sam nerozumel

[Beholder_]

To ešte stále učia Pascal?!?!?!
Pedagogovia spamatujte se!!!
Ved ten profesor, čo vymyslel jazyk Pascal, sám ho zavrhol.
Jazyky sa vyvíjajú :
Algol 60,Algol 68
Fortran I,Fortran II,...III,...IV,...66,...77
PL/1,APL
C,C++,C#
ale Pascal,a šlus,profesor pokračoval Modula 2,Modula 3,Oberon
Proč nepokračoval Pascal 2,Pascal 3,Pascal xy nebo Pascal+,++,nebo Pascal#
Pochopil,že co navrhol prvé(t.j. Pascal),je blbost.
Zrejme platí Murphyho zákon : Kdo neumí programovat,
ten programování učí.

[p_Sipi]

ale Pascal,a šlus

A Delphi ti nieco hovori?

[Beholder_]

Ach jaj!
Nielen Delphi, ale aj tzv. Objective-Pascal.(či je to,to isté??)
Nič v zlom. Ale napísali ste niekolko tisíc riadkov programu v Pascale,
riadky s komentármi sa nerátajú, tie nutne pre chod programu nemusia, a skúsili
ste napísat ten istý program v C? Už ked pre nič iné, tak za 1.: ovela menej úderov do
klávesov pri C(šetríte klávesnicu a svoje prstové klby) , za 2. na vytlačenie listingu pri C
spotrebujete menej atramentu(alebo toneru)(šetríte životné prostredie a svoju penaženku) ,
za 3. program v C zaberá menej miesta na pametových médiách, tým pádom sa na vaše
pametove médium zmestí viacej súborov,t.j. nemusíte kupovat a nosit pri sebe viac
týchto médií(šetríte životné prostredie a svoju penaženku) , za 4. vraví sa,
že programy v Pascale sú prehladnejsie(zrozumitelnejsie?) ako v C, platí toto
tvrdenie aj pre tak velký program?? , za 5. prenositelnost programov v C, z jednej
počítačovej architektúry na druhú, je večšia ako v Pascale.(uznávam,že Java v tomto
prípade je na tom najlepšie,ale má jednu(u mna dost velkú)nevýhodu : je pomalá)
Systémové veci som schválne vynechal, nebolo by to voči Pascalu fér.
Pre kritikov pravopisu : nemám nainštalovanú SK klávesnicu,preto mi chýbajú niekde
mekčene,a namiesto 'a' s 2 bodkami hore,dávam e.

[kohutisko]

na margo prenositelnosti javy by mohli rozpravat studenti, ktori maju zakazane odovzdavat projekty robene v jave, pretoze sa neda zarucit, ze ta verzia javy, ktoru maju doma na svojich windowsoch, je kompatibilna s tou verziou javy, ktoru ma na windowsoch ich skusajuci...

[jerry321]

Fakt vtipne. Keby studenti/profesori neboli blbi, tak by sa im java nemusela zakazovat. Staci zistit aku verziu JRE ma skusajuci na PC, tu si stiahnut nainstalovat a programovat zadanie pod rovnakym JRE, Na jednom PC moze byt aj viac JRE

[kohutisko]

ja sa nevyjadrujem k inteligencii studentov ani vyucujucich. vyjadrujem sa k mytusu o prenositelnosti javy.

[Beholder_]

Dík, len ma utvrdzujete, že najlepší programovací jazyk je C.
Vivat C!, Eljen C!, Sláva Céčku tak na zemi, ako aj vo vesmíre, na nebesiach, a v pekle!
C forever, C až naveky s bohom a amen!