Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Цикл WHILE и REPEAT. Результат табулирования вывести в форме таблицы ! x !y=f(x) ! s ! Результат табулирования вывести в форме таблицы ! x !y=f(x) ! s ! Сумма S, Диапазон изменения x, n, Функция y. https://www.cyberforum.ru/ turbo-pascal/ thread1087122.html	Turbo Pascal Типизированные файлы Создать файл автовладельцев. Для каждого автовладельца известны: номер, марка автомобиля, фамилия и адрес. Написать программу, выясняющую, есть ли автовладельцы, имеющие более одного автомобиля.
Turbo Pascal Нарисовать колобка Здравствуйте столкнулся с такой проблемой: Program q; uses crt,graph; var gd,gm:integer; begin clrscr; gd:=0; initgraph (gd,gm,'C:\bp\bin'); setcolor(14); ellipse(300,260,0,360,160,160); https://www.cyberforum.ru/ turbo-pascal/ thread1087022.html	Turbo Pascal Нарисовать шестигранную пирамиду в 3d пространстве прошу вашей помощи, помогите пожалуйста нарисовать в турбо паскале шестигранную пирамиду в 3d пространстве https://www.cyberforum.ru/ turbo-pascal/ thread1086996.html
Используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y Turbo Pascal используя цикл с параметром, для функции Y=f(X) по данному графику вывести значение Y если X=0,0.25,0.5,...19,75.	Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread1086959.html Дано натуральное n, действительное число x. Вычислить сумму ряда \sum_{i = 1}^{n}\frac{\|x-1\|}{{2}^{i}}
Turbo Pascal Определение сумм по строкам и столбцам матрицы Дан произвольный двумерный числовой массив фиксированной размерности. Разработать проект, позволяющий: 1)заполнение массива данных 2)сохранение их в файле 3)определение сумм по строкам и столбцам, их вывод https://www.cyberforum.ru/ turbo-pascal/ thread1086938.html	Дан массив 9x9 заполнить его по порядку относительно главной диагонали Turbo Pascal дан массив 9x9 заполнить его по порядку относительно главной диагонали
Turbo Pascal Дан массив 9x9 заполнить его по порядку относительно побочной диагонали дан массив 9x9 заполнить его по порядку относительно побочной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread1086924.html	Turbo Pascal Как найти минимальный элемент побочной диагонали? Как найти минимальный элемент побочной диагонали?Помогите пожалуйста:) Рассмотрим квадратную матрицу. program sbb; uses crt; var i,j,s:integer; a:array of integer; begin for i:=1 to 5 do begin https://www.cyberforum.ru/ turbo-pascal/ thread1086872.html
Создать файл Turbo Pascal Создать файл, компоненты (количество <=9) которого являются вещественными числами. После создания файла значение минимальной компоненты файла заменить на нуль. Исходный и результирующий файлы вывести на экран.	Turbo Pascal И опять файл Все отрицательные элементы целочисленного файла перенести в начало файла. Добавлю от себя, файл может быть .txt и не важно как главное чтобы он отрицательные цифры переносил в начало :D https://www.cyberforum.ru/ turbo-pascal/ thread1086760.html

Новичок

1647 / 1095 / 488

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

Сообщений: 5,356

01.02.2014, 21:34

Дан двухмерный массив А(m,n). Отсортировать нечетные элементы по убыванию для всей матрицы в порядке по столбцам - Turbo Pascal - Ответ 5726349

01.02.2014, 21:34. Показов 2050. Ответов 3

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

Ответ

Pascal

var a:array[1..100,1..100] of Integer;
m,n,i,j,k,r:Integer;
begin
Write('m=');
Read(m);
Write('n=');
Read(n);
Writeln('Сгенерированная матрица:');
Randomize;
for i:=1 to m do
 begin
 for j:=1 to n do 
  begin
  a[i,j]:=Random(51);
  Write(a[i,j]:4);
  end;
 Writeln;
 end;
 
for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do
if odd(a[k,i]) and odd(a[j,i]) and (a[k,i]>a[j,i]) then
begin
r:=a[j,i];
a[j,i]:=a[k,i];
a[k,i]:=r;
end;
 
Writeln('Полученная матрица:');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.

Вернуться к обсуждению:
Дан двухмерный массив А(m,n). Отсортировать нечетные элементы по убыванию для всей матрицы в порядке по столбцам Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

01.02.2014, 21:34

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

Создать двухмерный массив, в котором нечетные столбцы отсортировать по возрастанию, а четные по убыванию
Помогите найти ошибку, надо создать двухмерный массив из случайных чисел размера M на N, в котором...

Дан двухмерный массив [10,10] . Заменить нечетные элементы на 0 заполнить случайными цифрами от 1 до 9
помогите решить задачу

Отсортировать по столбцам все элементы матрицы в порядке убывания
Помоги пожалуйста написать программы по массивам... в произвольный массив K(m*n) отсортировывать...

Отсортировать массив: все четные элементы по возрастанию а нечетные по убыванию
отсортировать массив все четные элементы которого по возрастанию а не четные по убыванию

	01.02.2014, 21:34

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

01.02.2014, 21:34

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

Дан двухмерный массив целых чисел. Модифицировать его элементы, как описанно ниже, и вывести их на экран по столбцам.
Люди добрые помогите с задачей: Дан двухмерный массив целых чисел. Модифицировать его элементы, как...

Создать массив из 16 элементов, четные элементы отсортировать по возрастанию, а нечетные по убыванию
Доброго всем времени суток Помогите с прогой: создать массив из 16 элементов, выделить в нем...

Дан массив a1, a2,., a15. упорядочить по убыванию нечетные элементы массива, используя алгоритм обмена
C# Console application. Дан массив a1, a2,..., a15. Требуется упорядочить по убыванию нечетные...

Дан массив 9х9 отсортировать все элементы по убыванию любым способом
Дан массив 9х9 отсортировать все элементы по убыванию любым способом

Наверх