Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определите, сколько обменов сделает алгоритм пузырьковой сортировки по возрастанию для данного массива Сортировка пузырьком Определите, сколько обменов сделает алгоритм пузырьковой сортировки по возрастанию для данного массива. Входные данные В первой строке содержится количество элементов n (1 ≤ n ≤ 1000) в массиве. Во второй строке - сам массив. Гарантируется, что все элементы массива различны и не превышают по модулю 109. Выходные данные Выведите одно число - количество обменов... https://www.cyberforum.ru/ pascal/ thread2350080.html	Pascal Умножение элементов матрицы на индекс минимального элемента вектора Есть матрица(элементы матрицы и размеры вводятся с клавиатуры), которая выводится и есть вектор, элементы которого- первые отрицательные элементы столбцов матрицы. Нужна помощь в создании ПРОЦЕДУРЫ умножения элементов матрицы на индекс минимального элемента вектора. Индекс минимального элемента должен определяться обращением из процедуры к подпрограмме-функции. Вывести индекс минимального...
Pascal Разработка многомодульных программ с выделением процедур Разработать программу, выделив процедуры. Условие: Если в прямоугольной матрице все суммы элементов строк попадают на заданный отрезок, определить номер строки с максимальной суммой элементов, иначе определить номера строк,сумма элементов которых не попала на заданный отрезок. Помогите пожалуйста сделать с подпрограммами https://www.cyberforum.ru/ pascal/ thread2349970.html	Pascal Как узнать сумму массива, если он постоянно увеличивается? https://www.cyberforum.ru/ pascal/ thread2349965.html Имеется массив, допустим, от 1 до 5. Пользователь начинает вводить значения. Допустим, данные магазина. Сначала вводит количество товаров, далее стоимость. Это повторяет 5 раз, т.к. магазинов (массивов) у нас 5. В конце программа высчитывает выручку каждого магазина и общую выручку ВСЕХ магазинов. Как реализовать последнее?
Pascal Вычислить значение выражения Не могу понять понять что не так, постоянно выдаёт ошибку program Project3; {$APPTYPE CONSOLE} uses math, SysUtils; var x, y: integer;	Pascal Разработка алгоритмов и программ нисходящим способом https://www.cyberforum.ru/ pascal/ thread2349911.html Нужно сделать с подпрограммами Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из 5 строк и столбцов или одномерные массивы указанной длины. Условие: Даны две последовательности: С1, С2, ..., С10; Р1, Р2, ..., Р10. Если наибольшей элемент первой последовательности меньше наименьшего элемента второй, задать элементам Х1, Х2, ..., Х10 новой...
Pascal Обработка массивов переменной длины Помогите пожалуйста дана матрица состоящая из n строк и n столбцов или одномерные массивы из n элементов каждый. Составить алгоритм и программу для получения и вывода указанных в условии результатов и самих массивов, если изменялись какие либо их элементы. Алгоритм любой задачи может быть составлен с использованием единственного двукратного цикла. Условие: Получить массив С1, С2, ... Сn по... https://www.cyberforum.ru/ pascal/ thread2349894.html	Записать по правилам языка программирования заданную формулу Pascal Формула во вложении
Pascal Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов https://www.cyberforum.ru/ pascal/ thread2349843.html при заданных одномерных массивах Х и Y одинаковой длины вычислить элементы массива Т ,первый элемент которого равен единице ,а все последующие элементы вычисляются по формуле: \sqrt{\left({{X}_{k}}{Y}_{k} \right)^2}/{T}_{k-1}	Pascal Вывести на экран список студентов, которым исполнилось 20 лет о группе студентов известны следующие сведения : количество студентов количество экзаменов фамилия имя каждого студента пол каждого студента год рождения каждого студента отметки полученные на экзамене. Напишите программу коьорая вывелит на экран список студентов , которым исполнилось 20 лет . https://www.cyberforum.ru/ pascal/ thread2349742.html
Задача "Тройки в ряд" Pascal Задан массив, состоящий из чисел 1, 2, 3. За одну операцию можно поменять местами два любых числа. Вам необходимо за минимальное количество операций отсортировать массив по не убыванию. Формат ввода: В первой строке вводится число - N. Далее в N строках вводятся элементы массива. Формат вывода: Одно целое число - ответ на задачу. Ограничения: 1<=N<=1000	Pascal Написать программу 1)Написать программу, которая подсчитывает кол-во 1,2 и 3-х разрядных чисел в массиве, размер n на m из натуральных чисел в диапазоне от 1 до 999, заданном случайным образом (Двумерный массив) 2)Подсчитать кол-во чисел в этом массиве, которые содержат одинаковые цифры в своём написании Pascal ABC(не .net) https://www.cyberforum.ru/ pascal/ thread2349532.html

дед хасан

0 / 0 / 0

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

Сообщений: 65

Осуществить обмен строк в матрице - Pascal - Ответ 13053311

12.11.2018, 20:37. Показов 1802. Ответов 3

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

Author24 — интернет-сервис помощи студентам

Есть матрица. Нужна помощь с созданием ПОДПРОГРАММУ-ФУНКЦИЮ в, которой осуществить обмен элементов K-й и Т-й строк матрицы. Номера обмениваемых строк вводить с клавиатуры.

Pascal

program mass;
 
uses crt;
 
type Vmatr=array[1..10,1..15] of real;//вещественные
 
procedure VvodV(var mtF:Vmatr;var m,n:byte);
var i,j:byte;
begin
repeat
writeln('Kolichestvo strok ');
readln(m);
until m in [1..10];
repeat
writeln('Kolichestvo stolbtsov ');
readln(n);
until n in [1..15];
writeln('Vvedite ',m*n,' deystvitelnyye chisеl:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(mtF[i,j]);
 end;
clrscr;
end;
procedure VyvodV(var mtF:Vmatr;x,y:byte);
var i,j:byte;
begin
writeln('Matritsa:');
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mtF[i,j]:5:0,' ');
  writeln;
 end;
writeln;
end;
 
var v:Vmatr;
 
    n,m:byte;
begin
clrscr;
VvodV(v,n,m);
VyvodV(v,n,m);
write('Press Enter...');
readln;
readln;
readln;
end.

Вернуться к обсуждению:
Осуществить обмен строк в матрице Pascal

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

Лучшие ответы (1)

Сообщение: #13053634

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.11.2018, 20:37

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

Обмен строк в квадратной матрице
Как реализовать обмена строк с минимальной и максимальной суммой элементов между собой?Пока что...

Как осуществить обмен значениями в массиве?
Дан массив: 7 5 8 4 6 1 3 Как отсортировать его по убыванию методом обмена? Как будет выглядеть...

как осуществить обмен данными с базой данных
есть вот такие наработки, если нажать на регистрацию, ввести данные для регистрации , надо чтоб в...

Обмен элементов в матрице.
Задана матрица м на н 3. найти в каждой строчке найбольший и найменьший елемент и поставить их на...

	12.11.2018, 20:37

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.11.2018, 20:37

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

Обмен половинами в матрице
Дана матрица HxW H = 4 W = 4. Составить функцию, которая может, менять столбцы первой половины...

Обмен столбцов в матрице
В матрице A поменять столбцы, содержащие соответственно максимальный и минимальный элементы...

Обмен строчек в матрице
вообщем немогу найти ошибку(ничего не меняет #include <iostream> #include <conio.h> #include...

Обмен местами главной и побочной диагоналей в матрице
помогите пожалуйста написать легонькую программку на си: обмен местами главной и побочной...

Наверх