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

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

64304 / 47599 / 32743

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

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

28.07.2014, 09:04

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

28.07.2014, 09:04. Показов 2857. Ответов 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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.07.2014, 09:04

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

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

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

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

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

	28.07.2014, 09:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.07.2014, 09:04

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

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

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

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

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

Наверх