В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
1232815
1232815
19.02.2020 15:30 •  Информатика

1.Установите соответствие: 1.1 Иизменение ориентации, полей 1.2 Иизменение начертание, размер, цвет, тип шрифта 1.3 изменение выравнивание, межстрочный интервал 2. Установите соответствие: выделить фрагмент текста, Ctrl + XCtrl + V текста 2.2 выделить фрагмент текст, Ctrt + C , Ctrl+ 2.1 2.3 Ctrl Y 2.4 Ctrl 2 а) форматирование символа б) форматирование абзаца в) форматирование страницы а) Копирование фрагмента б) Перемещение фрагмента текста в) Отменить последнее действие г) Повторить последнее действие​

Показать ответ
Ответ:
Лара1512
Лара1512
11.03.2021 12:07

а) язык программирования

Объяснение:

К инструментальному программному обеспечению относят: системы программирования – для разработки новых программ, например, Паскаль, Бейсик. Обычно они включают: редактор текстов, обеспечивающий создание и редактирование программ на исходном языке программирования (исходных программ), транслятор, а также библиотеки подпрограмм; инструментальные среды для разработки приложений, например, C++, Delphi, Visual Basic, Java, которые включают средства визуального программирования; системы моделирования, например, система имитационного моделирования MatLab, системы моделирования бизнес-процессов BpWin и баз данных ErWin и другие.

0,0(0 оценок)
Ответ:
petrovspb
petrovspb
19.02.2023 15:47

const

 n = 4;

begin

 var a := new real[n, n](

   (1.17, 0.53, -0.84, -0.34),

   (0.64, -0.72, -0.43, 0.17),

   (0.32, 0.43, -0.93, 0.23),

   (1.35, -0.72, 1.38, 0.35));

 var b := new real[n](1.15, 0.15, -0.48, 0.88);

 var t := ArrFill(n, True);

 for var j := 0 to n - 1 do begin

   (var amin, var imin) := (real.MaxValue, -1);

   for var i := 0 to n - 1 do

     if (abs(a[i, j]) < amin) and t[i] then

       (imin, amin) := (i, a[i, j]);

   if amin = 0 then begin

     t[imin] := False;

     break

   end;

   for var k := 0 to n - 1 do

     a[imin, k] /= amin; b[imin] /= amin;

   t[imin] := False;

   for var i := 0 to n - 1 do begin

     var coef := -a[i, j] / a[imin, j];

     if i <> imin then begin

       for var k := 0 to n - 1 do

         a[i, k] := a[imin, k] * coef + a[i, k];

       b[i] := b[imin] * coef + b[i]

     end

   end

 end;

 b.PrintLines

end.


Решить систему линейных алгебраических уравнений методом Гаусса:
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота