Разбиваем область на две.
Первая область располагается, начиная от горизонтальной оси Х и ограничена полуокружностью, т.е. представляет собой полукруг. Радиус окружности равен 4, следовательно её уравнение записывается в виде x²+y²=4², а условие принадлежности точки полукругу выглядит как x²+y²≤16 ∩ x≥0, где ∩ - знак объединения множества точек.
Вторая область - это треугольник, ограниченный полуосью Х, содержащей неотрицательные значения х, полуосью Y, содержащей неположительные значения y и прямой, проходящей через точки с координатами (0;-6) и (4;0). Будем искать уравнение этой прямой в каноническом виде y=kx+b, где k - угловой коэффициент. k=(y₂-y₁)/(x₂-x₁)=(0-(-6))/(4-0)=1.5.
b - это величина вертикального смещения графика относительно оси Х, которая равна значению y при х=0, т.е. -6. Получаем уравнение y=1.5x-6.
Теперь можно записать условие принадлежности точки треугольнику:
y≥1.5x-6 ∩ x≥0 ∩ y≤0.
Осталось объединить эти условия по ИЛИ.
(x²+y²≤16 ∩ x≥0) ∪ (y≥1.5x-6 ∩ x≥0 ∩ y≤0)
Здесь есть общее условие x≥0, поэтому выражение можно упростить.
x≥0 ∩ (x²+y²≤16 ∪ y≥1.5x-6 ∩ y≤0)
Словесно алгоритм можно записать так.
x≥0 И [x²+y²≤16 ИЛИ (y≥1.5x-6 И y≤0)]
Поскольку это логическое выражение, его значением будет TRUE или FALSE, поэтому никаких дополнительных присваиваний не требуется.
У Коли закончится в 16:45, у Васи в 16:15,у Наташи в 17:15,у Саши в 17:45.
Ответ D.
Множество-это совокупность объектов,определённая некоторым правилом.
N=256
N=2^j
j= 8 бит
I=1/4 кбайта = 256 байт = 2048 бит
k = I/j = 2048 / 8 = 256 знаков
Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.
Результат:
<span>s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
StaticText1.Caption := s;
end;
</span>