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

Вдвумерном массиве [1..6,1..7] поменять местами 1 и 2, 3 и 4, 5 и 6 строки.

👇
Ответ:
Qurin
Qurin
12.06.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив [6,7] ***');
  var a:=MatrRandom(6,7,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('*** Результирующий массив [6,7] ***');
  for var i:=0 to 2 do a.SwapRows(2*i,2*i+1);
  a.Println(4)
end.

Пример
*** Исходный массив [6,7] ***
  16 -26 -12  33  39 -28  -6
  15 -77  15  63 -30 -59 -62
 -14  -3 -94  42  49  86  95
 -74  75 -69 -44 -43  -2 -62
 -68  82 -36 -30 -92 -88  34
 -34  16  81 -67   4  -8  80

*** Результирующий массив [6,7] ***
  15 -77  15  63 -30 -59 -62
  16 -26 -12  33  39 -28  -6
 -74  75 -69 -44 -43  -2 -62
 -14  -3 -94  42  49  86  95
 -34  16  81 -67   4  -8  80
 -68  82 -36 -30 -92 -88  34
4,8(30 оценок)
Ответ:
adamannik
adamannik
12.06.2022
 Const
   N = 6;
   M = 7;
Var
   A:array[1..N,1..M] of integer;
   i,j,B:integer;
Procedure Obmen(n1,n2:integer);
Var
   j:integer;
Begin
For j:= 1 to M do
    Begin
    B:=A[n1,j];
    A[n1,j]:=A[n2,j];
    A[n2,j]:=B;
    End;
End;
Begin
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ');
        End;
    WriteLn;
    End;
WriteLn('Изменённый массив:');
Obmen(1,2);
Obmen(3,4);
Obmen(5,6);
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(A[i,j]:3,' ');
    WriteLn;
    End;
End.

Исходный массив:
 -1   8  -2   3  -7   3 -10
 -4   8   6   2  -1  10  -8
 -5  -7   0   2  -6  -2   4
 10  -1  -6  -5   2   2  -7
  7  -2   8  -8  -3   7  -2
 -9  -7   9   2  -2   3  -6
Изменённый массив:
 -4   8   6   2  -1  10  -8
 -1   8  -2   3  -7   3 -10
 10  -1  -6  -5   2   2  -7
 -5  -7   0   2  -6  -2   4
 -9  -7   9   2  -2   3  -6
  7  -2   8  -8  -3   7  -2
4,8(39 оценок)
Открыть все ответы
Ответ:
tetyanavasil
tetyanavasil
12.06.2022

Объяснение:

Робототехника — отдел прикладной науки, который занимается проектированием, производством и применением автоматизированных технических систем

Первой и главной причиной возникновения науки вляется формирование субъектно-объектных отношений между человеком и природой, между человеком и окружающей его средой. Это связано, в первую очередь, с переходом человечества от собирательства к производящему хозяйству.

Первого действующего человекоподобного робота создал французский изобретатель Жак де Вокансон в 1737 году. Андроид представлял из себя человека в натуральную величину на флейте.

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

4,4(42 оценок)
Ответ:
polli54
polli54
12.06.2022

В свойстве формы нужно создать метод Form1_Click как на скрине в приложении

Объяснение:

using System;

using System.Windows.Forms;

namespace WindowsFormsApp1

{

   public partial class Form1 : Form

   {

       private const int ButtonCount = 100; // Количество кнопок

       private Button[] ButtonArray = new Button[ButtonCount];

       public Form1()

       {

           InitializeComponent();

           PlaceButtons();

       }

       private void PlaceButtons()

       {

           int x = 10;

           int y = 10;

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

           {

               ButtonArray[i] = new Button();

               ButtonArray[i].Parent = Control.FromHandle(this.Handle);

               ButtonArray[i].SetBounds(x, y, ButtonArray[i].Width, ButtonArray[i].Height);

               ButtonArray[i].Click += Some_Button_Click;

               ButtonArray[i].Text = "Кнопка " + (i + 1).ToString();

               ButtonArray[i].Name = "B" + i.ToString();

               ButtonArray[i].Show();

               x += ButtonArray[i].Width + 10;

               if ((x + ButtonArray[i].Width ) > this.Width) { y = y + ButtonArray[i].Height + 10; x = 10; }

           }

       }

       private void Some_Button_Click(object sender, EventArgs e)

       {

           //throw new NotImplementedException();

           int ButtonNumber = int.Parse(((Button)sender).Name.Substring(1));

           if (ButtonNumber == ButtonCount - 1) return;

           ButtonArray[ButtonNumber + 1].Enabled = false;

       }

       private void Form1_Click(object sender, EventArgs e)

       {

           for (int i = 0; i < ButtonCount; i++) ButtonArray[i].Enabled = true;

       }

   }

}


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