IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Сортировка записей, Отсортировать записи в порядке невозрастания
pank
сообщение 19.01.2006 19:53
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Женский

Репутация: -  0  +


Подскажите, пожалуйста, есть данные об автомобилях, технические характеристики (название, мощность, скорость, масса, вид кузова, рабочий объем цилиндра), цена. Нужно напечатать таблицу, расположив модели в порядке невозрастания мощности.
Я тут что - то написала, но думается мне такой вариант не пройдет.
Помогите, а...


Прикрепленные файлы
Прикрепленный файл  ZAPIC1.PAS ( 1.41 килобайт ) Кол-во скачиваний: 204


--------------------
Наталка
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 26.01.2006 22:26
Сообщение #2


Гость






А ЭТА задача в таком виде и не заработает... Ты же данные для сортировки не передаешь...

А вот так:
Type
arrType = Array[1 .. 10] Of Integer;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
For i := 1 To n Do
For j := n DownTo i+1 Do
If ar[Pred(j)] > ar[j] Then Begin
T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
End;
End;

const
A: arrType = (9, 3, 5, 7, 2, 6, 3, 12, 15, 11);
var
i: integer;

begin
Writeln('До:');
for i := 1 to 10 do write(A[i]:4);
Writeln;

Bubble(A, 10);

Writeln('После:');
for i := 1 to 10 do write(A[i]:4);
Writeln;
end.

?

P.S. Я бы попросил НИЧЕГО не менять в программах из FAQ... Они достаточно много тестируются, чтобы не содержать ошибок. Если хочешь гарантированно получать тот результат, о котором мы говорим - копируй программу БУКВА В БУКВУ...
 К началу страницы 
+ Ответить 

Сообщений в этой теме
pank   Сортировка записей   19.01.2006 19:53
klem4   В следующий раз пользуйся поиском и смотри FAQ FA...   19.01.2006 20:00
pank   Огромное СПАСИБО! Чмок - чмок - чмок.   19.01.2006 20:31
Myasnik   что-то я FAQ всё облазил и не нашёл... такой вот м...   26.01.2006 1:38
volvo   А, прости за глупый вопрос, КУДА ты вводишь числа?...   26.01.2006 1:41
Myasnik   А, прости за глупый вопрос, КУДА ты вводишь числа...   26.01.2006 1:53
lapp   не в космос, а в программу :blum: Программа, к...   26.01.2006 4:22
volvo   А "в программу" это куда? МЕСТО для данн...   26.01.2006 1:55
Myasnik   гыгыгы =) пасиб. лучше через массив. гимор мне не ...   26.01.2006 2:02
Myasnik   Ребят, спасите, мозк отказал нириально в такой про...   26.01.2006 21:02
klem4   FAQ : Методы сортировок, выбирай любую   26.01.2006 21:14
Myasnik   FAQ : Методы сортировок, выбирай любую я уже обс...   26.01.2006 21:57
volvo   А ЭТА задача в таком виде и не заработает... Ты же...   26.01.2006 22:26
Myasnik   Спасибо, выручил. Исправил знак и считает теперь к...   26.01.2006 22:59


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 9:56
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"