М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Среднячёк
Среднячёк
23.11.2022 13:38 •  Информатика

Задание Напишите следующую программу движения: перед роботом на неопределенном расстоянии находится коробка.
Расстояние до коробки – от 20 до 150 см.
Запуск робота должен осуществляться с жеста.
После старта он должен измерить расстояние до коробки с
ультразвукового датчика и сохранить показания в
переменной.
Далее робот должен плавно проехать заданное расстояние,
затем остановиться примерно за 10 см до коробки и подать
сигнал тревоги.

👇
Ответ:
foysogstoxyo
foysogstoxyo
23.11.2022
дабададв алададвов влвшчшгств в влвлв влвлвтв влвлвлвлу в вшвщвлв влвлвтв в в лвшышыльыдышы влвлвшвл влвовжцхч ащвовт
4,6(11 оценок)
Открыть все ответы
Ответ:
svetlana485
svetlana485
23.11.2022
Программа со статическим массивом:

Var
  M: array[1..32767] of real;
  Min: real;
  N, i: integer;
Begin
  Write('N = ');ReadLn(N);
  if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
  else
  begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
  end
End.
4,7(19 оценок)
Ответ:
Groverr
Groverr
23.11.2022
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandomReal(n,1,50);
  a.Println;
  var m:=a.Min;
  if m<>0 then
    for var i:=0 to n-1 do a[i]/=m;
  a.Println
end.

Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304

n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,50);
  a.Println;
  var m:=a.Max;
  if m<>0 then
    for var i:=0 to n-1 do a[i]+=m;
  a.Println
end.

Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50

n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78
4,7(44 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ