А как, с помошю цикла, наити самое большое число в Массиве?

← →
Radion © (2003-02-23 17:30) [0]

А как, с помошю цикла, наити самое большое число в Массиве?

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

Думал типа

For i:=1 to X do ..........

Спасибо.

← →
y-soft © (2003-02-23 17:38) [1]

А в чем сложность? Например так:

function MaxIntElement(Arr : array of integer) : integer; var I : integer; begin Result := MININTEGER; for I := Low(Arr) to High(Arr) do if Arr[I] > Result then Result := Arr[I]; end;

← →
Palladin © (2003-02-23 17:38) [2]

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

так тебе и надо

nMax:=A[1]; for i:=2 to x do if A[i]>nMax then nMax:=A[i];

угадай... какая переменная здесь симолизирует максимальный элемент..

← →
radion © (2003-02-23 17:55) [3]

Спасибо! Написал. Лов/Хигх/Арр ещё к сожалению не проходили...

Палладин, учусь на первом курсе, на програмиста.

Задание на лабораторную работу: Разработать программу на Delphi, позволяющую с помощью кнопок "вперед" и "назад" просматривать файл, состоящий из записей с указанными полями, производить добавление и редактирование информации в данном файле, а также выполнять дополнительную операцию в соответствии с индивидуальным заданием..

Поля: код животного, название, количество еды в день (кг). Операция: найти название животного, которое ест больше всего.

type TAnimal=record // my code Kod, Havka:integer; // my code Zverj:string; // my code end; // my code var Form1: TForm1; var Mass:array [0..10] of TAnimal; // my code var Kod, Havka:integer; // my code var Zverj:string; // my code var N:integer = 0 ; // N -> schjotchik var c,i:integer; implementation {$R *.dfm} ///// IZMENJAEM ( SAVE ) ///// procedure TForm1.savebtnClick(Sender: TObject); begin Mass[N].Kod:=StrToInt(Koded.text); Mass[N].Zverj:=Zverjed.Text; Mass[N].Havka:=StrToInt(Haved.text); Lb1.Items[N]:=(IntToStr(Mass[N].Kod)); Lb2.Items[N]:=(Mass[N].Zverj); Lb3.Items[N]:=(IntToStr(Mass[N].Havka)); Ned.Text := IntToStr(N); end; ///// DOBOVLJAEM NOVIJ ( NEW ) ///// procedure TForm1.newbtnClick(Sender: TObject); begin N:= Lb1.Items.Count; Mass[N].Kod:=StrToInt(Koded.text); Mass[N].Zverj:=Zverjed.Text; Mass[N].Havka:=StrToInt(Haved.text); Lb1.Items[N]:=(IntToStr(Mass[N].Kod)); Lb2.Items[N]:=(Mass[N].Zverj); Lb3.Items[N]:=(IntToStr(Mass[N].Havka)); Ned.Text := IntToStr(N); end; ///// BACK ///// procedure TForm1.backbtnClick(Sender: TObject); begin If N > 0 then // esli mi ne na pervom begin N:=N-1; // to idjom na 1 shag back Koded.Text := IntToStr(Mass[N].Kod); Zverjed.Text := Mass[N].Zverj; Haved.Text := IntToStr(Mass[N].Havka); end; Ned.Text := IntToStr(N); end; ///// NEXT ///// procedure TForm1.nextbtnClick(Sender: TObject); begin If N < Lb1.Items.Count -1 then // esli mi ne na poslednem begin N:=N+1; // to idjom na 1 shag next Koded.Text := IntToStr(Mass[N].Kod); Zverjed.Text := Mass[N].Zverj; Haved.Text := IntToStr(Mass[N].Havka); end; Ned.Text := IntToStr(N); end; ///// UBERAEM (DEL) ///// procedure TForm1.delbtnClick(Sender: TObject); begin For i:=N to Lb1.Items.Count-2 do Mass[i]:=Mass[i+1]; Lb1.Items.Delete(N); Lb2.Items.Delete(N); Lb3.Items.Delete(N); Koded.Text := IntToStr(Mass[N].Kod); Zverjed.Text := Mass[N].Zverj; Haved.Text := IntToStr(Mass[N].Havka); end; ///// ISHIM OBZHORU ///// procedure TForm1.searchbtnClick(Sender: TObject); begin c:=0; For i:=0 to Lb1.Items.Count-1 do If Mass[i].Havka > c then begin c:= Mass[i].Havka; N:=i; end; Koded.Text := IntToStr(Mass[N].Kod); Zverjed.Text := Mass[N].Zverj; Haved.Text := IntToStr(Mass[N].Havka); Ned.Text := IntToStr(N); end; end.

← →
y-soft © (2003-02-23 17:57) [4]

>Palladin © (23.02.03 17:38)

1. Массив совсем необязательно начинается с 1-го элемента
2. Массив может состоять всего из 1 элемента

Т.е. в общем случае Ваш код работать не будет, т.к. может сразу же вызвать исключение

← →
Palladin © (2003-02-23 18:02) [5]

> y-soft © (23.02.03 17:57)

А вот Вы совсем не дали ему возможности подумать...
Разжевали в рот положили... вот только еще челюсть ему осталось закрыть и голову назад наклонить...

Но я рад за Вашу доброту...

← →
y-soft © (2003-02-23 18:14) [6]

>Palladin © (23.02.03 18:02)

Судя по последнему посту Radion ©, я думаю, что ему надо посоветовать еще почитать учебник по Pascal, т.к. из условия задачи явно следует, что ее совсем не так надо решать, а вообще без применения массивов:)

← →
Palladin © (2003-02-23 18:33) [7]

ну дык...
первый курс... (хотя мы такое еще в школе решали)
интересно какого универа...

← →
mrcat © (2003-02-23 18:34) [8]

да уж.... =)))))

Универ транспорта и связи ( www.tsi.lv ), а в школе у нас с компоми туго было :( ...

По-моему это просто и для 9 класса..........

> По-моему это просто и для 9 класса..........

Для восьмого, мы в восьмом, во второй четверти проходили такую фигню....

А как, с помошю цикла, наити самое большое число в Массиве? Найти похожие ветки