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

Впроизвольно заданном одномерном массиве определить местоположение первого и последнего из всех отрицательных элементов

👇
Ответ:
Łųçů
Łųçů
19.11.2022
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
  var a:=ArrRandom(Readinteger('n='),-50,50); a.Println;
  Writeln('1й отрицательный ',a.FindIndex(x->x<0)+1,
    ', последний ',a.FindLastIndex(x->x<0)+1)
end.

Пример
n= 13
16 34 45 -4 1 -14 -49 10 3 23 -7 17 23
1й отрицательный 4, последний 11
4,6(3 оценок)
Открыть все ответы
Ответ:
MadMax22277
MadMax22277
19.11.2022
Uses graphAbc;

const
 w = 600;
 r = 300;

dl = 40;
sl = 250;
ml = 200;
hl = 150;

var
 h,m,s: integer;
 i:integer;
 x,y: integer;
 g: real;
 
begin
 setwindowsize(w,w);
 read(h,m,s);
 h := h mod 12;
 setpenwidth(2);
 circle(w div 2, w div 2, r);
 for i := 0 to 59 do
   begin
   g := (i*360/60 - 90) * pi/180;
   if i mod 12 = 0 then
     begin
     x := w div 2 + round((r - dl) * cos(g));
     y := w div 2 + round((r - dl) * sin(g));
     end
   else
     begin
     x := w div 2 + round((r - dl div 3) * cos(g));
     y := w div 2 + round((r - dl div 3) * sin(g));
     end;
   line(x,y,w div 2 + round(r*cos(g)),w div 2 + round(r*sin(g)))
   end;
 setbrushcolor(clwhite);  while true do
   begin
   setpencolor(clwhite);
   circle(w div 2, w div 2, sl);
   setpencolor(clblack);
      setpenwidth(1);
   g := (6*s - 90) * pi/180;
   x := w div 2 + round(sl * cos(g));
   y := w div 2 + round(sl * sin(g));
   line(w div 2, w div 2, x, y);
      setpenwidth(2);
   g := ((60*m + s)/10 - 90) * pi/180;
   x := w div 2 + round(ml * cos(g));
   y := w div 2 + round(ml * sin(g));
   line(w div 2, w div 2, x, y);

   setpenwidth(3);
   g := (360*(60*60*h + 60*m + s)/12/60/60 - 90) * pi/180;
   x := w div 2 + round(hl * cos(g));
   y := w div 2 + round(hl * sin(g));
   line(w div 2, w div 2, x, y);
      s := s + 1;
   if s = 60 then
     begin
     m := m + 1;
     s := 0;
     end;
   if m = 60 then
     begin
     h := (h + 1) mod 12;
     m := 0
     end;

   sleep(1000)
   end;
end.
4,6(11 оценок)
Ответ:
арсений201
арсений201
19.11.2022

Гироскопический датчик вам выполнить гораздо более точные движения. Ваша задача состоит в том, чтобы запрограммировать своего робота на выполнение поворота на месте на точный угол, используя гироскопический датчик.

Авиация и роботы Роботизированные пилоты - призваны заменить летчиков управлять любым типом летательного аппарата. ...

Автомобили и роботы ...

Агроботы ...

Аниматроника и роботы ...

Атомная промышленность и робототехника ...

Аэропорты и роботы ...

Гостиницы и роботы

Дезинфекция помещений и роботы

4,5(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ