Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите сделать простую программку, пожалуйста. [D7, XP]

Groof © (2006-02-25 21:28:00)
Надо реалиховать ф-ую по обмену двух значений (макс.и мин элементов массива, т.е. их надо поменять местами в массиве и затем отобразить его).Если кому может пригодиться, то вот она для с++:

void obmen(char *a, unsigned max, unsigned min)
{
char temp = a[min];
a[min] = a[max];
a[max] = temp;
}

...
int main ()
{
.....
obmen(a,maxElem,minElem);
cout

Anatoly Podgoretsky (2006-02-26 19:14:00) [1]
Virgo_Style © (26.02.06 13:20) [9]
А зачем где, нужно какое

PZ (2006-02-26 18:14:00) [2]
> Virgo_Style © (26.02.06 13:20) [9]
> где здесь минимальный элемент?

Уговорил

Groof (2006-02-26 17:47:00) [3]
Да такие мелочи пока не особо нужны..Лучше напиши код для bitbtn2, чтобы эта ф-ия по обмену значений работала..

Галинка (2006-02-26 16:08:00) [4]
Palladin © (25.02.06 22:25) [4]

Легче всего, поставить условие на "неввод" двух одинаковых значений ))) Либо если заранее известно, что двух или более одинаковых значений быть не может.

Virgo_Style (2006-02-26 13:20:00) [5]
PZ (26.02.06 9:06) [5]

1, 1, 1, 1, 2.

где здесь минимальный элемент?

evvcom (2006-02-26 12:21:00) [6]

> Минимум, он всегда - один, также, как максимум

У, какой ты умный! Значение одно, а вот аргументов может быть несколько.

Рамиль (2006-02-26 10:45:00) [7]

> Groof © (26.02.06 09:10) [6]

Можно еще по Button1Click

Groof (2006-02-26 09:10:00) [8]
Хорошо, это процедура, а как ее теперь надо запускать по нажитию кнопки bitbtn2Click.?

PZ (2006-02-26 09:06:00) [9]
> теперь осталось продумать вопрос о существовании более чем одного > минимального/максимального элемента массива

Минимум, он всегда - один, также, как максимум

Palladin (2006-02-25 22:25:00) [10]
Procedure ExchgMM(Var a:Array of String); Var strMin,strMax:String; i,iMin,iMax:Integer; Begin If Length(a)=0 Then Exit; strMin:=a[0]; iMin:=0; strMax:=a[0]; iMax:=0; For i:=0 to Length(a)-1 Do If a[i]>strMax Then Begin strMax:=a[i]; iMax:=i; End Else If a[i]<strMin Then Begin strMin:=a[i]; iMin:=i; End; a[iMax]:=strMin; a[iMin]:=strMax; End;

теперь осталось продумать вопрос о существовании более чем одного минимального/максимального элемента массива

Virgo_Style (2006-02-25 22:15:00) [11]
А-а. Ну я, наверное, рискну ответить за всех, что мы не возражаем. Даже более того, будут возникать вопросы - спрашивай, ответим.

И даже сразу совет дам - код стОит форматировать, больше шансов, что его прочтут.

Groof (2006-02-25 21:59:00) [12]
вопрос в том, чтобы доделать эту задачу..надо дописать ф-ую для дельфи, чтобы она поизводила обмен значений...макс. и мин...

Virgo_Style (2006-02-25 21:40:00) [13]
А где вопрос?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »