Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
Dmitrievna Lvovich
25.02.2022
?>
Какие ошибки были допущены
Информатика
Ответить
Ответы
Александр Елена1290
25.02.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.
Olesya-elena1525
25.02.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какие ошибки были допущены
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Определить сколько места в памяти пк занимает двухмерный массив 6х12, состоящий из элементов типа longint
Автор: ziyaevak
Составить программу, в которой посчитать кол-во гласных в строке. (в pascal)(тема: двумерные массивы)
Автор: jurys71242
Какие из предложенных чисел, записанных в различных системах счисления, являются нечетными? 1)10001 2 2)ad 16 3)1a 12 4)32 5 5)403 4 6)35 7
Автор: misie1974
Что произойдет при попытке исполнении инструкции?t= range (2, 4, -1)
Автор: valya-7777
Составьте программу, вычисляющую для двух дробей a/b и c/d (a, b, c, d - натуральные числа): деление умножение сложение. результат представить в виде простых несократимых дробей в виде функции. pasc...
Автор: kuliba
Студенты группой 20 человек сдавали зачет. кто-то из них получил отметку, кот-то как обычно не явился за зачет. при получении отметки больше 3 – зачет сдан. менее – не сдан. в столбец "b" книги excel...
Автор: moskwa999
Информатика PYTHON, задача, что не так в моём коде Дано 3 целых числа. Выведите на экран: "Максимум равен N", где N - наибольшее из трёх чисел. Формат входных данных С клавиатуры вводится три целы...
Автор: molchanovaelena284
Составьте многоуровневую иерархическую файловую структуру вашего персонального компьютера.
Автор: tolyan791
Сколько единиц в двоичной записи шестнадцатеричного числа e1a016? решение
Автор: Devaunka40
Дан фрагмент кода программы на разных языках программирования. Определите значение переменной x, если известно, что после завершения программы выведенное значение переменной ans было равно 79507. В ...
Автор: oniks-plus
Последовательность заданное условию а 1=5 а n+1=an+3 найдите а 8
Автор: Vello Olga
Найдите площадь круглого зеркала, используемого в телескопе, если радиус зеркала задается пользователем. sкруга=пr2, где п=3, 141595
Автор: KrisTinka
Электрондық кестеде деректерді іздеу
Автор: zimbickij19
с задачей по информатике.Нужно закрасить клетки внизу в шахматном порядке, два ряда, а также верхний левый и правый угол.Для проверки будут менять размеры поля.
Автор: strannaya2018
Нужна в программе Excel Как рассчитать СРЕДНЕЕ ЗНАЧЕНИЕ по его соответствующим столбцам (цена за единицу, новая цена, сумма на складе Допустим цена за единицу-4, 5 р. Новая цена -4, 9р. Сумма на скл...
Автор: AntonovaAvi1716
▲
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.