Форум программистов, компьютерный форум, киберфорум
Наши страницы

Определить, является ли квадратная матрица симметричной относительно побочной диагонали. - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Ввод данных в структуру с клавиатуры http://www.cyberforum.ru/cpp-beginners/thread198974.html
На си, помогите написать, ЗАРАНЕЕ БЛАГОДАРЕН. Данные, которые вводятся, внести в массив СТРУКТУР. С клавиатуры ввести данные про результаты работы завода за месяц: <Номер месяца>, <План работы>,...
C++ Фибоначии Составить функцию, которая вычисляет и печатает N чисел Фибоначии. http://www.cyberforum.ru/cpp-beginners/thread198971.html
C++ Программа через дин.память
Нужно сделать через динамическую память . У меня есть два массива . Нужно найти максимальное значение и присвоить ему соответствующую цифру 70-90 . Максимальный элемент нашел , а чтобы еще и цифра...
C++ Функции и двумерный массив
Пожалуйста помогите с прогой . Составить программу, которая выполняет следующие действия: *ввод исходных массивов; *вывод исходных массивов; *обработку массивов в соответствии с заданием;...
C++ Системы счисления http://www.cyberforum.ru/cpp-beginners/thread198961.html
Не получается написать программу на С++: перевести из любой системы счисления в десятичную. Вот программа, которую я написала. Но она неверно работает. Мне кажется, что в цикле я что-то намудрила....
C++ S.O.S.(массивы\строки\рекурсия) помогите пожалуйста решить задачки,вроде оч простые, но пропустила занятие где это все обьяснялось, а сама разобраться не могу запуталась((( :gcray2::gcray2::gcray2: Одномерные массивы (Анализ... подробнее

Показать сообщение отдельно
Kyper
1 / 1 / 0
Регистрация: 23.11.2010
Сообщений: 11
28.11.2010, 14:49
если правильной матрицей является такая:
1 2 0
3 0 3
0 2 1
то вот код:
uses crt;
var
a:array[1..100,1..100] of integer;
i,j,n,m,temp,temp2:integer;
begin

read(n);

for i:=1 to n do
begin
for j:=1 to n do
begin
read(a[i,j]);
end;
end;

m:=n-1;

for i:=1 to n-1 do
begin
for j:=1 to m do
begin
if (a[i,j]=a[n-i+1,n-j+1]) then
temp:=1;

if (temp=1) then
begin
temp2:=1;
end
else
begin
write('NO');
exit;
end;

m:=m-1;
temp:=0;
end;
end;

if (temp2=1) then
begin
write('YES');
end;

readln;readln;
end.
1
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru