Developing.ru

class element
{
       public:
       int GetValue() { return value; }
       int SetValue(int a) { value=a; }
       private:
       int value;
};

class massiv
{
       public:
       void FindMax() 
       { max=mas[0].GetValue(); 
          for(int i=1;i<10;i++) 
               if(mas[i].GetValue()>max) 
                    max=mas[i].GetValue();    
               else   continue;  
        };
        void FindMin() 
       { min=mas[0].GetValue(); 
          for(int i=1;i<10;i++) 
               if(mas[i].GetValue()<min) 
                    min=min[i].GetValue();    
               else   continue;  
        };
       int GetMax() { return max; }
       int GetMin() { return min; }
       int ShowElement(int index) { return mas[index].GetValue(); }
       void SetElement(int index,int value) { mas[index].SetValue(value); }    
       private:
       element mas[10]; int max,min;
}

[quote="Хыиуду"]Класс - массив. Метод класса - найти максимум. Еще один метод класса - найти минимум.[/quote]

Или более извращенно, но зато защищенно)))

[code]
class element
{
public:
int GetValue() { return value; }
int SetValue(int a) { value=a; }
private:
int value;
};

class massiv
{
public:
void FindMax()
{ max=mas[0].GetValue();
for(int i=1;i<10;i++)
if(mas[i].GetValue()>max)
max=mas[i].GetValue();
else continue;
};
void FindMin()
{ min=mas[0].GetValue();
for(int i=1;i<10;i++)
if(mas[i].GetValue()<min)
min=min[i].GetValue();
else continue;
};
int GetMax() { return max; }
int GetMin() { return min; }
int ShowElement(int index) { return mas[index].GetValue(); }
void SetElement(int index,int value) { mas[index].SetValue(value); }
private:
element mas[10]; int max,min;
}

[/code]

kirillik_mod - наврятли :)

[syntax='Delphi']
Program prog;
Const lmax=20;
Type mass=array[1..lmax] of real;
Var B,D,A:mass;
i,k,n,nmax:integer;
x,z1,z2,x1,max:real;
begin
writeln('Vvesti dlinny massiva B ot 1 do',lmax);
read(k);
writeln('Vvedite massiv B iz ',k:3,' eiementov');
for i:=1 to k do
read (b[i]);
writeln ('Vvedite x');
read(x);
nmax:=0;
max:=0;
for i:=1 to k do
if (abs(b[i])<x) and (abs (b[i])>=abs(max)) then
Begin
max:=b[i];
nmax:=i;
end;
{analiz}
if nmax=0 then
writeln ('net maximyma')
else
writeln ('max=',max:10:3,'nmax=',nmax:3);

writeln ('Vvedite z1, z2 (z1<=z2)');
repeat
read (z1,z2);
until (z1<=z2);
n:=0;{Dlinna Massiva}
for i:=1 to k do
if (z1<b[i]) and (b[i]<z2) then
Begin
n:=n+1;
d[n]:=-b[i];
end;

if n=0 then
writeln ('net massivov D i A')
else
begin
Writeln('massiv D iz',n:3,'elementov');
for i:=1 to n do
writeln (D[i]:10:3);
writeln;
writeln ('vvedite x1');
read(x1);
for i:=1 to n do
if d[i]>x1 then
a[i]:=d[i]
else
a[i]:=-d[i]/2;
writeln ('massiv A iz',n,'ilimentov');
for i:=1 to n do
write(A[i]:10:3);
writeln;
end;
end.
[/syntax]
[b]Может Поможет)[/b]

Хорошо, осталось пошевелить мозгами. :0

Класс - массив. Метод класса - найти максимум. Еще один метод класса - найти минимум.

Коллекциии??? Это что ещё? P.S. Блин, всё труба.........

Может вместо массивов использовать коллекции?

Хыиуду: "Раздел "Алгоритмы", тема "Нахождение максимума""- конечно спасибо, но вопрос в объектно-ориентированной среде так и остался не решённым! Ну вот, мы имеем массив и нам надо найти максимум, на какие тут классы можно разбить эту задачу, я не понимаю???

Раздел "Алгоритмы", тема "Нахождение максимума"

Народ, ну где-же ваша помощь??? Помогите пожалуйста!!!