Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Вниз
А как, с помошю цикла, наити самое большое число в Массиве? Найти похожие ветки
← →
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]да уж.... =)))))
← →
radion (2003-02-23 18:36) [9]Универ транспорта и связи ( www.tsi.lv ), а в школе у нас с компоми туго было :( ...
← →
ferrik (2003-02-23 19:54) [10]По-моему это просто и для 9 класса..........
← →
frizZ. (2003-02-23 23:25) [11]
> По-моему это просто и для 9 класса..........
Для восьмого, мы в восьмом, во второй четверти проходили такую фигню....
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c
