1. Поманите заданий
Быстрая смена рисунков, создающая иллюзию движения
1)Видео
2)Штриховка
3)Узор
4)Анимация
2.
Какое минимально количество кадров необходимо менять за одну секунду, чтобы человеческий глаз перестал замечать смену изображений?
1)100
2)16
3)10
4)32
3.
Для того, чтобы увидеть объект на экране, между моментами его рисования нужно
1)Сделать паузу
2(Изменить координаты
3)Восстановить фон
4)Нарисовать объект
4.
Объясните, почему следующая программа работает неправильно
нц пока x < 190
Шарик(x, y, жёлтый)
Шарик(x, y, синий)
ждать(20)
x:= x + 2
кц
1)Шарик не стирается
2)Ничего не будет видно
3)Шарик не перемещается
5.
Объясните, почему следующая программа работает неправильно
нц пока x < 190
Шарик(x, y, жёлтый)
ждать(20)
x:= x + 2
Шарик(x, y, синий)
кц
1)Рисует в другом месте
2)Не рисует ничего
3)Стирает в другом месте

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

Ответ:

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 оценок)

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