&НаКлиенте
Процедура НайтиРасстояние(Команда)
Перем Vo;
Перем A;
Перем Рост;
H = 3.05;
ВвестиЧисло(Vo, "Введите начальную скорость мяча, м/с");
Пока Vo<0 Или Vo>30 Цикл
Сообщить ("Скорость не должна превосходить 30 м/с");
ВвестиЧисло(Vo, "Введите начальную скорость мяча");
КонецЦикла;
ВвестиЧисло(A, "Введите угол броска, градусы");
Пока A<0 Или A>90 Цикл
Сообщить ("Угол не долже превосходить 90 градусов");
ВвестиЧисло(A, "Введите угол броска");
КонецЦикла;
ВвестиЧисло(Рост, "Введите рост школьника, м");
Пока Рост<1 Или Рост>2 Цикл
Сообщить ("Рост школьника от 1,2 до 2 м");
ВвестиЧисло(Рост, "Введите рост школьника");
КонецЦикла;
Сообщить ("Начальная скорость "+Vo+" м/с, угол "+A+" градусов,
| рост ученика "+Рост);
A =A *3.14/180;
D =Pow(Tan(A),2)-4* 9.8*(H-Рост)/ Pow(Vo*Cos(A),2);
Если D>=0 Тогда
S1 =(Tan(A)+Sqrt(D))/(2* 9.8/ Pow(Vo*Cos(A),2));
S2 =(Tan(A)-Sqrt(D))/(2* 9.8/ Pow(Vo*Cos(A),2));
Иначе
S1=0;
S2=0;
КонецЕсли;
Если S1>0 И S1<28 И S1<>S2 Тогда
Сообщить("Расстояние от корзины "+S1+" м");
ИначеЕсли S2>0 И S2<28 И S1<>S2 Тогда
Сообщить("Расстояние от корзины "+S2+" м");
ИначеЕсли S2>0 И S2<28 И S1=S2 Тогда
Сообщить("Расстояние от корзины "+S1+" м");
Иначе
Сообщить ("При начальных условиях попадание невозможно");
КонецЕсли;
КонецПроцедуры
