Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Дано квадратную матрицу целых чисел размером 5х5 https://www.cyberforum.ru/ turbo-pascal/ thread1083601.html Дано квадратная матрица целых чисел размером 5х5. Определить произведение элементов в тех строках, которые не содержат отрицательное элементов.	Turbo Pascal Сформировать файл в который поместить числа из первого файла входящие в диапазон от M до N Файл последовательного доступа заполнить числами заполнить числами. Сформировать файл в который поместить числа из первого файла входящие в диапазон от M до N
Turbo Pascal Вычислить в файле сумму первого и последнего числа дан файл содержащий действительные числа. Вычислить в этом файле сумму первого и последнего числа https://www.cyberforum.ru/ turbo-pascal/ thread1083392.html	Turbo Pascal Упорядочить массив по неубыванию элементов третьего столбца дан двумерный массив, который содержит 2 строки и 3 столбики . Элементами массива являются целые столбики. Упорядочить массив по несрастанию элементов третьего столбика. https://www.cyberforum.ru/ turbo-pascal/ thread1083310.html
Найти квадратные корни из чисел Turbo Pascal дан линейный массив из 5 чисел найти квадратные корни из этих чисел (сделать задачу через for to do числа вводить самой)	Turbo Pascal Решение рекурентных функций Здравствуйте.Помогите плиз,з задачами: 1.Дано целое число N. Вывести N чисел ai=2i2+1 i=1,2..N https://www.cyberforum.ru/ turbo-pascal/ thread1083236.html
Turbo Pascal Удалить элемент из списка Подскажите способ удаления элемента из центра списка. Допусти дан однонарпвленный список, и надо удалить все элементы равные 5. Эти элементы находятся в середине . Добавлено через 2 минуты P.S Я знаю, что на форуме есть закрепленный топик с этим добром, но там не понятно =( Добавлено через 24 минуты Я вот таким образом пытаюсь удалить, но не получается=( while x<>Nil do begin https://www.cyberforum.ru/ turbo-pascal/ thread1083166.html	Вычислить значение функции Turbo Pascal Помогите пожалуйста Вычислить сумму и произведение полученных значений функции. Составить три варианта программы – с операторами repeat, while, for. t=2х^3sin(e^3x – 45^0+a)-lnс при 10<=x<=25; ∆x=0,2; a=2,22; c=-14,2
Turbo Pascal Работа с файлами последовательного порядка дан файл, содержащий целые числа и число К. Переписать в другой файл все числа кратные К https://www.cyberforum.ru/ turbo-pascal/ thread1083152.html	Turbo Pascal Сформировать из одной матрицы другую, поменяв местами элементы, симметричные относительно главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread1083151.html Квадратный массив С(m,n) преобразовать в массив D(m,n), в котором элементы массива C поменяются местами симметрично относительно главной диагонали.
Turbo Pascal Найти максимальный элемент в заштрихованной части матрицы Помогите решить задачку. нужно составить схему алгоритма гл. программы и подпрограммы, главную программу и подпрограмму. Самостоятельно выбрать значения исходных данных. При решении задачи использовать подпрограмму-процедуру. Обмен данными между главной программой и подпрограммой при помощи глобальных переменных. Есть матрица A(5х5). Нужно найти max элемент в заштрихованной части За ранее...	Turbo Pascal Сформировать файл1, который будет содержать слова из первого файла, начинающиеся и заканчивающиеся на одну и туже букву https://www.cyberforum.ru/ turbo-pascal/ thread1083089.html дан файл, содержащий русские слова.сформировать файл1, который будет содержать слова из первого файла, начинающиеся и заканчивающиеся на одну и туже букву

Puporev

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

64300 / 47595 / 32743

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

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

30.01.2014, 17:59

Дан двумерный массив a (m, n) отсортировать строки матрицы по возрастанию (массив вводить самой) - Turbo Pascal - Ответ 5716401

30.01.2014, 17:59. Показов 13163. Ответов 13

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j])
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x
 end;
writeln('Отсортированные строки');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
readln
end.

Вернуться к обсуждению:
Дан двумерный массив a (m, n) отсортировать строки матрицы по возрастанию (массив вводить самой) Turbo Pascal

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

Миниатюры

Дан двумерный массив a (m, n) отсортировать строки матрицы по возрастанию (массив вводить самой)

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.01.2014, 17:59

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

Дан двумерный массив A(m,n). Отсортировать четные столбцы по возрастанию
здравствуйте у меня есть программа которая сортирует строки, мне нужно чтобы она сортировала четные...

Дан двумерный массив А(4,5). Подсчитайте суммы элементов каждой строки матрицы и запишите их в одномерный массив
1. Дан двумерный массив А(4,5). Подсчитайте суммы элементов каждой строки матрицы и запишите их в...

Отсортировать по возрастанию элементов последней строки целочисленный двумерный массив 3х4
Если можно блок-схему и программку, ну или хотя бы что-то одно что бы я врубился как делать....

Отсортировать по возрастанию элементов последней строки целочисленный двумерный массив 3x4
Отсортировать по возрастанию элементов последней строки целочисленный двумерный массив 3x4

	30.01.2014, 17:59

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.01.2014, 17:59

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

Отсортировать по возрастанию элементов последней строки целочисленный двумерный массив 3х4
Если можно блок-схему и программку. Очень надо плиз, буду очень благодарен.

Дан массив чисел. Отсортировать массив по возрастанию с помощью сортировки пузырьком.
дан массив чисел. отсортировать массив по возрастанию с помощью сортировки пузырьком.

Отсортировать двумерный массив по возрастанию
Как отсортировать массив по возрастанию? Сортировка строки, затем столбца. Есть Array.Sort , но это...

Отсортировать двумерный массив по возрастанию?
Дан двумерный массив размерностью NxM, состоящий из целых элементов со значениями в диапазоне от...

Наверх