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 (ΠΠ°ΡΠΊΠ°Π»Ρ).