Gazikas

Sveiki :)
 
Gal kas gali padėti :)
 
Uždavinys: Trijų dalelių atsitiktinis judėjimas x y ašimi, reikia procedūros kuri prieš atliekant šuolį tikrina ar tame taške nėra kitos dalelės
 

program ND_suoliai; uses crt; Const n=10; // Dalelės atlieka 10 šuolių type brauno_dalele=Object x:integer; // Dalelės kordinatės y:integer; simbolis:char; Procedure Init(x0,y0:integer; isvaizda:char); Procedure suolis; end; Var dalele1,dalele2,dalele3:brauno_dalele; // Trys Brauno dalelės i:integer; // ciklo kintamasis Procedure brauno_dalele.Init(x0,y0:integer;isvaizda:char); begin x:=x0; y:=y0; simbolis:=isvaizda; end; procedure brauno_dalele.suolis; Var pokytis_x,pokytis_y:integer; begin GotoXY (x,y); write (simbolis); GotoXY(x,y); write('.'); // Taško pagalba matome dalelių nukeliauta kelią pokytis_x:=Round(-2+4*random); //Šuolio ilgis [-2;2] pokytis_y:=Round(-3+6*random); //Šuolio ilgis [-3;3] x:=x+pokytis_x; y:=y+pokytis_y; end; begin randomize; CLRSCR; dalele1.init (40,20,'1'); dalele2.init(44,23,'2'); // pradinės dalelių kordinatės dalele3.init (48,25,'3'); for i:=1 to 9 do begin dalele1.suolis; dalele2.suolis; dalele3.suolis; end; for i:=10 to 10 do begin dalele1.suolis; write('1'); //Atlikus 10 šuolį, dalele2.suolis; // po kiekvienos dalelės write('2'); // parašome ekrane skaičių, dalele3.suolis; // taip matome paskutinį dalelės atliktą šuolį write('3'); end; end.

Sveiki :)
 
Gal kas gali padėti :)
 
Uždavinys: Trijų dalelių atsitiktinis judėjimas x y ašimi, reikia procedūros kuri prieš atliekant šuolį tikrina ar tame taške nėra kitos dalelės
 

program ND_suoliai; uses crt; Const n=10; // Dalelės atlieka 10 šuolių type brauno_dalele=Object x:integer; // Dalelės kordinatės y:integer; simbolis:char; Procedure Init(x0,y0:integer; isvaizda:char); Procedure suolis; end; Var dalele1,dalele2,dalele3:brauno_dalele; // Trys Brauno dalelės i:integer; // ciklo kintamasis Procedure brauno_dalele.Init(x0,y0:integer;isvaizda:char); begin x:=x0; y:=y0; simbolis:=isvaizda; end; procedure brauno_dalele.suolis; Var pokytis_x,pokytis_y:integer; begin GotoXY (x,y); write (simbolis); GotoXY(x,y); write('.'); // Taško pagalba matome dalelių nukeliauta kelią pokytis_x:=Round(-2+4*random); //Šuolio ilgis [-2;2] pokytis_y:=Round(-3+6*random); //Šuolio ilgis [-3;3] x:=x+pokytis_x; y:=y+pokytis_y; end; begin randomize; CLRSCR; dalele1.init (40,20,'1'); dalele2.init(44,23,'2'); // pradinės dalelių kordinatės dalele3.init (48,25,'3'); for i:=1 to 9 do begin dalele1.suolis; dalele2.suolis; dalele3.suolis; end; for i:=10 to 10 do begin dalele1.suolis; write('1'); //Atlikus 10 šuolį, dalele2.suolis; // po kiekvienos dalelės write('2'); // parašome ekrane skaičių, dalele3.suolis; // taip matome paskutinį dalelės atliktą šuolį write('3'); end; end.

######, kam tu ta virusuota saita cia dedi.
GEDA.

Nezinau ar buvo tokia tema, bet va:
 
http://www.delfi.lt/news/economy/ITbussine...php?id=20203789
 
Chebryte man minusus deda, as tikrai nepalaikau ANVOS ketiinimu B-)