http://petruchek.info/problems/walking-goat-on-meadow-half.rss Трансляция комментариев с сайта petruchek.info. Перепечатка запрещена. CMS by Webous.com Sun, 24 Apr 2011 18:48:53 GMT http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1905 http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1905 Sun, 24 Apr 2011 18:48:53 GMT #include <conio.h>
#include <math.h>

double rad, sqrcircle, s2, diam;
main()
{
cin >> R;
sqrcircle = 3.14 * pow(rad, 2);
s2 = 3 / 2 * sqrcircle;
diam = sqrt(s2 / 3.14);
cout << d << endl;
getch();
return 0;
}]]> http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1904 http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1904 Sun, 24 Apr 2011 18:48:23 GMT #include <conio.h>
#include <math.h>

double rad, sqrcircle, s2, diam;
main()
{
cin >> R;
sqrcircle = 3.14 * pow(rad, 2);
s2 = 3 / 2 * sqrcircle;
diam = sqrt(s2 / 3.14);
cout << d << endl;
getch();
return 0;
}]]> http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1133 http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1133 Fri, 16 Apr 2010 14:19:57 GMT var R,D,S1,S2:real;
Begin
write('R=');
readln(R);
S1:=Pi*sqr(R); {S2-S1=S1/2; --> S2=3/2*S1;}
S2:=3/2*S1;
D:=sqrt(S2/Pi);
writeln('Длина верёвки D=',D:0:4);
end.

ответ: D=12.2474 при R=10]]> http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1132 http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.1132 Fri, 16 Apr 2010 13:52:46 GMT http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.945 http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.945 Fri, 12 Feb 2010 13:38:38 GMT Cls
Input R
If R>=5 And R<=50 then
D=R/Sqr(2)
Print D
End
Для R=10, D=7.]]> http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.807 http://petruchek.info/problems/walking-goat-on-meadow-half.html#comm.807 Tue, 08 Dec 2009 05:48:15 GMT $R=15;
$S1=3.14*$R*$R;
echo "площадь луга $S1<br>";
$t=5000000;
$k=$R/$t;
$D=$R;
for($i=1;$i<=$t;++$i)
{$D=$R+$i*$k;
$kor=sqrt(1-$R*$R/(4*$D*$D));
$S=$D*$D*asin($kor)+$R*$R*asin($kor)-$R*$D*$kor;
if(abs(2*$S-$S1)<=1000/$t)
{$S=2*$S;
echo "нашли $S<br> $D<br>";}
}
</sсript>]]>