С Новым годом! Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Артем1003

Как написать эту программу?

30.03.2013, 08:07. Показов 1571. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2. ЗАДАНИЕ
1. Из приложения согласно своему варианту (вариант №9) выписать метод
сортировки одномерного массива целых чисел.
2. Составить блок-схему алгоритма сортировки согласно своему варианту.
3. Разработать программу сортировки одномерного массива, согласно своему
варианту и защитить ее перед преподавателем.
Требования к программе:
сортировка массива должна быть оформлена в виде подпрограммы;
массив должен передаваться в подпрограмму в качестве параметра;
размерность обрабатываемого массива должна задаваться пользователем с клавиатуры;
массив должен заполняться случайными значениями;
вывод значений отсортированного массива на экран компьютера должен быть также
оформлен в виде подпрограммы;
для сортируемого массива необходимо организовать вывод его значений на экран
компьютера до, и после сортировки.
ПРИЛОЖЕНИЕ.
Вариант №9.
Метод сортировки: пузырьковый.
Тип массива: вещественный.
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.03.2013, 08:07
Ответы с готовыми решениями:

Как написать эту программу без стандартных функций?..
Написать программу: Не используя стандартные функции, за исключением abs, вычислить с точностью до eps>0: ...

Как написать эту программу без использования type
program Project1; type X = array of integer; Y = array of integer; var a: X; b: Y; i,j: integer; procedure...

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

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
30.03.2013, 16:43
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
const max=100;
type mas=array[1..max] of real;
procedure vyvod(a:mas;n:byte);
var i:byte;
begin
for i:=1 to n do
write(a[i]:4:1);
writeln
end;
procedure sort(var a:mas;n:byte);
var i,j:byte;
    sorted:boolean;
    x:real;
begin
repeat
sorted:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then
  begin
   sorted:=false;
   x:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=x;
  end;
until sorted
end;
var a:mas;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
for i:=1 to n do
a[i]:=9*random;
writeln('Исходный массив:');
vyvod(a,n);
sort(a,n);
writeln('Отсортированный массив:');
vyvod(a,n);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.03.2013, 16:43
Помогаю со студенческими работами здесь

Как вы понимаете эту программу?
Есть программа которая выполняет следующую задачу: Дан файл с текстом. Составить слова в алфавитном порядке список всех слов. ...

Как записать эту программу по другому ?
Как записать эту программу по другому ? uses crt; var x,y,s,s1,h,xk:real;n:integer; begin clrscr; x:=0; xk:=3.1; h:=0.1; s:=0;...

напишите эту программу как нить иначе
const n=10; var f1,f2: text; i,s,f,t1,t2,j,t,a: integer; m: array of integer; b:string; begin

Как мне изменить эту программу? (двумерные массивы)
Нужно изменить ее так: замените вызов процедуры ввода на вызов присваивания, сумма отрицательных элементов больше суммы положительных (те и...

Как упростить эту программу, можно даже модуль убрать, чтоб 20 строк было?
uses graphABC; //Подключаем графический модуль const W = 800; H = 500;//Размеры графического окна function F(x: real):...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru