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

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

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

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

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

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

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

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

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

Решение

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
30.03.2013, 16:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2013, 16:43
Помогаю со студенческими работами здесь

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

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

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

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

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

Как написать эту программу с условием if?
Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru