Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Одномерный массив: поиск, суммирование, сжатие В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) номер минимального по модулю элемента массива; 2) сумму модулей элементов массива, расположенных после первого отрицательного элемента. Сжать массив, удалив из него все элементы, величина которых находится в интервале . Освободившиеся в конце массива элементы заполнить нулями. Помогите пожалуйста решить. https://www.cyberforum.ru/ turbo-pascal/ thread691882.html	Turbo Pascal Вычислить квадрат, корень квадрата, куб Ввести два позитивных числа меньше 256 например 1 пробел 7 вычислить квадрат корень квадрата и куб. Вывести на екран в виде таблицы. квадрат куб корень квадрата 1 ** * ** 2 3 4 5 6 7
Turbo Pascal алгоритм для функции расстановки в хэш-таблице https://www.cyberforum.ru/ turbo-pascal/ thread691837.html помогите!! есть алгоритм для разрешения коллизий расстановка по методу середины квадратов : не могу понять где нужно исправить, показывает ошибку 26 program hash; {zanesenie i poisk zapisey v hesh-tablitse} uses Crt; const n=100; type u=^rec; rec=record {struktura zapisi hesh-tablitsi} key:byte; {kluch}	Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread691817.html доброго времени...помогите пожалуйсто решить задачу с помощью всех циклов отдельно, но в пределах одной программы. (нельзя использовать ln и exp) запутался в циклах уже...
Дана матрица размерностью n x m. Требуется записать процедуру, которая в каждом столбце матрицы находит произведение отрицательных элементов и результ Turbo Pascal Дана матрица размерностью n x m. Требуется записать процедуру, которая в каждом столбце матрицы находит произведение отрицательных элементов и результаты записывает в линейный массив. Найдите столбец, в котором произведение отрицательных элементов максимально.	Turbo Pascal Возможности модификации программы при использовании виртуальных методов Приветики, всем доброго время суток!!! Разбираю задачку по PASCAL и наткнулся на ошибку № 3 в 5той строке (TInsertMyDn = Object(TInsertDn))Неизвестный идентификатор. Этот идентификатор не был объявлен, или он не может быть видим в нутрии текущей области я в тупике как его обьявить??? С уважением к вам!!! uses Crt; {* New processing of a key Down *} type PInsertMyDn = ^TInsertMyDn; ... https://www.cyberforum.ru/ turbo-pascal/ thread691734.html
Turbo Pascal Наибольший и наименьший элемент массива https://www.cyberforum.ru/ turbo-pascal/ thread691715.html Помогите кто может. Описать процедуру поиска наибольшего и наименьшего элемента массива. С помощью этой процедуры составить программу, которая определяет совпадают наибольший и наименьший элементы двух массивов A , B . Заранее спасибо.	Turbo Pascal Как запустить Graph в турбо паскале Все уже перепробовал. Осталось только со всего маха клавой по монитору блин. Делаю все как учили inits-graph-копирую-вставляю ииииииииииииииииииииииииииииииииииииии ошибка № 15, Запускал и с флешки и с компа нет. Прихожу на учебу он с флешки сразу в бой?????(((((
Turbo Pascal Если максимум и минимум массива одновременно являются чётными, то разделить их на два Ввести целочисленный двумерный массив A(NxM), вывести его. Если максимум и минимум массива одновременно являются чётными, то разделить их на два, иначе поменять местами первый и предпоследний столбец массива. Нашел максимум и минимум, условие четности тоже понятно, а вот дальше никак. Помогите, пожалуйста Добавлено через 1 час 3 минуты Разобрался чуть дальше, осталось лишь переставить... https://www.cyberforum.ru/ turbo-pascal/ thread691694.html	Turbo Pascal Двумерный массив. Поиск максимума в строках, перестановка с элементом главной диагонали. Дана целочисленная квадратная матрица A. найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. Заранее спасибо за помощь!:resent: https://www.cyberforum.ru/ turbo-pascal/ thread691690.html
Turbo Pascal Оцифровка слова Помогите пожалуйста. Составить n слов из фамилии Иванов. k длина слова. Отсортировать слова. пример: Иванов=1 2 3 4 5 . каждая буква соответствует числу. "в" повторяется поэтому не нумеруем. слово "ива" отсортируется как 123 "нива" как 4123	Turbo Pascal Упорядочить по возрастанию элементы каждой строки матрицы Дана матрица размером n*m. Упорядочить по возрастанию элементы каждой строки матрицы. Заранее спасибо за помощь!:resent: Добавлено через 8 часов 22 минуты Срочно помогите пожалуйста!:swoon: https://www.cyberforum.ru/ turbo-pascal/ thread691680.html

LosTSamara

0 / 0 / 1

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

Сообщений: 38

08.11.2012, 11:21 [ТС]

Отсортировать столбцы массива методом выбора - Turbo Pascal - Ответ 3668619

08.11.2012, 11:21. Показов 643. Ответов 2

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

Ответ

Cпасибо, правда я тоже уже решил - вот мое решение если кому надо будет)

Pascal

type arr = array[1..100,1..100] of integer;
var a:arr;
Procedure sorting(var a:arr; n,m:integer);
var i,j,f:integer;
    kMin,aMin:integer;
begin
 for i:=1 to m do begin
 for j:= n downto 2 do
  begin
   kMin:=j; aMin:=a[j,i];
   for f:=1 to j-1 do
   if a[f,i] < aMin then
   begin
    kMin:=f; aMin:=a[kMin,i]
   end;
   if kMin <> j then
   begin
    a[kMin,i]:=a[j,i]; a[j,i]:= aMin;
   end;
   end;
 end;
end;
 
var i,j,n,m:integer;
 
begin
   randomize;
   writeln ('Ââåäèòå êîë-âî ñòðîê è ñòîëáöîâ');
   readln (n,m);
   writeln('Èñõîäíûé ìàññèâ ðàâåí:');
   for i:=1 to n do begin
   for j:=1 to m do begin
   a[i,j] := random(100);
   write(a[i,j]:4);
   end;
   writeln;
   end;
   sorting(a,n,m);
   writeln('Îòñîðòèðîâàííûé ìàññèâ:');
   for i:=1 to n do begin
   for j:=1 to m do begin
   write(a[i,j]:4);
   end;
   writeln;
   end;
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.11.2012, 11:21

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

Отсортировать столбцы двумерного массива методом прямого выбора по убыванию
Доброе время суток. В задании нужно отсортировать столбцы двумерного массива методом прямого...

Отсортировать элементы массива методом выбора в порядке возрастания
Написать программу, реализующую задание по обработке массива с использованием процедуры и функции....

Отсортировать элементы массива методом линейного выбора с подсчётом
Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом

Отсортировать первую половину массива по возрастанию, а вторую по убыванию(методом выбора)
Заполнить массив из 10 элементов случайными числами в интервалеи отсортировать первую половину по...

	08.11.2012, 11:21

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.11.2012, 11:21

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

Отсортировать массив методом выбора в порядке возрастания
Дан массив целых чисел А . Отсортировать их методом выбора в порядке возрастания . Вычислить...

Отсортировать массив методом выбора в порядке убывания
Дан массив латинских букв А . Отсортировать их методом выбора в порядке убывания. Вычислить среднее...

Отсортировать массив по убыванию методом выбора максимального элемента
Помогите. Дана задача отсортировать массив ПО УБЫВАНИЮ методом выбора МАКСИМАЛЬНОГО элемента. Вся...

Отсортировать массив от минимального к максимальному элементу методом выбора
Задача 1. Создать с помощью генератора случайных чисел массив целых чисел в диапазоне (-6..9)....

Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом
Дана действительная матрица A размерности (m x n). Если среднее арифметическое элементов первой...

Упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом
Дана действительная матрица A размерности . Если среднее арифметическое элементов первой строки...

Наверх