Для размещения на форме флажка нужно дважды щелкнуть на кнопке на вкладке Standard с компонентами.

TRadioButton

TCheckBox

TComboBox

Edit

Вопрос №2 ?

Для размещения на форме поля с раскрывающимся списком нужно дважды щелкнуть на кнопке на вкладке Standard с компонентами.

Edit

TComboBox

TRadioButton

TCheckBox

Вопрос №3 ?

Для размещения на форме переключателя нужно дважды щелкнуть на кнопке на вкладке Standard с компонентами.

TCheckBox

TComboBox

TRadioButton

Edit

Вопрос №4 ?

Для чего используют переключатели?

Для выбора нескольких вариантов

Для ввода текста

Отсутствует правильный ответ

Для выбора одного варианта из нескольких возможных, например, установить для определенного свойства объекта одно значение из некоторого определенного набора значений

Вопрос №5 ?

Выберите кнопку Редактор строк.

Вопрос №6 ?

Свойство Checked флажка может принимать одно из двух значений:

правильно или неправильно

0 или 1

true или false

отсутствует правильный ответ

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

Ответ:

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

Ответ:

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

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