3. Раздели инструменты 3D-редактора на группы ответы напиши в таблицу (только название инструмента)
Прямоугольник - инструмент для рисования прямоугольника.
Линия – инструмент для рисования исходной схемы объектов.
Переместить - инструмент для перемещения, растягивания или копирования
любого объекта. Вдавить Вытянуть — инструмент, который позволяет
вдавливать или вытягивать грани объектов для добавления или уменьшения
обьема.
Вращение — инструмент для отображения всего объекта, поворачивая его.
Сдвиг - инструмент для создания копий линий, которые равноотдалены от
точек начала неординат.
Повернуть - инструмент для поворота, растяжения, искажения или
копирования объектов вдоль закругленной линии.
Круг - инструмент для рисования окружностей и кругов.
Выбор – инструмент для выбора нужного инструмента или объекта.
Компонент - инструмент для выбора компонентов для выбранных объектов.
Заливка - инструмент для закрашивания нарисованных объектов.
надо это сор!

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

Ответ:

Ghhgfgh

02.02.2022 01:19

Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.

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

Ответ:

Dogi2008

27.02.2023 16:00

Const n = 50; // количество чиселvar k: array [1..n] of integer; i, j, n1, n2, minr, a, b: integer; begin writeln(n, ' ', ': d'); a : = random(1000); b : = random(1000); minr : = 10000; for i : = 1 to n do k[i] : = a + random(b); for i : = 1 to n do for j : = 1 to n do if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then begin minr : = abs(k[i] - k[j]); n1 : = i; n2 : = j; end; writeln(n1, ' ', n2); end.

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

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