logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lili2005ok
lili2005ok
12.10.2022 02:59 •  Информатика

Что такое олгаритм ?
дам 10б ​

👇
Увидеть ответ
Ответ:
HEPA3YMHblU
HEPA3YMHblU
12.10.2022
Алгоритм это- конечная совокупность точно заданных правил решения некоторого класса задач или набор инструкций, описывающих порядок действий исполнителя для решения определённой задачи.
4,6(80 оценок)
Открыть все ответы
Ответ:
илья33567б0
илья33567б0
12.10.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.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,5(80 оценок)
Ответ:
yananesteshl
yananesteshl
12.10.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.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,6(50 оценок)
Это интересно:
К
Как контролировать контент на YouTube с помощью блокирования по ключевым словам?...
О
Как понимать людей: психологические аспекты взаимодействия...
К
Как превратить видео в живые обои на Android...
О
Лучшие способы наблюдения за звездами с комфортом...
К
Как нарисовать шар в GIMP?...
С
Описание людей: как правильно выбрать слова...
О
Как легко и быстро спрягать испанский глагол hacer...
Х
Покраска чугуна: советы от профессионалов...
С
Как восстановиться после аборта: полезные советы и рекомендации...
К
Как хранить тыкву: сохраняем вкус и пользу на долгое время...
Новые ответы от MOGZ: Информатика
suslenok91
suslenok91
06.11.2020
Квест по бродскому 1.Чтение какого стихотворения вызвал скандал? ПЕРВАЯ ЧАСТЬ КЛЮЧА. ПЕРВЫЕ БУКВЫ СЛОВ СТИХОТВОРЕНИЯ. 2.Кого Бродский скрывал под инициалами «М. Б.»?...
moonlight2812
moonlight2812
27.02.2023
Сообщение на тему Применение персонального компьютера в моей профессии, сообщение на 1-3 страницы...
оля1890
оля1890
20.11.2021
Записать логическую функцию, описывающую состояние логической схемы. Составить таблицу истинность...
есенина1920
есенина1920
18.09.2021
7. Дано число а (0 а ≤ 1). Из чисел 1, 1/2, 1/3, ... напечатать те, которые не меньше а. 8. Дано число а (1 а ≤ 1,5). Из чисел 1 +1/2, 1+1/3 ... напечатать те, которые...
Bellatrisa
Bellatrisa
21.09.2022
1.   Байт – это:  а) Единица количества информации, изображаемая 0 или 1  б) Средство изменить буквы в ОЗУ  в) Последовательность из восьми бит  г) Комбинация четырех...
Ксения80200
Ксения80200
03.07.2021
На одной улице стоят в ряд 4 дома, в которых живут 4 человека: семён, николай, артур и роман. известно, что каждый из них владеет ровно одной из следующих профессий:...
Помогитемне11111119
Ввести массивы А и В. В массив С скопировать те элементы массива А, которые встречаются в массиве В по крайней мере 2 раза, и те элементы массива В, которые встречаются...
Gu1ya04
Gu1ya04
01.06.2023
Что происходит с качеством растворного рисунка при увеличении масштаба?​...
ks441934
ks441934
12.07.2021
Составить таблицы истинности для следующих логических выражений: А. F=(А&B)∨(A→B)∨A В. F=(A→B)&(А̅∨B̅)...
RinOkumura99
RinOkumura99
09.07.2021
Универсальным донором является человек с : а) 1группой крови; б) 2 группой крови; в) 3 группой крови; г) 4 группой крови...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ