PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Оператор case - вычисление даты следующего дня Написать программу, которая вычисляет дату следующего дня. Подскажите, для чего и как в этой задаче использовать оператор case? Если только ,например, пользователь вводит первый день или последний, то соответственно сообщать ему об этом. Но как сам case выглядит не очень понятно, ведь дата из трёх переменных состоит. https://www.cyberforum.ru/ pascalabc-net/ thread1227754.html	Оператор выбора - некоректный вывод результата PascalABC.NET var ost,number : integer ; begin ost := number mod 10 ; write('Введите число от 1 до 999 : '); readln(number); if (number < 1) or (number > 999) then write ('Число вышло из заданных пределов') else case ost of 0, 5,6,7,8,9 : writeln(number, ' рублей'); 1 : writeln(number, ' рубль')
PascalABC.NET Составить программу по отправке запроса на IP или сайт https://www.cyberforum.ru/ pascalabc-net/ thread1227017.html Вообщем кто поможет составить программу по отправке запроса на ип или сайт	PascalABC.NET Ошибка "Предописание функции без описания" при компиляции формы https://www.cyberforum.ru/ pascalabc-net/ thread1226269.html Пишу калькулятор под свои нужды, но на паскале с формами никогда раньше не работал. Создал проект, нарисовал элементы на форме, написал код. Программа запускалась и работала, все что нужно отлажено, но шанс успешного запуска без этой ошибки зависел от погоды на марсе. Сейчас никак не могу ее устранить, ошибка засела в основном блоке. Если честно, совершенно не понимаю ничего, что идет до...
PascalABC.NET Как использовать ToLower и ToUpper? Приведите пожалуйста пример как использовать ToLower и ToUpper Попробовал так var s:string; begin s:='AvbDv'; s:=ToLower(s); write(s); end. Вылезла ошибка "Неизвестное имя 'ToLower'"	PascalABC.NET Как сохранить текст из textbox в строку по нажатию кнопки? Как сохранить текст из textbox в строку по нажатию кнопки? https://www.cyberforum.ru/ pascalabc-net/ thread1225516.html
PascalABC.NET Разработать программу для автоматической подготовки и печати списков При чтении любого списка пишет ошибку. Не могу понять в чем проблема. Задание и списки прикреплены. program xd; uses crt; var f_in,fotl,zar,ost:Text; FIO: string; procedure INFO(key: Integer; pred: String); label 1,2,3,4,5,6,7,8; https://www.cyberforum.ru/ pascalabc-net/ thread1225302.html	Машинка не должна уходить за границы экрана, либо отражаться, либо появляться с другого конца PascalABC.NET //PascalAbc.Net нужно заставить машинку двигаться -- //Условия -- //Машина должна содержать Класс, конструктор и procedure Draw; procedure Hide; procedure MoveTo(x,y: integer); procedure MoveOn(dx,dy: integer);
PascalABC.NET Записать строку в буфер обмена Здравствуйте имеется строка S: string; как её полностью отправить в буфер обмена? https://www.cyberforum.ru/ pascalabc-net/ thread1224682.html	PascalABC.NET Множества. Напечатать по одному разу все цифры, используемые в записи только 1 числа в порядке их появления Кто чем сможет помочь? :scratch: Дана запись простого арифметического выражения над вещественными числами. Знаки операций, используемых в выражениях: -, +, *, /. Напечатать по одному разу все цифры, используемые в записи только одного числа в порядке их появления. https://www.cyberforum.ru/ pascalabc-net/ thread1224148.html
PascalABC.NET Как использовать таблицы строк в dll (создание толкового словаря) Есть ли способ создать таблицу строк в dll, а потом использовать строки в программе с помощью pascal abc.net	PascalABC.NET Аналоговые часы - убрать следы от стрелки https://www.cyberforum.ru/ pascalabc-net/ thread1223391.html Здравствуйте. Пишу аналоговые часы. Имеется код: program Clock; uses GraphABC, Timers, System; var Rad : integer := 200; BigLines : array of integer;

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

28.07.2014, 09:04

Даны две квадратные матрицы 5х5 и 6х6 в текстовых файлах. Трансформировать их в другие матрицы - PascalABC.NET - Ответ 6467742

28.07.2014, 09:04. Показов 2878. Ответов 25

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

Ответ

Вот пример для n=5;
работает в любом Паскале.

Pascal

//шаблон для перестановки
const sh5:array[1..5,1..5,1..2] of byte=
               (((3,2),(3,1),(2,1),(2,2),(2,3)),
                ((4,2),(4,1),(1,1),(1,2),(1,3)),
                ((4,3),(5,1),(5,2),(1,5),(1,4)),
                ((5,3),(5,4),(5,5),(2,5),(2,4)),
                ((3,3),(4,4),(4,5),(3,5),(3,4)));
var a,b:array[1..5,1..5] of integer;
    f:text;
    i,j:byte;
begin
assign(f,'input.txt');
reset(f);
for i:=1 to 5 do
for j:=1 to 5 do
read(f,a[i,j]);
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
    b[i,j]:=a[sh5[i,j,1],sh5[i,j,2]];
    write(f,b[i,j]:4);
   end;
  writeln(f)
 end;
close(f);
end.

input.txt

Код

 3  10  21  16   5
20  15   4  11  22
 9   2  25   6  17
14  19   8  23  12
 1  24  13  18   7

output.txt

Код

   2   9  20  15   4
  19  14   3  10  21
   8   1  24   5  16
  13  18   7  22  11
  25  23  12  17   6

Добавлено через 1 минуту
Аналогично сделать для n=6;

Вернуться к обсуждению:
Даны две квадратные матрицы 5х5 и 6х6 в текстовых файлах. Трансформировать их в другие матрицы PascalABC.NET

Следующий ответ

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

28.07.2014, 09:04

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

Даны две квадратные матрицы n-го порядка (матрицы заполнены произвольно случайными целыми числами из диапазонов [-5; 15]
Даны две квадратные матрицы n-го порядка (матрицы заполнены произвольно случайными целыми числами...

Даны две квадратные матрицы. Вычислить среднее арифметическое элементов главной и побочной диагонали каждой матрицы
помогите написать программный код на c++

Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением элементов каждой строки первой матрицы на наибольш
Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: а) умножением...

1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение элементов каждой строки первой матрицы на наибольшее из
1)Даны две действительные квадратные матрицы порядка n. Получить новую матрицу : А) умножение...

	28.07.2014, 09:04

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

28.07.2014, 09:04

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

Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: путем умножения элементов каждой строки первой матрицы на наибольшее из
Даны две действительные квадратные матрицы порядка n. Получить новую матрицу: путем умножения...

Даны две квадратные матрицы, найти A^2+B
Дано две квадратные матрицы A и B. Определить A^2+B. Помогите пожалуйста я даже не знаю с чего...

Даны две целые квадратные матрицы C и T порядка n
Помогите плиз, очень надо сдать лабу чтобы закрыть сетку, а я не понимаю :wall::sorry: :( очень...

Даны две действительные квадратные матрицы порядка n
Даны две действительные квадратные матрицы порядка n. Получить новую матрицу путем прибавления к...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх