40 ! решите уравнение x^2=5cos(x-1) методом перебора и методом деления отрезка пополам, а также с табличного процессора. сравните количество шагов цикла при использовании каждого метода. язык программирования python.
Program sergo; uses drawman; begin task('a1'); topoint(2,3); pendown; topoint(3,5); penup; topoint(0,0); end. алг квадрат1 нач . сместиться в точку(2,1) . опустить перо . сместиться в точку(2,4) . сместиться в точку(5,4) . сместиться в точку(5,1) . сместиться в точку(2,1) . поднять перо . сместиться в точку(0,0) кон использовать чертежник алг квадрат2 нач . сместиться на вектор(2,1) . опустить перо . сместиться на вектор(0,3) . сместиться на вектор(3,0) . сместиться на вектор(0,-3) . сместиться на вектор(-3,0) . поднять перо . сместиться на вектор(-2,-1) кон
Иванович
28.09.2020
Var a: array of array of integer; c: array of array of integer; ma: array of array of integer; i,j,n: integer; begin; randomize; readln(n); setlength(a,n+1); //задаём размерность динамических массивов setlength(c,n+1); setlength(ma,n+1); for i: =1 to n do begin; setlength(a[i],n+1); setlength(c[i],n+1); setlength(ma[i],n+1); end; writeln('matrix a: '); //генерируем массив псеводслучайных чисел for i: =1 to n do begin; writeln; for j: =1 to n do begin; a[i,j]: =random(10); write(a[i,j]: 4); end; end; writeln; writeln('matrix c: '); //аналогично for i: =1 to n do begin; writeln; for j: =1 to n do begin; c[i,j]: =random(10); write(c[i,j]: 4); end; end; for i: =1 to n do //сохраняем матрицу c для транспонации for j: =1 to n do ma[i,j]: =c[i,j]; writeln; writeln('transpose matrix c: '); //транспонируем c for i: =1 to n do begin; writeln; for j: =1 to n do begin; c[i,j]: =ma[j,i]; write(c[i,j]: 4); end; end; writeln; writeln('final matrix: '); // получаем финальную матрицу for i: =1 to n do begin; writeln; for j: =1 to n do begin; ma[i,j]: =2*c[i,j]*a[i,j]; {по свойству дистрибутивности матриц с(a+a)=c*a+c*a=2*c*a} write(ma[i,j]: 4); end; end; end.