Кегельринг-это отдельное состязание роботов,самая главная цель это выбить все бутылки(банки) из круга.Робот должен быть оснащен датчиками,без датчиков робот даже не сможет видеть цель и сбить ее,не говорю уже про то,что ему нужно ее выбить с точностью и в определенное время.Робот может случайно коснуться банки,но не выбить ее.Вот поэтому роботам в кегельринге нужны датчики.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
Var ar:array[1..n] of integer; ar2:array[1..n] of integer; i,k:integer;
function prost(a:integer):boolean; var i:integer; b:boolean; begin b:=true; for i:=2 to a div 2 do if a mod i=0 then begin; b:=false; break; end; if a=1 then b:=false; prost:=b; end;
begin; randomize; k:=0; for i:=1 to n do begin; ar[i]:=random(101); write(ar[i]:4); end; writeln; for i:=1 to n do if prost(ar[i]) then begin; inc(k); ar2[k]:=ar[i]; write(ar2[k]:4); end; end.
Кегельринг-это отдельное состязание роботов,самая главная цель это выбить все бутылки(банки) из круга.Робот должен быть оснащен датчиками,без датчиков робот даже не сможет видеть цель и сбить ее,не говорю уже про то,что ему нужно ее выбить с точностью и в определенное время.Робот может случайно коснуться банки,но не выбить ее.Вот поэтому роботам в кегельринге нужны датчики.
Взаранее писал сам.