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

Необходимо решить 2 задачи на pascal

👇
Ответ:

Відповідь:

1)

program Pascal01;

const

 minCountWords = 14;

var

 s: string;

 words: array[1..200] of string[100];

 indexWords: Integer;

 countWords: Integer;

 countCorrectWords: Integer;

begin

countWords := 0

indexWords := 0;

repeat

 indexWords := indexWords + 1;

 read(words[indexWords]);

until length(words[indexWords]) > 0;

if (indexWords < minCountWords) then

begin

  Write('Введено меньше 14 слов')

  Halt(1);

end

else

  countWords := indexWords;

countCorrectWords := 0;

for indexWords := 1 to countWords do

begin

 if (words[indexWords][1] = words[indexWords] [length(words[indexWords])]) then

    inc(countCorrectWords);

end;

Writeln('countCorrectWords= ', countCorrectWords);

end.

2)

program Pascal02;

const

 maxn = 100;

var

 massiv: array[1..maxn] of integer;

 index: Integer;

 indexFirst0: Integer;

 n: integer;

begin

Write ('Введите n=? ');

Readln(n);

for index := 1 to n do

begin

  Write ('Введите massiv[' + index + ']=? ');

  Readln(massiv[index]);

end;

indexFirst0 := -1;

index := 1;

while ((index < n+1) and (indexFirst0 = -1)) do

begin

 if massiv[index]=0 then indexFirst0 = index;

 inc(index);

end;

if (indexFirst0 = -1) then

  Writeln('В массиве нет элемента =0')

else

  Writeln('Индекс элемента =0 =', indexFirst0)

end.

Пояснення:

1)

а) будем вводить отдельно каждое слово. пустое слово (просто ентер) - конец ввода.

б) слова разместим сразу в массиве words[]

2)

вводим n

вводим n элементов массива

просматриваем массив, если нашли 0 - цикл прекращается. если массив закончился, а нуля нет то indexFirst0 = -1.

анализируем indexFirst0, если -1 - то нет, если не -1 - выводим индекс нуля.

4,6(5 оценок)
Открыть все ответы
Ответ:
xdxdxdxdxdxdx
xdxdxdxdxdxdx
11.03.2023
c++

#include <iostream>

using namespace std;

int main()

{

  int main[] = {0,1,2,3,4,5,6,7,8,9};

  int ch[5], nech[5], n = 0;

  for (int i=0;i<10;i+=2)

  {

      ch[n] = main[i];

      n++;

  }

  n = 0;

  for (int i=1;i<10;i+=2)

  {

      nech[n] = main[i];

      n++;

  }

  for (int i=0;i<5;i++)

  {

      cout << ch[i] << " ";

  }

  cout << endl;

  for (int i=0;i<5;i++)

  {

      cout << nech[i] << " ";

  }

}

Вывод:

0 2 4 6 8                                                                                                                      

1  3 5 7 9

4,5(96 оценок)
Ответ:
vadar22222
vadar22222
11.03.2023

Можно использовать несколько подходов к классификации роботов — например, по сфере применения, по назначению, по передвижения, и пр. По сфере основного применения можно выделить промышленных роботов, исследовательских роботов, роботов, используемых в обучении, специальных роботов.

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

Манипуляционный робот — автоматическая машина (стационарная или передвижная), состоящая из исполнительного устройства в виде манипулятора, имеющего несколько степеней подвижности, и устройства программного управления, которая служит для выполнения в производственном процессе двигательных и управляющих функций. Такие роботы производятся в напольном, подвесном и портальном исполнениях. Получили наибольшее распространение в машиностроительных и приборостроительных отраслях[10].

Мобильный робот — автоматическая машина, в которой имеется движущееся шасси с автоматически управляемыми приводами. Такие роботы могут быть колёсными, шагающими и гусеничными (существуют также ползающие, плавающие и летающие мобильные робототехнические системы, см. ниже)[11].

Объяснение:

Приводы: это «мышцы» роботов. В настоящее время самыми популярными двигателями в приводах являются электрические, но применяются и другие, использующие химические вещества, жидкости или сжатый воздух.

Двигатели постоянного тока: В настоящий момент большинство роботов используют электродвигатели, которые могут быть нескольких видов.

Шаговые электродвигатели: Как можно предположить из названия, шаговые электродвигатели не вращаются свободно, подобно двигателям постоянного тока. Они поворачиваются пошагово на определённый угол под управлением контроллера. Это позволяет обойтись без датчика положения, так как угол, на который был сделан поворот, заведомо известен контроллеру; поэтому такие двигатели часто используются в приводах многих роботов и станках с ЧПУ.

Пьезодвигатели: Современной альтернативой двигателям постоянного тока являются пьезодвигатели, также известные как ультразвуковые двигатели. Принцип их работы весьма оригинален: крошечные пьезоэлектрические ножки, вибрирующие с частотой более 1000 раз в секунду, заставляют мотор двигаться по окружности или прямой. Преимуществами подобных двигателей являются высокое нанометрическое разрешение, скорость и мощность, несоизмеримая с их размерами. Пьезодвигатели уже доступны на коммерческой основе и также применяются на некоторых роботах.

Воздушные мышцы: Воздушные мышцы — простое, но мощное устройство для обеспечения силы тяги. При накачивании сжатым воздухом мышцы сокращаться до 40 % от своей длины. Причиной такого поведения является плетение, видимое с внешней стороны, которое заставляет мышцы быть или длинными и тонкими, или короткими и толстыми[источник не указан 3304 дня]. Так как их работы схож с биологическими мышцами, их можно использовать для производства роботов с мышцами и скелетом, аналогичными мышцам и скелету животных[12][13].

Электроактивные полимеры: Электроактивные полимеры — это вид пластмасс, который изменяет форму в ответ на электрическую стимуляцию. Они могут быть сконструированы таким образом, что могут гнуться, растягиваться или сокращаться. Впрочем, в настоящее время нет ЭАП, пригодных для производства коммерческих роботов, так как все ныне существующие их образцы неэффективны или непрочны.

Эластичные нанотрубки: Это — многообещающая экспериментальная технология, находящаяся на ранней стадии разработки. Отсутствие дефектов в нанотрубках позволяет волокну эластично деформироваться на несколько процентов. Человеческий бицепс может быть заменён проводом из такого материала диаметром 8 мм. Подобные компактные «мышцы» могут роботам в будущем обгонять и перепрыгивать человека.

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