Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Файлы & Записи https://www.cyberforum.ru/ pascal/ thread122913.html Файлы 1. Символьный файл содержит пробелы. Сжать этот файл (убрать пробелы). (типизированные файлы) 2. В текстовом файле записана непустая последовательность действительных чисел, разделенных пробелами (пробелов может быть больше одного). Написать функцию для нахождения наибольшего из этих чисел. (текстовые файлы) Записи Создать программу, имитирующую работу с базой данных по предложенной...	Pascal Комбинированный тип данных (запись) Описать массив записей, который содержит информацию о нескольких деталях (наименование, масса, габаритные размеры: длина, ширина, высота; материал). Определить массу всех деталей. Добавлено через 13 часов 58 минут Люди!!!!!!!!!!!!!!! знает кто как прогу собрать??????????
Pascal Составить блок схему к готовому коду https://www.cyberforum.ru/ pascal/ thread122905.html uses crt; function Fact(n:byte):longint; begin if n<2 then Fact:=1 else Fact:=Fact(n-1)*n; end; var s:longint; i:byte; begin clrscr;	Pascal В строке пробел и запятую, стоящие рядом, поменять местами Дана строка символов. В строке пробел и запятую, стоящие рядом, нужно поменять местами. Вывести полученную строку. https://www.cyberforum.ru/ pascal/ thread122896.html
Сортировка перемешиванием Pascal Массив из n<10000 элементов заполняется случайными дробными числами от -10000 до 10000. Число n вводится в процессе работы программы. Отсортировать массив по возрастанию методом сортировки перемешиванием. подсчитать и вывести на экран кол-во обменов, произошедших в процессе сортировки. Данные действия повторить 100 раз для того же n, и найти реднее арифметическое от кол-ва обменов. Прошу помочь,...	Pascal На заданном отрезке (a;b) изменения x с шагом h найти наименьшее и наибольшее значения функции На заданном отрезке (a;b) изменения x с шагом h найти наименьшее и наибольшее значения функции y= (sin(x^2+c))^2 и запомнить значения аргумента, при которых они получены. Приняв найденные значения аргумента за новые границы интервала, вычислить на нем 10 значений y, включая граничные точки. https://www.cyberforum.ru/ pascal/ thread122884.html
Pascal Оставить между словами строки 1 пробел Вводим n строк, в которой слова отделены несколькими пробелами. Оставить между словами 1 пробел. Преобразовать строку в процедуре. Спасибо. https://www.cyberforum.ru/ pascal/ thread122856.html	Pascal Найти сумму элементов матрицы и запихать их в вектор Дана матрица, надо сумму элементов 1,1 1,2 1,3 1,4 1,5 2,1 2,5 3,1 3,5 4,1 4,5 5,1 5,2 5,3 5,4 5,5 и вывести на экран!!!! ...
Pascal Найти минимальный элемент вектора у= Dz https://www.cyberforum.ru/ pascal/ thread122821.html ДАНА МАТРИЦА 2.8 1.7 3.2 11 0.5 1.8 7.4 1.5 =D 12 0.34 9.2 6 1.5 2.3 7.1 0.8 1 -2 3 =z	Pascal Составить программу для ввода двух одномерных массивов А и В и вычисления матрицы C https://www.cyberforum.ru/ pascal/ thread122811.html Доброе время суток резиденты !! У меня возникла трудность в решении одной задачки ..(скорей всего в алгоритмизации/постановки задачи).. Условие: Составить программу для ввода двух одномерных массивов А и В, А=1 ,a2...am] B=1, b2, ...bn] Требуется вывести и вычислить на экран матрицу Сmn по формуле: ---- _
Обратная матрица 3-ого порядка Pascal Дана матрица 3-ого порядка, если для этой матрицы существует обратная, то найти её, если не существует - выдать: "Обратная матрица не существует"	Pascal Дано массив А [1 .. n, 1 .. m]. Составить программу поиска всех его элементов, находящихся между а и b. Помогите написать программу. Дано массив А . Составить программу поиска всех его элементов, находящихся между а и b. https://www.cyberforum.ru/ pascal/ thread122778.html

Puporev

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

64291 / 47589 / 32740

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

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

28.04.2010, 11:52

Пузырьковый метод сортировки массива - Pascal - Ответ 691337

28.04.2010, 11:52. Показов 9694. Ответов 2

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

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

Решение

Pascal

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{сортировка пузырьком простая}
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i],' ');
readln
end.

Вернуться к обсуждению:
Пузырьковый метод сортировки массива Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.04.2010, 11:52

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

Пузырьковый метод сортировки
Отсортировать произвольный одномерный массив размерностью N<=20 по убыванию методом прямого обмена...

Усовершенствовать программу. Дополнить недостающие элементы. Метод сортировки-пузырьковый
Усовершенствовать программу. Дополнить недостающие элементы. Метод сортировки-пузырьковый. ...

Используя метод сортировки массива упорядочить столбцы массива по убыванию
Дан массив целых случайных чисел (в диапазоне от -50 до 23) размерности m*n. Числа m и n вводятся...

Написать комментарии, поясняющие принцип сортировки. (Метод сортировки - вставками)
Написать комментарии, поясняющие принцип сортировки. (Метод сортировки - вставками) Если вдруг...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.04.2010, 11:52

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

Метод сортировки как метод подсчета
Существует такой метод сортировки как метод подсчета. Метод заключается в том, что каждый ...

Расставить элементы массива в порядке возрастания методом сортировки выбором и сортировки простыми вставками
Здрасьте еще раз!С прошедшим вас праздником! я глупая и бестолковая опять пришла к вам на...

Метод сортировки файла без использования массива
Нужно составить программу для сортировки в файле БЕЗ массива с полями : имя студента, фамилия, дата...

Написать программу сортировки массива с помощью алгоритма внешней сортировки
1. Дан текстовый файл, в котором записана последовательность целых чисел. Написать программу...

Наверх