на экзамен Паскаль матрицы

[izi2000]

Вычислить элементы матрицы и найти сумму диаганальных элементов
6.JPG
на экзамен, уже идет

[k0tone]

Удачи на экзамене:

program test;
uses crt;
type matrica = array [1..64, 1..64] of real;
var a:matrica;
    sum:real;
    i,j,m,n:integer;

begin
  write('m=');
  readln(m);
  write('n=');
  readln(n);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          if i<j then a[i,j]:=sin(i+j) else a[i,j]:=(sqr(i)+sqr(j));
          write(a[i,j]:9:3);
        end;
      writeln;
    end;
  if n=m then
    begin
      for i:=1 to n do
        begin
          sum:=sum+a[i,i];
        end;
      write(sum:9:3);
    end
  else write('bla bla bla');
  readln;
end.

[izi2000]

Выполните отделение корней уравнения с использованием графической оценки. Разработайте программу, выполняющую уточнение корней методом дихотомии на найденном промежутке с точностью до 0.0001. Выведите на экран значения корней на каждой итерации, при достижении требуемой точности вывести количество выполненных итераций и уточненное значение корня.5^x+3∗x=0. Могли бы вы еще вот с этим помочь ??????????????

[k0tone]

Могли бы вы еще вот с этим помочь?

Помогу не вопросик))

[Serge_Bliznykov]

одна тема - один вопрос.
закрыто.

Модератор.