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

Дан массив из семи элементов, найти количество элементов больше нуля и вывести их позиции, количество единиц в массиве Паскаль

Показать ответ
Ответ:
Emmaasakura
Emmaasakura
03.04.2022 01:12

Внимание! Этот код - не пример того, как нужно писать программы на С++, это лишь попытка адаптировать написанную на Pascal программу на С++ с минимальными изменениями в логике кода, функциях и т.д.

В процессе возникла проблема с адаптацией type mat = array [1..5, 1..5] of real; Ближайший аналог -  typedef double mat[mm][mm]; , однако тогда возникают проблемы с передачей параметров в функцию.

Поэтому пришлось создавать класс с динамическим выделением памяти [обращаю на это внимание, не статический] и перегруженным оператором индексации.

#include <iostream>

const int mm = 5;

class mat

{

private:

double ** array;

public:

mat(): array(nullptr) {}

mat(double tmp[][mm])

{

 array = new double *[mm];

 for (auto i = 0; i < mm; i++)

 {

  array[i] = new double [mm];

 }

 for (auto i = 0; i < mm; i++)

 {

  for (auto j = 0; j < mm; j++)

  {

   array[i][j] = tmp[i][j];

  }

 }

}

~mat()

{

 for (auto i = 0; i < mm; i++)

 {

  delete[] array[i];

 }

 delete[] array;

}

double * operator[] (const int i)

{

 if (i < 0 || i >= mm)

 {

  throw std::runtime_error("Error! Invalid index!");

 }

 return array[i];

}

};

void pp1(mat& A, bool& p, int& imax, int& jmax)

{

imax = jmax = 0;

for (auto i = 0; i < mm; i++)

{

 for (auto j = 0; j < mm; j++)

 {

  if (A[i][j] > A[imax][jmax])

  {

   imax = i;

   jmax = j;

  }

 }

}

p = jmax > imax;

}

void pp2(mat& A)

{

double c;

for (auto i = 1; i < mm; i++)

{

 for (auto j = 0; j < i; j++)

 {

  c = A[i][j];

  A[i][j] = A[j][i];

  A[j][i] = c;

 }

}

}

void pp3(mat& A, int& imax, int& jmax, double& S)

{

S = 0;

for (auto i = 0; i < mm; i++)

{

 S += A[i][jmax] + A[imax][i];

}

}

int main()

{

double S;

int imax, jmax;

bool p;

double A1[mm][mm] = { {9, 1, 1, 2, 3}, {4, 6, 7, 8, 4}, {5, 1, 1, 1, 1}, {1, 1, 1, 1, 1}, {1, 1, 2, 1, 1 } };

mat A(A1);

std::cout << "isxodnaya matriza" << std::endl;

for (auto i = 0; i < mm; i++)

{

 for (auto j = 0; j < mm; j++)

 {

  std::cout << " " << A[i][j];

 }

 std::cout << std::endl;

}

pp1(A, p, imax, jmax);

std::cout << "MAX element: A[" << imax << "][" << jmax << "] = " << A[imax][jmax] << std::endl;

if (p)

{

 pp2(A);

 std::cout << "Transponirovannaya matrix" << std::endl;

 for (auto i = 0; i < mm; i++)

 {

  for (auto j = 0; j < mm; j++)

  {

   std::cout << " " << A[i][j];

  }

  std::cout << std::endl;

 }

}

else

{

 pp3(A, imax, jmax, S);

 std::cout << "Symma elementov s " << S << std::endl;

}

return 0;

}

0,0(0 оценок)
Ответ:
ALMUGGG
ALMUGGG
17.12.2022 17:32
// PascalABC.NET 3.0, сборка 1073
const
  m=5;
  n=4;
  a:array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);
  b:array[1..n] of real=(8.1,3.2,-6.4,-3.5);
  k=3;
var
  i,j:integer;
  sk:real;
  s:array[1..m,1..n] of real;
begin
  Writeln('Массив S');
  for i:=1 to m do begin
    for j:=1 to n do begin
      s[i,j]:=a[i]*b[j];
      Write(s[i,j]:7:2)
    end;
    Writeln
  end;
  sk:=0;
  for i:=1 to m do sk:=sk+s[i,k];
  Writeln('Сумма элементов столбца ',k,' равна ',sk)
end.

Результат выполнения программы:
Массив S
  16.20   6.40 -12.80  -7.00
 -57.51 -22.72  45.44  24.85
  25.92  10.24 -20.48 -11.20
 -43.74 -17.28  34.56  18.90
  55.89  22.08 -44.16 -24.15
Сумма элементов столбца 3 равна 2.56
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота