Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Матрица. Наибольший элемент строки поменять с элементом главной диагонали VIII.Двумерные массивы 28. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. https://www.cyberforum.ru/ pascalabc/ thread571132.html Pascal ABC Строки. Подсчитать количество содержащихся в строке знаков препинания, гласных букв
Помогите плс! Дана строка-предложение на русском языке. Подсчитать количество содержащихся в строке 1|2.
Pascal ABC Текст и внешние файлы. Найти слова с наибольшим и наименьшим количеством гласных https://www.cyberforum.ru/ pascalabc/ thread571089.html
1. Задан текст. Найти в этом тексте слова с наибольшим и наименьшим количеством гласных и поменять их местами. 2. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким именем не существует, то вывести -1. 3. Дан строковый файл, содержащий даты в формате "день/месяц/год", причем под день и месяц отводится по две позиции, а под год - четыре...
Pascal ABC Массив. Сжать массив, выбросив нулевые элементы Помогите плс! Задан массив, содержащий несколько нулевых элементов. Сжать его, выбросив эти элементы. https://www.cyberforum.ru/ pascalabc/ thread571084.html
Pascal ABC Дан текстовый файл. Создать символьный файл, содержащий знаки препинания исходного
Помогите плс! Дан текстовый файл. Создать символьный файл, содержащий все знаки препинания, встретившиеся в текстовом файле (в том же порядке).
Pascal ABC Последовательность. Вывести сумму всех положительных четных чисел https://www.cyberforum.ru/ pascalabc/ thread571063.html
Помогите плс! Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0.
Pascal ABC Массив. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов https://www.cyberforum.ru/ pascalabc/ thread571055.html
Помогите плс! , вот задачи: Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
Pascal ABC Даны две матрицы А(nxn) и B(nxn). Вычислить матрицу по заданной формуле
Даны две матрицы А(nxn) и B(nxn). Написать программу вычисления матрицы ,L=√(‖A^2+B^2 ‖ ) где норма ||C|| матрицы С есть max||Ckm|| .
Pascal ABC Массивы:Дан массив R(M,N).Определить среднее арифметическое его положительных элементов. https://www.cyberforum.ru/ pascalabc/ thread571039.html
Дан массив R(M,N).Определить среднее арифметическое его положительных элементов.Заменить отрицательные элементы массива R(M,N) на найденное среднее. Добавлено через 38 минут Помогите с задачкой пожалуйста
Pascal ABC Принадлежит ли точка с заданными координатами заштрихованной области 13_1. Составить программу вычисления значения выражения 14_1. Составить программу, которая определит, принадлежит ли точка с заданными координатами (x,y) заштрихованной области. 14_2. Составить программу вычисления значения функции по заданному значению аргумента https://www.cyberforum.ru/ pascalabc/ thread570952.html
Множества(TP). Построить множества, элементами которых является цифры от 0 до 9 Pascal ABC
Дана не пустая последовательность символов(строка). Построить и напечатать множества, элементами которых является встречающиеся в последовательности: а)цифры от0 до 9 и знаки алфавитных операций; б) печать элементов множества в алфавитном порядке.
Pascal ABC Записи(TP,TC). Файл содержит сведения о результатах соревнований по фигурному катанию https://www.cyberforum.ru/ pascalabc/ thread570933.html
Дан файл, содержащий сведения о результатах соревнований по фигурному катанию. Каждая запись содержит фамилию спортсмена и оценки восьми судей. Определите распределение спортсменов по местам
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.05.2012, 11:57 0

Матрица. Проверить симметричность относительно побочной диагонали - Pascal ABC - Ответ 3016179

11.05.2012, 11:57. Показов 5655. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено jMk как решение

Решение

саму диагональ не учитываю...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
const n=3;
var a: array [1..n,1..n] of byte;
    i,j: byte;
    b: boolean;
begin
writeln('Введите матрицу');
for i:=1 to n do
    for j:=1 to n do
        begin
        write('a[',i,',',j,']='); readln(a[i,j]);
        end;
b:=true;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
for i:=1 to n do
    for j:=1 to n-i do
        if a[i,j]<>a[n-i+1,n-j+1] then b:=false;
writeln(b);
end.


Вернуться к обсуждению:
Матрица. Проверить симметричность относительно побочной диагонали Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2012, 11:57
Готовые ответы и решения:

Симметричность матрицы относительно главной диагонали
Дана функция определения симметричности квадратной матрицы относительно главной диагонали: ...

Симметричность матрицы относительно главной диагонали
Определить является ли массив 3 на 3 симметричным относительно главной диагонали.

Определить симметричность каждой матрицы относительно главной диагонали
Написать и отладить программы с применением подпрограммы процедуры с параметрами. Даны две целые...

Зеркально отразить элементы матрицы относительно главной диагонали (побочной диагонали)
Дана квадратная матрица порядка N. Зеркально отразить ее элементы относительно главной диагонали...

1
11.05.2012, 11:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2012, 11:57
Помогаю со студенческими работами здесь

Дана квадратная матрица. Поменять местами элементы главной диагонали с элементами побочной диагонали
Пожалуйста, помогите! Дана квадратная матрица. Поменять местами элементы главной диагонали с...

Поменять значение элементов относительно побочной диагонали
поменять значение элементов относительно побочной диагонали.

Зеркально отобразите элементы матрицы относительно побочной диагонали
Создайте квадратную матрицу из N строк и N столбцов,состоящую из натуральных чисел.Зеркально...

В двумерном массиве (N*N) произвести зеркальное отображение относительно побочной диагонали
В двумерном массиве (N*N) произвести зеркальное отображение относительно побочной диагонали ЧЕРЕЗ 1...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru