Работа с матрицами

[ElenaO]

Сообщение от ByAlex

Сейчас попробую сделать вторую, будь на связи!

Ок,буду с нетерпением ждать

[N1KeL]

2.6 на C++

#include "stdafx.h"
#include <iostream>
using namespace std;

bool isMagicSquare(int** arr, int n)
{
	int i, j, sumI, sumJ, tmp = 0;
	for(i = 0; i < n; i++)
		tmp += arr[i][0];

	for(i = 0; i < n; i++)
	{
		sumI = 0;
		sumJ = 0;
		for(j = 0; j < n; j++)
		{
			sumI += arr[i][j];
			sumJ += arr[j][i];
		}
		if(sumI != tmp || sumJ != tmp)
			return false;
	}
	return true;
}

int _tmain(int argc, _TCHAR* argv[])
{
	int n;
	cin >> n;
	int** arr = new int*[n];
	for(int i = 0; i < n; i++)
	{
		arr[i] = new int[n];
		for(int j = 0; j < n; j++)
			cin >> arr[i][j];
	}

	cout << isMagicSquare(arr, n) << endl;

	system("pause");
	return 0;
}

[ElenaO]

Сообщение от N1KeL

2.6 на C++

#include "stdafx.h"
#include <iostream>
using namespace std;

bool isMagicSquare(int** arr, int n)
{
	int i, j, sumI, sumJ, tmp = 0;
	for(i = 0; i < n; i++)
		tmp += arr[i][0];

	for(i = 0; i < n; i++)
	{
		sumI = 0;
		sumJ = 0;
		for(j = 0; j < n; j++)
		{
			sumI += arr[i][j];
			sumJ += arr[j][i];
		}
		if(sumI != tmp || sumJ != tmp)
			return false;
	}
	return true;
}

int _tmain(int argc, _TCHAR* argv[])
{
	int n;
	cin >> n;
	int** arr = new int*[n];
	for(int i = 0; i < n; i++)
	{
		arr[i] = new int[n];
		for(int j = 0; j < n; j++)
			cin >> arr[i][j];
	}

	cout << isMagicSquare(arr, n) << endl;

	system("pause");
	return 0;
}

Спасибо большое)Буду надеется,что кто нибудь сделает её в паскале

[ElenaO]

Вас так много,а я одна с этими жуткими задачами

[ByAlex]

Вот типа такого -

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  max,maxj,i,j,t:integer;
  arr:array[1..5,1..5] of integer;
  masStrok:array[1..5] of integer=(0,0,0,0,0);
  masStolb:array[1..5] of integer=(0,0,0,0,0);
  Check:boolean;
begin
  writeln('Vvedite matrix[5x5]:');
  for i := 1 to 5 do
    for j := 1 to 5 do
      read(arr[i,j]);
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      masStrok[i]:=masStrok[i]+arr[i,j];
      masStolb[i]:=masStolb[i]+arr[j,i];
    end;
  end;
  for i := 1 to 5 do
  begin
    masStrok[i]:=masStrok[i]-masStolb[i];
    if masStrok[i]=0 then check:=true;
  end;
  writeln;
  if check then
    write('Martix is magic kvadrat')
  else write('Martix is not magic kvadrat');
  readln;
  readln;
end.

[ByAlex]

Сообщение от ElenaO

Вас так много,а я одна с этими жуткими задачами

Ничего, справимся!

[ElenaO]

что значит SysUtils?
можно написать просто crt?

[N1KeL]

Сообщение от ElenaO

Вас так много,а я одна с этими жуткими задачами

Нет, здесь таких как вы еще больше, чем нас

[ElenaO]

Сообщение от ByAlex

Ничего, справимся!

Оооойй....спасибо большое)Так приятно,когда тебя поддерживают такие умные и добрые мужчины)

[ByAlex]

У тебя Turbo pascal что ли стоит?