Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Сколько различных символов находится в заданной строке если можно подробно)) https://www.cyberforum.ru/ turbo-pascal/ thread102824.html	Дан символьный файл f. Получить копию файла в файле g Turbo Pascal если можно подробно))
Turbo Pascal Зеркальное отражение массива относительно дополнительной диагонали Нужна программа которая: 1) Сформируем массив Аnn из целых чисел. 2) Отразит(перевернет) зеркально этот массив относительно дополнительной диагонали... Например: Произвольно сформированный массив из целых чисел: 4 5 6 3 7 1 9 8 2 После зеркального отражения: 2 1 6 https://www.cyberforum.ru/ turbo-pascal/ thread102804.html	Turbo Pascal Преобразования из вектора в матрицу по заданным условиям https://www.cyberforum.ru/ turbo-pascal/ thread102803.html Дан вектор V. Если среднеарифметическое значение элементов с четными индексами больше или равно среднеарифметическому значению элементов с нечетными индексами, то все элементы вектора увеличить в 5 раз и сформировать из них матрицу W. Иначе удалить из вектора минимальный элемент, все элементы вектора возвести в квадрат и сформировать из них матрицу Z. Прошу помочь кто сможет, заранее...
Сортировка Включением Turbo Pascal Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном векторе заменить первый отрицательный элемент на максимальное значение элемента массива	Turbo Pascal Заменить нулевые элементы матрицы, расположенные под побочной диагональю, на любые, отличные от нуля есть такая прога program mass; uses crt; Var A:Array of integer; i,j,m:integer; Begin clrscr; Writeln('Koli4estvo elementov mass:');Read(m); For i:=1 To 5 Do For j:=1 To 5 Do https://www.cyberforum.ru/ turbo-pascal/ thread102796.html
Turbo Pascal Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят только в одно слово https://www.cyberforum.ru/ turbo-pascal/ thread102795.html Помогите пожайлуста. нашел похожую но нужно переделать немного.:( пробовал не как не получается. вот задание: Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят только в одно слово. а вот код: Const glsogl =; razdel =;	Turbo Pascal Дано предложение, состоящее не менее чем из 5 слов. Напечатать все слова из предложения, содержащие ровно две буквы "d". Помогите пожайлуста решить лабу: Дано предложение, состоящее не менее чем из 5 слов. Напечатать все слова из предложения, содержащие ровно две буквы "d". Очень нужно.:wall:
Turbo Pascal файл на удалённом сервере Что надо сделать чтобы можно было считывать информацию из файла на удалённом сервере? https://www.cyberforum.ru/ turbo-pascal/ thread102778.html	Turbo Pascal Наибольший общий делитель. https://www.cyberforum.ru/ turbo-pascal/ thread102709.html Дана последовательность из n натуральных чисел и натуральное число А. Найти в данной последовательности число, которое имеет самый большой наибольший общий делитель с числом А. Программу я вроде составил, но она даже не вычисляет делитель последовательности. А как сравнивать последовательность с заданным числом, я чего то не пойму никак. Помогите. program delitel; uses crt; var n,i,a,...
Перевод двоичной записи натурального числа в десятичную Turbo Pascal Здраствуйте. Помогите пожалуйста составить программу перевода двоичной записи натурального числа в десятичную. При этом программу нужно составить с использованием процедуры или функции.	Turbo Pascal Найти самого старшего мужчину в группе https://www.cyberforum.ru/ turbo-pascal/ thread102647.html Помогите решить лабу. type строка=array of char; дата=record число:1..31; месяц:1..12; год:1900..1979 end; анкета=record фамилия:строка; пол:(муж, жен); деньрожд:дата end;

Puporev

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

64304 / 47599 / 32743

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

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

10.03.2010, 14:06

Сортировка простым выбором - Turbo Pascal - Ответ 590809

10.03.2010, 14:06. Показов 1254. Ответов 5

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

Ответ

Pascal

{сортировка по возрастанию выбором минимального элемента}
procedure Sort(var v:Tmas;n:byte);
var i,j,nmin,buf:integer;
begin
for i:=1 to n-1 do
 begin
  nmin:=i;
  for j:=i+1 to n do
  if v[j]<v[nmin] then nmin:=j;
  buf:=v[i];
  v[i]:=v[nmin];
  v[nmin]:=buf;
 end;
end;

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

10.03.2010, 14:06

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

Сортировка простым выбором
Отсортировать четные элементы массива с помощью простого выбора. ВНИМАНИЕ!!! Входные данные...

Сортировка простым выбором
Сортировка простым выбором собственно. Доработайте пжл. var i,j,k,m,n:integer; a:array of...

Сортировка простым выбором
Помогите по фотографии пожалуйста,там блок схема-в ней сортировка простым выбором:

Сортировка простым выбором
uses crt; var mas:array of integer; i,b:integer; begin clrscr; randomize; for i:=1 to 20 do ...

	10.03.2010, 14:06

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

10.03.2010, 14:06

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

Сортировка матрицы простым выбором
Помогите с сортировкой матрици. Её надо отсортировать простым выбором (поиск мин. и на 1 место)....

Сортировка простым выбором - посчитать число обменов
Здравствуйте. Не могу понять как посчитать количество обменов при сортировке простым выбором:( Я...

Отсортировать массив простым выбором и методом простой перестановки
Отсортировать одномерный массив: 1) простым выбором; 2) методом простой перестановкой;

Внешняя сортировка простым слиянием
Реализовать программу, в которой выполняется алгоритм внешней сортировки простым слиянием: Дан...

Наверх