В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
89528849556keyz
89528849556keyz
20.02.2021 19:23 •  Информатика

Даны целые числа записанные в некоторых системах счисления (сс)


Даны целые числа записанные в некоторых системах счисления (сс)

Показать ответ
Ответ:
Knowww
Knowww
03.01.2021 08:54
1) Бюджет
2) Линк(и) на прайс магазина(ов), где будете брать систему, обязательно укажите Город в котором будет покупаться.
3) Что собираетесь брать:
- Только системник
- Ситемник и монитор
- Системник, монитор и переферия
- Иные уточняйте какие варианты.
4) Указывайте для каких задач берётся сабж.
а) Для игровых систем:
- Указывайте разрешение монитора, частоту развертки, аппаратную синхронизацию (Free|G-Sync), есть на нём цифровые входы (HDMI|DVI|DP) или модель монитора, а также параметры анизотропной фильтрации и сглаживания, которые будут использоваться в играх.
- Указывайте названия игр или хотябы жанры.
б) Для систем, на которых будет слушаться Музыка:
- Уточняйте, что за ММАС Мультимедийная Акустическая Система у Вас стоит или планируется к приобретению.
- Уточняйте носитель/тип файлов/битрейт.
- Уточняйте жанры Музыки.
в) Для графических станций:
- Уточняйте какой монитор используется.
- Уточняйте с какими программами Вы будете работать.
г) Иные.
5) Уточняйте планируете ли Вы разгон системы.
6) Уточняйте планируете ли Вы апгрейд системы в ближайшие 6 месяцев.
Если планируете, то сообщайте когда и в каком объёме финансовых вливаний.
7) Если у Вас есть какое-то железо, которое Вы ещё планируете использовать, уточняйте какое именно. Если его много, то Вам в ветку по Апгрейду.
8) Если у Вас есть какое либо требования, уточняйте:
- Брендовая принадлежность ATI/AMD или Abit/DFI, ets.
- Требования по дизайну/размерам.
- Требования по шуму. Уточняйте здесь.
- Иные.
9) Наброски конфигурации ПК

ВНИМАНИЕ: ВСЕ посты не заполненные по вышеописанному запроснику будут маркироваться Кураторами off-top'ом - вероятность, что Вам в этом случае ответят крайне низка.

Правила Конференции и Правила Форума действуют в полном объёме.
Локальные правила ветки:
Бессмысленные посты "+1" и иже сним, Флуд, Флейм и Оверквотинг будут премировать ЖК на месяц.
Фанатство награждается БАНом на 24часа.
Умышленное коверканье Русского языка и неиспользование тега [rus][ /rus] у постов, написанных транслитом, как и злоупотребление терминами награждается ЖК на 2 недели.
Оффтоп в рамках обсуждаемого вопроса разрешен, но должен быть заключён в тег [ off ][ /off ].

Если обсуждение затягивается более чем на 5 постов по конкретной позиции - дать линк на специализированную ветку и продолжать дискуссию уже в ней.

Просьба не злоупотреблять меткой "EOL", по русски: по меньше используйте клавишу "Enter", посты объёмные - не утяжеляйте их сверх меры.
0,0(0 оценок)
Ответ:
алиярсик
алиярсик
04.01.2022 19:47
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
  var m := Length(a, 0);
  var n := Length(a, 1);
  Result := new integer[n, m];
  for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
  end;
end;

begin
  var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
  var a :=MatrixRandom(n, n);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

  Println('поворот влево на 90 гр');
  var b := Transpose(a);
  b:=Transpose(b);
  b:=Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
  println;

  Println('поворот вправо на 90гр');
  b := Transpose(a);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
 println;

 Println('поворот на 180 гр');
  b := Transpose(a);
  b := Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота