1. Электрондық кестеде модельдеуді қалай орындауға болатындығын еске
түсіріңдер.
2. «Модель», «объект» сөздерін қалай түсінесіңдер?
3. 3D модельдеу нені білдіреді?
4. Қандай жағдайда 3D редакторы қолданылады?
5. 3D модельдеуге арналған қандай программалар бар?
6. Үшөлшемді модельдеудің негізгі кезеңдерін атаңдар.
7. 3D принтер туралы не білесіңдер

Показать ответ

Ответ:

tinapai

27.03.2020 02:51

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
$\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2}$
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// 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
Квадрат не умещается в круге

0,0(0 оценок)

Ответ:

abduboriy2004

11.05.2020 01:48

Const
n=5;

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.

0,0(0 оценок)

Популярные вопросы: Информатика