Текстовые файлы, Совершенно не понятно... Опции

[Clerick]

Дали новую тему, текстовые файлы. Давали студенты и никто из группы ничего не понял...
А задачи нужно сдать завтра. Помогите хоть с какими-нибудь двумя!!!

1. Дан текстовый файл, содержащий целые числа. Найти
• Арифметическое среднее чисел в файле;
• Номер максимального элемента в файле; (решена)

2. Дан текстовый файл, содержащий строки. Найти самые короткие строки. (решена)

3. Даны два текстовых файла. Записать в третий только те строки, которые есть и в первом и во втором файлах.

4. Даны два файла А и В(тип элементов одинаковый). Поменять местами содержимое этих файлов.
Использовать процедуру Rename не разрешается.

Заранее спасибо!!!

Сообщение отредактировано: Clerick - 28.03.2006 13:23

[мисс_граффити]

"найти самые короткие строки" - это вывести их номера или их сами?

Сообщение отредактировано: мисс_граффити - 25.03.2006 19:02

[Clerick]

вывести их номера или их сами

Номера!

to Оззя

uses
 crt;
var 
  f:text;
  j, i, n, c, min:integer;
  s:string;
begin
   assign (f, 'text.txt');
   reset (f);
   Readln (f,s);
   min:=length(s);
      while not eof(f) do
 	 begin
 	    readln(f,s);
	    n:=length(s);
	    if n<min then
	      min:=n;
     end;
   close(f);
   Writeln (min);
   readln;
end.

Выводит 4. text.txt:

6 5 4 5 6 4 4 5 6
2 3 6 7 7 8
3 4 4 1 3
4 4 2 3 3 3 3 3
3 1

Где опять лопухнулся?

Сообщение отредактировано: volvo - 2.11.2006 12:50