profile="http://gmpg.org/xfn/11"> Pascal (Паскаль), рассчитаСм ΡΠΊΠΎΡ€ΠΎΡΡ‚ΡŒ падСния Ρ‚Π΅Π»Π° с башни. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Pascal (Паскаль), рассчитаСм ΡΠΊΠΎΡ€ΠΎΡΡ‚ΡŒ падСния Ρ‚Π΅Π»Π° с башни.

Pascal (Паскаль), рассчитаСм ΡΠΊΠΎΡ€ΠΎΡΡ‚ΡŒ падСния Ρ‚Π΅Π»Π° с башни.
Часто Ρ€Π°ΡΡΠΌΠ°Ρ‚Ρ€ΠΈΠ²Π°ΡŽΡ‚ Ρ‚Π°ΠΊΡƒΡŽ Π·Π°Π΄Π°Ρ‡Ρƒ Π² ΠΈΠ·ΡƒΡ‡Π΅Π½ΠΈΠΈ Паскаля.

Код:

program Tower_Task;
  //ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° РассчитаСм ΡΠΊΠΎΡ€ΠΎΡΡ‚ΡŒ падСния Ρ‚Π΅Π»Π° с башни.

var
  r_G: real;
  hTower: real;
  iSpeed: real;
begin
  r_G := 9.8; //ускорСниС свободного падания g  Π½Π° Π·Π΅ΠΌΠ»Π΅   ΠΌ/с Π² ΠΊΠ².
  hTower := 20;// высота башни Π² ΠΌΠ΅Ρ‚Ρ€Π°Ρ…
  //Ρ„ΠΎΡ€ΠΌΡƒΠ»Π° v=Sqrt(2*g*h);
  iSpeed := Sqrt(2 * r_G * hTower);  //ΡΠΊΠΎΡ€ΠΎΡΡ‚ΡŒ Ρ‚Π΅Π»Π°
  WriteLn(iSpeed: 10: 2); // для Π²Ρ‹Π²ΠΎΠ΄Π° значСния скорости падСния Ρ‚Π΅Π»Π° Π½Π° экран
  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
РасчСт скорости падСния с башни Pascal (Паскаль)
РасчСт скорости падСния с башни Pascal (Паскаль).

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.