Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на языке Pascal

Выпуск № 038
от 12.09.2002, 17:01

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 61
Отправлено ответов: 173
Активность: 283.6 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе]


 Список экспертов, ответы которых опубликованы в данном выпуске

portos
Статус: Опытный
Общий рейтинг: 146.15
[Подробней >>]
Артём Шегеда
Статус: Профессиональный
Общий рейтинг: 118.33
URL: Пристанище неодинокого программиста
[Подробней >>]
nix
Статус: Опытный
Общий рейтинг: 110.76
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 60. Помогите разобраться с упорядочиванием по возрастанию ... (ответов: 3)

Вопросов: 1, ответов: 3


 Вопрос № 60

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


Приложение:


Вопрос отправлен: 09.09.2002, 17:00
Отправитель: TEAC (buick@online.sinor.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает portos

Здравствуйте, TEAC!
так намного проще, а ошыбка в цыкле - посмотри мою прогу, найди ошыбку в своей :)

Приложение:

Ответ отправлен: 10.09.2002, 13:38
Отправитель: portos


Отвечает Артём Шегеда

Доброе время суток, TEAC!

Ой! Что ЭТО! А-А-а-а... (слышен звук падения чего-то мягкого - предположительно, ешё тёплого тела, на что-то твёрдое - предположительно, пол).

Сударь (или сударыня), вот что я Вам скажу: прежде чем пытаться написать НЕЧТО, стоит представить, как это НЕЧТО будет работать. В Вашем случае всё очень просто - ведь провести сотрировку может даже трёхлетний ребёнок
Вспомним детскую пирамидку: штырёк и десяток колечек - одно больше другого. Колечки разбросаны по полу. Как ребёнок проводит сортировку?
1. Ищем самое большое из разбросанных.
2. Забираем его и насаживаем на штырёк.
3. Есть ещё разбросанные колечки? если да - на пункт 1.
4. Конец. The end. Fine.
В примере - поиск наибольшего.
PS. Оформляй программу так, чтобы было понятно хотя бы самому(самой) себе. Отступы придуманы не от балды - а чтобы выделять функциональные блоки.

Приложение:

Ответ отправлен: 09.09.2002, 19:21
Отправитель: Артём Шегеда


Отвечает nix

Доброе время суток, TEAC!
Смотри дальше:
uses crt;
const n=10;
var i,j,t:integer;
mass:array[1..n] of integer;
begin
clrscr;
for i:=1 to n do
begin
mass[i]:=random(9);
write(mass[i],',');
end;
writeln;
for i:=1 to n-1 do
for j:=1 to n-1 do
if mass[j] begin
t:=mass[j];
mass[j]:=mass[j+1];
mass[j+1]:=t;
end;
for i:=1 to n do
write(mass[i],',');
readkey
end.


Ответ отправлен: 12.09.2002, 15:18
Отправитель: nix



Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (42)
C / C++ (29)
Perl (9)
Delphi (14)
Pascal (25)
Basic / VBA (10)
Java / JavaScript (12)
PHP (8)
MySQL / MSSQL (10)
Пользователю
Windows 95/98/Me (39)
Windows NT/2000/XP (29)
"Железо" (37)
Поиск информации (13)
Администратору
Windows NT/2000/XP (14)
Linux / Unix (16)
Юристу
Гражданское право (10)
Семейное право (6)
Трудовое право (8)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.




be number one Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное