Не себепті роботтар тірі организм принципі бойынша құрастырылады?

👇

Ответ:

Mesnikfff

14.05.2022

Робот әдетте қоршаған кеңістіктің жай-күйі туралы ақпаратты датчиктер (тірі организмдер сезімдерінің техникалық аналогтары) арқылы алады. Робот адам еңбегін ішінара немесе толықтай алмастыра отырып, өндірістік және басқа операцияларды өз бетінше орындай алады .Бұл жағдайда робот оператормен байланыс орнатып, одан командалар ала алады (қолмен басқару) және бағдарламаланған бағдарламаға сәйкес (автоматты басқару) автономды түрде әрекет ете алады.

4,4(94 оценок)

Открыть все ответы

Ответ:

Yanawer

14.05.2022

В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var
i,j : integer;
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//
for i:=1 to n do
begin
for j:=1 to n do
begin
ar[i,j] := random(2);
write(ar[i,j]:3);
end;
writeln;
end;
//

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
numb := -1;

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца
  begin
//записываем в f значение 1
//Предполагаем, что столбец одинаков
//Если в конце обхода конкретного столбца значение f=1
//Значит, что данный столбец одинаков
  f := 1;

//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do
begin
//Сравниваем текущий элемент столбца, со следующим
if (ar[i,j] <> ar[i+1,j]) then
//Если они не равны, то изменяем значение флажка f на 0
  f := 0;
end;
//Конец обхода конкретного столбца

//Если столбец одинаков
if (f = 1) then
//то записываем его номер в numb
  numb := j;
end;
//

//Вывод результата
if (numb <> -1) then
writeln('Столбец №: ',numb)
else
writeln('Нет ни одного одинакового столбца');
end.

4,8(86 оценок)

Ответ:

алина3821

14.05.2022

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

var x:longint;

begin

readln(x);

if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);

end.

3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.

var a:array[1..50] of integer;

var i:integer;

begin

for i:=1 to 50 do a[i]:=i;

for i:=1 to 50 do writeln(a[i]);

end.

4,8(83 оценок)

Это интересно:

Стиль-и-уход-за-собой

19.01.2021

Как сделать помаду для волос: рецепты, полезные советы и ошибки, которые нужно избежать...

Хобби-и-рукоделие