VPF::Поиск в массиве наибольшего числа.

Damp1L

Дата 21.3.2006, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

В общим к примеру есть одно мерный массив n[10] мне нужно найти в нём наибольшее значение. Надеюсь кто-нить поможет. Зарание спасибо.

IvanB

Дата 21.3.2006, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 5

Самый простой вариант:

Код


Randomize Timer
Dim max, i As Integer
Dim arr(1 To 10) As Integer
arr(1) = Int(50) * Rnd() - 25
max = arr(1)
For i = 2 To 10
 arr(i) = Int(50) * Rnd() - 25
 If arr(i) > max Then
  max = arr(i)
 End If
Next i

--------------------

Закон отладки: Каждая последняя ошибка является предпоследней.

darkart

Дата 21.3.2006, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 26
Всего: 31

Ну или так:

Код


#include<iostream>
#include<conio.h>
using namespace std;
const int n=10;//размерность массива
void InputArray(int Arr[])
//ввод массива
{
    for(int i=0;i<n;i++)
        cin>>Arr[i];
}
void PrintArray(int Arr[])
//печать массива
{
    for(int i=0;i<n-1;i++)
        cout<<Arr[i]<<" ";
    cout<<Arr[n-1]<<"\n";
}
int GetMax(int Arr[])
//получение максимума
{
    int max=Arr[0];//инициализация
    for(int i=1;i<n;i++)
        if(Arr[i]>max)max=Arr[i];
    return max;
}
int main()
{
    int Arr[n];
    cout<<"Please enter array("<<n<<"):\n";
    InputArray(Arr);
    cout<<"Source array:\n";
    PrintArray(Arr);
    cout<<"max="<<GetMax(Arr);
    getch();
}

Damp1L

Дата 21.3.2006, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

т.е. вот сама функция для поиска максимума ?

Код


int GetMax(int Arr[])    
//получение максимума    
{    
    int max=Arr[0];//инициализация    
    for(int i=1;i<n;i++)    
        if(Arr[i]>max)max=Arr[i];    
    return max;    
}

MAKCim

Дата 21.3.2006, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 6
Всего: 207

Цитата

т.е. вот сама функция для поиска максимума ?

да

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

darkart

Дата 21.3.2006, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 26
Всего: 31

или так:

Код


program FindMax;
const
  n=10;{размерность массива}
type
  TArr=array[1..n] of integer;{описание массива}
procedure InputArray(var Arr:TArr);
{ввод массива}
var
  i:integer;
begin
  for i:=1 to n-1 do
    read(Arr[i]);
  readln(Arr[n]);
end;
procedure PrintArray(var Arr:TArr);
{печать массива}
var
  i:integer;
begin
  for i:=1 to n-1 do
    write(Arr[i],' ');
  writeln(Arr[n]);
end;
function GetMax(var Arr:TArr):integer;
{получение максимума}
var
  i,max:integer;
begin
  max:=Arr[1];{инициализация}
  for i:=2 to n do
    if Arr[i]>max then max:=Arr[i];
  GetMax:=max;
end;
var
  Arr:TArr;
begin
  writeln('Please enter an array(',n,'):');
  InputArray(Arr);
  writeln('Source array:');
  PrintArray(Arr);
  writeln('max=',GetMax(Arr));
  readln;
end.

P.S. обязательно указывайте нужный язык, это экономит время.

Это сообщение отредактировал(а) darkart - 21.3.2006, 18:42

Damp1L

Дата 29.3.2006, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Люди, вознтикла ещё одна проблемка, не работает цикл, я хатю сделать так, чтоб из моего массива бащового находилося большее значение, потом сохранялось в другом массиве, далее оно удалялось и продолжало пока не останется элементов больше нуля. Но почему-то находит 1 элемент а дальше идёт ересть, мне нужно чтоб в итогу получился исходный массив от большего к меньшему. Вот код

Код


int GetMax(int mBase[2][10])
//ïîëó÷åíèå ìàêñèìóìà
{     int max=mBase[0][0];
    for(int i=0;i<n;i++)
        {if(mBase[0][i]>max)
        max=mBase[0][i];
        mBase[0][i]=0;
        maximum = max;
        max = 0;
        i=0;
        }
        ShowMessage("="+FloatToStr(max));
    return max;

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int mBase[2][10], mOutput[2][10], mResults[10];
mBase[0][0] = StrToFloat(Edit1->Text);
mBase[0][1] = StrToFloat(Edit2->Text);
mBase[0][2] = StrToFloat(Edit3->Text);
mBase[0][3] = StrToFloat(Edit4->Text);
mBase[0][4] = StrToFloat(Edit5->Text);
mBase[0][5] = StrToFloat(Edit6->Text);
mBase[0][6] = StrToFloat(Edit7->Text);
mBase[0][7] = StrToFloat(Edit8->Text);
mBase[0][8] = StrToFloat(Edit9->Text);
mBase[0][9] = StrToFloat(Edit10->Text);
mBase[1][0] = 1;
mBase[1][1] = 2;
mBase[1][2] = 3;
mBase[1][3] = 4;
mBase[1][4] = 5;
mBase[1][5] = 6;
mBase[1][6] = 7;
mBase[1][7] = 8;
mBase[1][8] = 9;
mBase[1][9] = 10;
for
(int i=0;i<10;i++)
{ GetMax(mBase);
mOutput[0][i]=maximum;
}
//ShowMessage("="+FloatToStr(max));

Label1->Caption="="+FloatToStr(mOutput[0][0]);

}

p.s. Язык Borland C++. Надеюсь вашей помощи.
p.s.s. Плиз не пинать если не правильно делаю smile

Это сообщение отредактировал(а) Damp1L - 29.3.2006, 16:12

Albinos_x

Дата 29.3.2006, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

задай вопрос в новом топике, так больше шансов, что ответят....

думаю сортировку можно найти здесь или здесь

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »