VPF::Поиск элементов в файле - Форум программистов

ZloY_ZusuL

Дата 5.11.2008, 12:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день! Возник вопрос, как найти средний элемент в текстовой файле и вывести его на экран, подозревая для этого нужно использовать Функцию FilePos. Также нужно выести первый и последний элемент файла.

Код


Program lab_3;
 Uses Crt;
 var
   f: text;
   s: string;
   const
   Sum: LongInt=0;
begin
ClrScr;
 Write('FileName: ');
 Readln(s);
 assign(f,s);
 reset(f);
 while not EOF(f) do
  begin
  ReadLn(f,s);
  inc(Sum, Length(s));
 end;
 Close(f);
  if odd(sum) then
  begin

end.

volvo877

Дата 5.11.2008, 12:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(ZloY_ZusuL @ 5.11.2008, 11:29

)

как найти средний элемент в текстовой файле

Что такое "средний элемент", можно узнать? Вот тебе файл:

Цитата

3
1
2
6

Что здесь будет средним элементом, и почему?

ZloY_ZusuL

Дата 5.11.2008, 13:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(volvo877 @ 5.11.2008, 12:37

)

Что такое "средний элемент", можно узнать? Вот тебе файл:

Эм... уточнение. Если колличество элементов нечётное тогда средний элемент, если чётное - то первый и последниц . то есть если строка
а б в г д, то выводим в, если абвг, а и г

Это сообщение отредактировал(а) ZloY_ZusuL - 5.11.2008, 13:20

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