Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пары, разность которых наибольшая в массиве, помоги пожалуйста... 
:(
    Опции темы
119040
Дата 22.5.2007, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет
Составьте программу, отыскивающую среди пар элементов одномерного массива Z(N) те, разность между элементами которых есть величина наибольшая для данного массива.

- не знаю как писать программу. Хотя бы алгоритм подскажите... но если дадите исходник, поможете сэкономить не мало времени. Что очень важно.

Заранее спасибо.
PM MAIL   Вверх
Misha_White
Дата 22.5.2007, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 207
Регистрация: 25.4.2007
Где: Кодинск

Репутация: нет
Всего: 1
119040, 
На каком же таком языке вам накатать эту прогу? Может на АЛГОЛ-60?
Напиши в названии и лучше сам переедь в "Центр помощи"...
--------------------
Я не волшебник... я только учусь...  
PM MAIL ICQ Skype   Вверх
Anark1
Дата 22.5.2007, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 622
Регистрация: 15.12.2006
Где: RF -> Moscow

Репутация: нет
Всего: 11
Что тут сложного?
Написал в лоб. Можно еще уменшить количество переборов.

Код

type my_array = array[1..count] of real;
...
if count<>1 then begin
For i:=1 to count do
For p:=1 to count do
if a[p] - a[i] > max then begin
                                      max:=a[p]-a[i];
                                      oper1:=p;
                                      oper2:=i;
                                      end;
writeln(max,' - максимальная разность между двумя элементами : ',my_array[oper1],' , ',my_array[oper2]); 
end;



--------------------
Enjoy yourself, still you can...;)

user posted image

user posted image
PM MAIL ICQ   Вверх
KuZyagroup
Дата 23.5.2007, 03:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


magento solution
**


Профиль
Группа: Участник
Сообщений: 283
Регистрация: 16.4.2007
Где: Kiev

Репутация: нет
Всего: 4
2Anark1

Сложнасть O(N^2) - много :-p

Код

max:=a[1];
min :=a[1];
for i:=2 to N do
  Begin
    If a[i]<min then a[i]:=min else 
      If a[i]>max then max:=a[i];
  End;
WriteLn(max-min);


Сложность O(N) - меньше сложность не возможна так как полюбому надо перебирать все элементы масива

Теги ...

Это сообщение отредактировал(а) volvo877 - 23.5.2007, 11:16
PM MAIL   Вверх
volvo877
Дата 23.5.2007, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Misha_White, специально для тебя: чтобы узнать, на каком языке писать программу, достаточно просто поднять глазки наверх - на название раздела, это понятно? Раздел называется Паскаль... Ты это запомнил? Так вот запомни еще и то, что в этом разделе флеймить не надо... Хватит уже. Иди в специальный раздел, и там упражняйся в словесности, а здесь уволь: это - ТЕМАТИКА!
PM MAIL   Вверх
Anark1
Дата 23.5.2007, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 622
Регистрация: 15.12.2006
Где: RF -> Moscow

Репутация: нет
Всего: 11
Цитата(Anark1 @ 22.5.2007,  17:57)
Что тут сложного?
Написал в лоб. Можно еще уменшить количество переборов.


2KuZyagroup

Насчет сложности согласен.


--------------------
Enjoy yourself, still you can...;)

user posted image

user posted image
PM MAIL ICQ   Вверх
Misha_White
Дата 24.5.2007, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 207
Регистрация: 25.4.2007
Где: Кодинск

Репутация: нет
Всего: 1
volvo877, Не надо делать мне предупреждений!!! Некоторые личности неправильно пишут заголовки... Вот я и уточняю... Пишите в теме язык!!! А для домашних заданий есть Центр помощи!!!! smile 
--------------------
Я не волшебник... я только учусь...  
PM MAIL ICQ Skype   Вверх
Snowy
Дата 24.5.2007, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484
Misha_White, 
1. Не флейми!
2. Не надо обсуждать замечания модератора. Ибо он прав.
3. В этом разделе действуют общие правила форума, а не специализированные из центра помощи.
4. Если считаешь, что тема не в том разделе - отправь репорт, а не поднимай флейм. Если и после репорта она не будет перемещена, значит модераторы раздела считают иначе.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0486 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.