Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
aleksandrln
1 / 1 / 0
Регистрация: 20.06.2011
Сообщений: 11
1

Найти минимальный элемент в типизированном файле

21.06.2011, 07:17. Просмотров 1034. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
f:file of integer;
i:integer;
mas:array   of integer;
begin
assignfile(f,edit1.Text);
reset(f);
setlength(mas,filesize(f));
i:=0;
while not eof(f) do
begin
read(f,mas[i]);
i:=i+1;
end;
closefile(f);
memo1.Clear;
memo1.Lines.Add('') ;
memo1.Lines.Add('') ;
memo1.Lines[0]:='Минимальный элемент'+floattostr(low(mas)) ;
memo1.Lines[1]:='Максимальный элемент '+ floattostr(length(mas));
end;
Количество элементов выдает верно, а в графе минимальный элемент всегда 0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2011, 07:17
Ответы с готовыми решениями:

В типизированном файле поставить минимальный элемент перед максимальным
Дан типизированный файл вещественного типа. Поставить элемент с минимальным...

В типизированном файле
В типизированном файле записаны название городов и их численность. Увеличить...

Найти в этом массиве минимальный элемент N и максимальный элемент M
Ввести с клавиатуры массив целых чисел. Найти в этом массиве минимальный...

Найти минимальный элемент главной диагонали матрицы и номер строки, в которой этот элемент располагается
Дана целочисленная квадратная матрица порядка 4, все элементы которой различны....

Запрос в типизированном файле
При написании запроса "Нужно выводить максимальную и минимальную длительность...

1
deathNC
1892 / 1005 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
21.06.2011, 07:29 2
Всё правильно, low(mas) и выведет 0 - это же индекс первого элемента!
А вот интересно узнать, а что ты подразумеваешь под "минимальный элемен"?
Я так понял по значению:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  fl: File of Integer;
  Count, min, max, buf: Integer;
begin
  min := High(Integer);
  max := Low(Integer)
  Count := 0;
  assignfile(fl, Edit1.Text);
  Reset(fl);
  While not EOF(fl) do
    begin
      inc(i);
      Read(fl, buf);
      If buf < min then
        min := buf;
      If buf > max then
        max := buf;
    end;
  Memo1.Clear;
  Memo1.Lines.Add('Минимум = ' + IntToStr(min)) ;
  Memo1.Lines.Add('Максимум = ' + IntToStr(max)) ;
  Memo1.Lines.Add('Количество = ' + IntToStr(Count)) ;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2011, 07:29

Поиск в типизированном файле
помогите пожалуйста, у меня есть типизированный файл, как мне осуществить...

Поиск по дате в типизированном файле
В запросе нужно выводить сумму платежей конкретному получателю на заданную...

Поиск записи в типизированном файле
Задание: В типизированном файле первую запись о выбранном существе с именем на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru