Медицинские и биологические системы​

#include "stdafx.h"

#include <iostream>

using namespace std;

int main()

{

setlocale (LC_ALL, "RUS");

int i,j,N,M,a[20][20];

cout<<"N="; //ввод количества строк

cin>>N;

cout<<"M="; //ввод количества столбцов

cin>>M;

cout<<"Input matrix A \n";

//цикл по переменной i, в которой перебираем строки матрицы

for (i=0; i<N; i++)

//цикл по переменной j, в котором перебираем элементы внутри строки

for (j=0; j<M; j++)

cin>>a[i][j]; //ввод очередного элемента матрицы

cout<<"matrix A \n";

for (i=0; i<N; i++)

{

//цикл по переменной i, в котором перебираем строки матрицы

for (j=0; j<M; j++)

cout<<a[i][j]<<"\t"; //вывод очередного элемента матрицы

cout<<endl; //переход на новую строку после вывода всех элементов строки

}

system("pause");

return 0;

}

Объяснение:

Function Intg(p, b: real; n: integer; eps: real): real;
{Метод прямоугольников, рекурсия}
var
  a, x, h, s: real;
  i: integer;
begin
  a := 0;
  h := (b - a) / n;
  x := a;
  s := 0;
  for i := 1 to n do
  begin
    s := s + sin(x);
    x := x + h;
  end;
  if abs(s * h - p) > eps then
    Intg := Intg(s * h, b, 2 * n, eps)
  else
    Intg := s * h;
end;

var
  b, eps: real;

begin
  write('Задайте верхний предел интегрирования и точность: ');
  Readln(b, eps);
  writeln('Значение интеграла: ', Intg(0, b, 2, eps):0:7);
end.

Тестовое решение:

Задайте верхний предел интегрирования и точность: 2 0.000001
Значение интеграла: 1.4161460

Точное значение интеграла равно 1-cos(2) ≈1.416146836, т.е. заданная точность обеспечивается.