Matematické Fórum

↑ Xainna:

Dobrý den.

A nešlo by místo nářků napsat přesně celé zadání programu? (já sice Pascalu nehovím, ale řekl bych, že v dotazu žádné relevantní informace ani pro jeho znalce nejsou).

↑ Xainna:

Takže to já netuším.

-

ahoj ↑ Xainna:,

>> A bohužel, to je skutečně celé zadání.

V tom případě je to jednoduché, protože to můžeš vymyslet v podstatě libovolně. Jediný problém je, pohledat po netu nějaký generátor Maxwellova rozložení. Takže to může vypadat třeba takto:

program Castice;

var PocetCastic,i   :Integer;
      v                    :array [1..3] of real; //vektor rychlosti částce
      StredniRychlost,
      RychlostCastice: Real;

begin
  Readln('Stredni rychlost',Stredni rychlost);
  Readln('PocetCastic',PocetCastic); 

  For i:=1 to PocetCastic do
  begin
   // slozky nahodneho vektoru rychlosti - Maxwell. rozlozeni (nasel jsem nekde na netu)
   v[1]:=StredniRychlost*sqrt(-ln(random))*sin(2*pi*random);
   v[2]:=StredniRychlost*sqrt(-ln(random))*sin(2*pi*random);
   v[3]:=StredniRychlost*sqrt(-ln(random))*sin(2*pi*random);

   RychlostCastice:=sqrt(sqr(v[1])+sqr(v[2])+sqr(v[3]));

   Write(i,'-ta castice: ');'
   Write('v[1]=', v[1]);
   Write('v[2]=', v[2]);
   Write('v[3]=', v[3]);

   if RychlostCastice<StredniRychlost 
       then Writeln('pomala')
       else Writeln('rychla');
  end;
end;