Paskalis

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.

Kol nepradėsi formatuoti kodo, tol nė negalvok sulaukti pagalbos. Tokiam vėmale nebent durnius kapstytųsi.