С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Найти среднее арифметическое число отрицательных элементов массивов!!! https://www.cyberforum.ru/ pascal/ thread94239.html
Найти среднее арифметическое число отрицательных элементов массивов x(N), y(M), где M=20, N=24; через подпрограмму procedure (исходные массивы вывести на экран) Плиииизззз!!!!!!!!
Гибкие программы и динамические переменные Pascal
Тема:Создание гибких подпрограмм для обработки матриц произвольного порядка с фиксированным базовым типом. Закрепление навыков использования нетипизованных параметров подпрограмм и освоение работы с параметрами, являющимися открытыми массивами. Задача: Даны две прямоугольные матрицы разных размеров, все элементы которых различны. Для каждой из матриц найти среднее геометрическое модулей...
Pascal Найти наименьшее число из трех заданных нужно написать 2 программки в паскалеАВС: 1задача : даны три числа. найти наименьшее из них. 2задача: дано трёхзначное число. в нём зачеркнули первую справа цифру и приписали её слева. вывести полученное число. https://www.cyberforum.ru/ pascal/ thread94218.html Pascal упорядочить строки матрицы https://www.cyberforum.ru/ pascal/ thread94217.html
приветствую снова) вот такой вопрос появился, надо упорядочить строки матрицы по неубыванию количества простых чисел в строке вот не особо понял вообще что требуется от меня, т.е. чем больше простых чисел в строке, тем она ниже? если так, то не особо понимаю как это реализовать, а точнее как запомнить, что в одной строке одно количество чисел, а в другой уже другое, как их сравнить и как потом...
Определить сколько чётных цифр в числе Pascal
Здравствуйте! Помогите с задачей. Дано целое число, определить сколько в нём чётных цифр. Спасибо!
Pascal присвоить m1 название месяца следующего за месяцем m https://www.cyberforum.ru/ pascal/ thread94201.html
type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, нояб, дек); var m1,m:месяц; присвоить m1 название месяца следующего за месяцем m(с учётом того, что за декабрём идёт январь)
Pascal Меню в бд есть воопрос! https://www.cyberforum.ru/ pascal/ thread94195.html
Помогите сделать нормальное меню в Базе данных на паскале(оно должно переключатся между пунктами с помощью стрелок на клавиатуре ) с кнопкой связать я могу то есть нажимаешь А открылся пункт который связан с А но такой вариант не подойдет. И еще одно с сортировкой проблемы никак не получается суть ее в том чтобы выводить в определенном пункте меню(статистика) отсортированные данные где ...
Pascal Выяснить, входит ли цифра 3 в запись числа
Помогите пожалуйста,Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа
Pascal Определить сумму максимальных четных элементов массивов A, B, C https://www.cyberforum.ru/ pascal/ thread94183.html
Определить сумму максимальных четных элементов массивов A, B, C
Pascal Из каждого элемента матрицы вычесть сумму ее четных отрицательных элементов ОБРАБОТКА МАССИВОВ С ИСПОЛЬЗОВАНИЕМ ПОДПРОГРАММ --> Из каждого элемента матрицы A(3,3) вычесть сумму ее четных отрицательных элементов <-- https://www.cyberforum.ru/ pascal/ thread94180.html
Номера элементов массива - степени числа 2 Pascal
Написать программу которая выводит на экран элементы заданного массива индексы которых являются степенями двойки (1,2,4,8,16...).
Pascal Составьте программу,выясняющую, есть ли в слове Х глухие согласные https://www.cyberforum.ru/ pascal/ thread94175.html
Составьте программу,выясняющую, есть ли в слове Х глухие согласные.
3 / 3 / 1
Регистрация: 06.02.2010
Сообщений: 12
10.02.2010, 19:46 0

Сортировка массивов - Pascal - Ответ 535932

10.02.2010, 19:46. Показов 21502. Ответов 3
Метки (Все метки)

Ответ

Мне самым простым способом кажется "прямым обменом".
Вроде как-то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program abc; {сортировка одномерного массива}
uses crt;
const n=10;
var mass : array [1..n] of integer;
i, j, x : integer;
begin
clrscr;
randomize;
for i:= 1 to n do mass[i] := random(50);
 
for i:= 1 to n-1 do begin
for j:= i+1 to n do begin  {сравенение каждого элемента со следующим}
if mass[i]>mass[j] then begin
x:=mass[i]; mass[i]:=mass[j]; mass[j]:=x; {если он больше, то перестановка их местами}
end; end; end;
 
for i:= 1 to n do write (mass[i], ' ')
end.


Вернуться к обсуждению:
Сортировка массивов Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2010, 19:46
Готовые ответы и решения:

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

Сортировка массивов. Сортировка выбором
Помогите пожалуйста, я что-то совсем запуталась при составлении данной программы... Сортировка...

сортировка массивов
дана квадратная матрица N*M, состоящая из натуральных чисел. зеркально отразить ее элементы...

Сортировка массивов
Люди помогите, пожалуйста, написать программу для сортировки массивов по возрастанию методом выбора...

3
10.02.2010, 19:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2010, 19:46
Помогаю со студенческими работами здесь

Сортировка массивов
Дан одномерный массив массив. Получить из него второй массив содержащий только четные элементы...

сортировка массивов
сформировать одномерный массив, состоящий из положительных элементов, заданной квадратной...

Сортировка массивов
Для значений i=1,2,...,n вычислить число сочетаний из n по i и занести результаты в массив с=(с1,...

Сортировка массивов
Помогите, я уже не могу ничего придумать.. 1)Сортировать вставкой рядки массива по возрастанию...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru