Үй тапсырмасы Роботтехникамен айналысатын әрбір адам геометриялық фигура-
лардың қасиеттерін жақсы білуі керек. Төменде берілген тақырып
бойынша интернеттен ақпарат ізде. Берілген сұрақтар бойынша
3-слайдтан тұратын презентация дайында.

Үй тапсырмасы Роботтехникамен айналысатын әрбір адам геометриялық фигура-лардың қасиеттерін жақсы бі

👇

Ответ:

Ник1233211

24.07.2020

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

Робототехника электроника, механика, кибернетика, телемеханика, мехатроника [4], информатика, сонымен қатар радио және электротехника сияқты пәндерге негізделген. Құрылыс, өндірістік, тұрмыстық, медициналық, авиациялық және экстремалды (әскери, ғарыштық, су асты) робототехника бар.

Терминнің этимологиясы

«Робототехника» сөзін (немесе «робототехника», «робототехника») алғаш рет Исаак Асимов 1941 жылы басылған «Өтірікші» ғылыми-фантастикалық әңгімесінде баспа түрінде қолданған.

«Робототехника» сөзі 1920 жылы чех жазушысы Карел Чапек пен оның інісі Йозеф Карел Чапектің «Р. W. R. « («Rossumskie әмбебап роботтар»), алғаш рет 1921 жылы сахналанып, көрермендермен бірге сәттілікке ие болды. Онда зауыт иесі көптеген андроидтарды шығаруды ұйымдастырады, олар басында демалмай жұмыс істейді, бірақ кейін көтеріліп, олардың жасаушыларын жояды [5].

Объяснение:

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

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

Ответ:

kjhf2225

24.07.2020

"Типовой школьный" Паскаль:

// PascalABC.Net 3.0, сборка 1064
const
k = 100;

var
s, wd: string;
i, j, m, n, pt, step: integer;
Words, WordsSort: array[1..k] of string;
InOrder: boolean;

begin
Write('Введите строку: '); Readln(s);
n := Length(s); pt := 1; m := 0;
repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if Ord(s[pt]) <= 32 then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
        else break;
      if wd <> '' then begin Inc(m);Words[m] := wd end
    end
until pt > n;
// Теперь Words содержит все m слов.
// Отсортируем их в массиве WordsSort методом Шелла
for i := 1 to m do WordsSort[i] := Words[i];
step := m div 2;
while step > 0 do begin
    for j := m - step downto 1 do begin
      i := j;
      while i <= m - step do begin
        if WordsSort[i] > WordsSort[i + step] then begin
          wd := WordsSort[i];
          WordsSort[i] := WordsSort[i + 1];
          WordsSort[i + 1] := wd
        end;
        i := i + step
      end
    end;
    step := step div 2
end;
// Осталось поэлементно сравнить оба массива
InOrder := true; i := 1;
while InOrder and (i <= m) do
begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
if m = 0 then Writeln('Строка не содержит слов')
else
    if InOrder then Writeln('Cлова упорядочены')
    else Writeln('Cлова не упорядочены')
end.

Тестовое решение:
Введите строку: слово1    слово2    слово3    слово4 слово5
Cлова упорядочены

Введите строку: слово1    слово2    слово4    слово3 слово5
Cлова не упорядочены

"Современный" вариант решения на Паскале:

// PascalABC.Net 3.0, сборка 1064
var
s:string;
begin
Write('Введите строку: '); Readln(s);
var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
var Words:=s.Split(Delim).Where(x->x<>'');
var WordsSort:=Words.Sorted;
if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
else Writeln('Cлова не упорядочены')
end.

Тестовое решение совпадает с вышеприведенным.

4,6(59 оценок)

Ответ:

ntaskaeva2

24.07.2020

Type
mass = array[1..10, 1..10] of real;

var
a, b, c: mass;
n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
end;
readln;
end.

4,7(39 оценок)

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

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

07.03.2023

Как играть в Колонизаторов...

Кулинария-и-гостеприимство

04.02.2023

Как приготовить фасоль пинто: пошаговый рецепт и полезные советы...

Образование-и-коммуникации

17.11.2022

Как стать самым уверенным учеником в школе?...

Взаимоотношения