Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вычислить произведение матриц АхВ. 1.Даны две матрицы А и В. Вычислить произведение матриц АхВ. 2.Вычисление детерминанта (определителя) матрицы. https://www.cyberforum.ru/ pascalabc/ thread402960.html	Расчётно-графические задания Pascal ABC К предложенным задачам разработайте псевдокод,блок-схему и программу на языке Паскаль(выполнить тестирование программы). 1.Разработайте алгоритм решения уравнения вида γ= cosx^2-sinx^2 . 2.Разработать алгоритм для вычисления значений функции γ= { lnx^3 ,1≤x≤10. 1, x<1 sinx, x>10 3.Вычислить значения Y, соответствующие каждому значению Х (Хn≤ X≤ Xk , шаг...
Pascal ABC Поменять местами столбец матрицы, содержащий наибольшее значение, со столбцом, содержащим наименьшее https://www.cyberforum.ru/ pascalabc/ thread402907.html в массиве В(3*3) поменять местами столбец содержащий наибольшее значение со столбцом,содержащим наименьшее значение ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ пожалуйста...	Pascal ABC Закрасить круги разными цветами https://www.cyberforum.ru/ pascalabc/ thread402897.html uses graphABC; var i,d:integer; begin d:=25; for i:=1 to 10 do begin setpencolor(RGB(random(255),random(255),random(255))); setbrushstyle(bsClear); if i>1 then floodfill(d+i*20-35,200,clRed); d:=d+40;
Составьте программу, определяющую длину самого длинного слова в предложении. Pascal ABC Составьте программу, определяющую длину самого длинного слова в предложении. Добавлено через 1 час 46 минут Помогите.	Pascal ABC Динамические списки в Паскале Очень нужна помощь, суть задания в том что надо написать модуль к программе которая бы удаляла 2й элемент в последовательности которую мы предварительно сами задем также нужен модуль к программе которая бы заменяла все вхождения элемента Е1 в последовательности на элемент Е2 который мы сами задаем помогите пожалуйста очень срочно нужно Добавлено через 1 час 3 минуты и тишина(я знаю задание... https://www.cyberforum.ru/ pascalabc/ thread402884.html
Pascal ABC Определить номера вагонов, в которых есть свободные места и найти количество свободных мест https://www.cyberforum.ru/ pascalabc/ thread402847.html В поезде 18 вагонов в каждом из которых 36 мест. Информация о проданных билетах хранится в двумерном массиве номера строк которых соответствуют номерам вагонов, а номера столбцов- номерам мест. Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае -0. Определить номера вагонов в которых есть свободные места и найти количество свободных...	Pascal ABC Составить программу для вычисления элементов вектора Х по формуле: Составить программу для вычисления элементов вектора Х по формуле: {x}_{k}=tg({x}_{k-1}-{x}_{k-2})+\sqrt{\left\|sin {x}_{k-1} \right\|} k=3,4..10. составить по блок-схеме программу
Pascal ABC Математическая задача, преобразование суммы https://www.cyberforum.ru/ pascalabc/ thread402807.html Пыталась что-то сделать, но неудачно.. var x,y,c,f:real; n:integer; BEGIN writeln(' Введите х '); readln(x); if (x<-3) or (x>3) then	Pascal ABC Определить по заданному разбиению избирателей на группы минимальное количество сторонников партии https://www.cyberforum.ru/ pascalabc/ thread402771.html Демократия в опасности Вступление В одном из островных государств Карибского бассейна все решения традиционно принимались простым большинством голосов на общем собрании граждан, которых, к счастью, было не очень много. Одна из местных партий, стремясь прийти к власти как можно более законным путем, смогла добиться некоторой реформы избирательной системы. Главным аргументом было то, что...
char ввод\ Pascal ABC var s:string; r,g:char; begin read(r,g); s:=r+'x'+'+'+g+'y'; writeln(s); end. почему чар читает не как 2 чсила, а как одно? и как можно исправить?	Pascal ABC Найти наименьшие элементы для матриц написать программу решения следующей задачи: Найти наименьшие элементы для матриц А(8,6), Х(7,9) и номера строк и столбцов, в которых они расположены. Использовать подпрограмму. https://www.cyberforum.ru/ pascalabc/ thread402696.html

abcpascal

5 / 5 / 6

Регистрация: 26.11.2011

Сообщений: 51

09.12.2011, 19:35

Является ли целочисленная матрица симметричной относительно главной диагонали - Pascal ABC - Ответ 2265994

09.12.2011, 19:35. Показов 1883. Ответов 1

Метки (Все метки)

Сообщение было отмечено zhumabek как решение

Решение

Pascal

program Project1;
uses
  crt;
const m = 3;
      n = 3;
var A: Array[1..m,1..n] of Integer;
    i,j,k,l: Integer;
 
begin
Randomize;
  for i := 1 to m do
    for j := 1 to n do
      begin
        A[i,j] := Random(9);
      end;
 
    for i := 1 to m do
      begin
        WriteLn;
        for j := 1 to n do
          Write(A[i,j],' ');
      end;
      Writeln;
 
  for i := 1 to m do
    for j := 1 to i - 1 do
  for k := m downto 1 do
    for l := n downto k+1 do
      if A[i,j] <> A[k,l] then
        begin
          A[i,j] := 0;
          A[k,l] := 0;
        end;
 
    for i := 1 to m do
      begin
        WriteLn;
        for j := 1 to n do
          Write(A[i,j],' ');
      end;
  ReadLn;
end.

Вернуться к обсуждению:
Является ли целочисленная матрица симметричной относительно главной диагонали Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.12.2011, 19:35

Готовые ответы и решения:

Дана квадратная вещественная матрница размерности н. Является ли матрица симметричной относительно главной диагонали
Дана квадратная вещественная матрница размерности н. Является ли матрица симметричной относительно...

Является ли заданная целая квадратная матрица шестого порядка симметричной относительно главной диагонали.
Определить, является ли заданная целая квадратная матрица шестого порядка симметричной...

Двумерный массив. Является ли он симметричным относительно главной диагонали
дан двумерный массив с размерностью n на n. определить является ли данный массив симметричным...

Является ли матрица симметричной относительно главной диагонали
Помогите написать:определить,является ли квадратная матрица n-порядка симметричной,относительно...

	09.12.2011, 19:35

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.12.2011, 19:35

Помогаю со студенческими работами здесь

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

Определить, является ли заданная квадратная матрица 10-го порядка симметричной (относительно главной диагонали).
Еще есть 2 задания...Очень нужна ваша помощ. Заранее спасибо!!! 1)Определить, является ли заданная...

Определить является ли матрица 4х4, заполненная случайными 0 и 1 симметричной относительно главной диагонали.
Определить является ли матрица 4х4, заполненная случайными 0 и 1 симметричной относительно главной...

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

Наверх