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

До ть будь ласка, програмування делфі

Показать ответ
Ответ:
Tina19977
Tina19977
19.12.2022 20:24

Program z1;

const n=20; //  значение n можно изменить

var i,max,min,p,imin,imax:integer;

a:array[1..n] of integer;

begin

min:=10000;

for i:=1 to n do begin

 a[i]:=random(51);

 if(a[i] > max) then begin max:=a[i]; imax:=i; end; // 1-ый пункт

 if(a[i] < min) then begin min:=a[i]; imin:=i; end; // 2-ой пункт

 write(a[i]:3);

 end;

 

p:=a[1]; // 1-ый пункт

a[1]:=a[imax];

a[imax]:=p;

p:=a[2]; // 2-ой пункт

a[2]:=a[imin];

a[imin]:=p;

writeln();

for i:=1 to n do begin

 write(a[i]:3);  

 end;

end.

0,0(0 оценок)
Ответ:
karalina200215
karalina200215
16.02.2020 16:29

Объяснение:

Возводить в квадрат надо не отдельно правую и левую части, а разность между левой и правой частями системы (по каждому уравнению отдельно). Потом эти квадраты разностей просуммировать.

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

Поскольку эта функция является сумой квадратов,  она не отрицательная для всех значений аргументов, а ее минимальное значение == 0.

Поэтому минимизировать функцию квадратов невязок системы означает - найти такое значение переменных, при которых значение функции невязок равняется 0. Если удастся найти такое решение, то это и будет решением системы.

У Вас на картинках выписана эта функция, но не показано, как Вы применяете Поиск решения для минимизации этой функции.

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