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

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

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

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

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

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

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

FAQ : Файлы + поиск по форуму, все решалось неоднократно.

Ждешь готового решения ? Делай сам, будут ошибки мы исправим.

Сообщение отредактировано: klem4 - 23.03.2006 18:52

Спасибо!!!



Проблема в том, что с данной темой ни разу не сталкивался и в принципе не знаю что делать...

Но есть ссылка!!! Почитаем, подумаем, поделаем...



Почитали, подумали и ни к чему не пришли...
Можно хотя бы одну решить, в качестве примера?(понимаю, что наглею, но желательно бы что-нибудь из первых двух)

Сообщение отредактировано: Clerick - 23.03.2006 20:14

Если только в качестве примера

Держи первое, дабьше делай сам.

uses crt;

var

   f : text;

   count, nmax, n : integer;

   sr : single;

begin

   clrscr;

   assign(f, 'c:\first.txt'); // связываемся с файлом

   reset(f); // открываем файл для чтение (он должен быть уже создан)

   sr := 0;
   count := 0;
   nmax := 0;

   while not(eof(f)) do begin // пока не достигнут конец файла
      readln(f, n); // читаем число
      inc(count); // увеличиваем счетчик
      sr := sr + n; // увеличиваем сумму
   end;

   close(f); // завершаем раюоту с файлом

   if count <> 0 then begin // считаем среднее арифметическое
      sr := sr / count;
      writeln('Sr = ', sr : 3 : 3);
      writeln('Count = ', count);
   end else writeln('Oops, count = 0'); // файл был пуст

end.

firts.txt :

1
2
7
0
5

Sr = 3.0
count = 5;

Опечатка? текстовый?

Хм .. а я даже и не заметил Видимо да ...

Сообщение отредактировано: klem4 - 24.03.2006 9:19

Спасибо!!! И извиняюсь за ошибку!!!

Наткнулся на другую задачу и застрял... Дана матрица m на n заполненная random от а до b. Нужно записать ее в файл. Составил прогу:

ses crt;
const n=5;
m=5;
var f:text;
j, i, a, b:integer;
g:array [1..n,1..m] of integer;
begin
Read(a,b);
randomize;
for i:=1 to n do begin
    for j:=1 to m do begin
    g[i,j]:=random (b-a)+a;
    Write (g[i,j]:3);
    end;
    Writeln;
    end;
assign (f, 'text.txt');
for i:=1 to n do begin
    for j:=1 to m do begin rewrite (f);
     Writeln (f, g[i,j]);
    end;
    end;
    Readln;
    end.

А она в файл не записывает... В чем ошибка?

А если я в одной строке два числа или больше ставлю?

Ты внутри цикла каждый раз уничтожаешь файл и создаешь его заново.
Вынеси за цикл:

rewrite (f);
for i:=1 to n do
  for j:=1 to m do
     Writeln (f, g[i,j]);

Тогда усложнится процедура чтения и обработки файла. Зачем нужны лишние хлопоты?

Вынес и все равно файл пустой остается...

Так интересно же как это будет выглядеть!!! А с другой стороны, допустим, файл такой дали. Тогда что делать?

Сообщение отредактировано: Clerick - 24.03.2006 16:00

const
  n=5;
  m=5;
var
  f:text;
  j, i, a, b:integer;
  g:array [1..n,1..m] of integer;
begin
  Read(a,b);
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      g[i,j]:=random (b-a)+a;
  assign (f, 'c:\bp\text.txt');
  rewrite (f);
  for i:=1 to n do
    for j:=1 to m do
      Writeln (f, g[i,j]);
  close(f);
  readln;
end.

О теперь работает!

Close (f); забыл поставить...




Только вопрос на ту же тему как записать в файл именно "матрицу"?

Например:
5 3 6 7 5
4 4 7 8 1
7 2 9 7 4
4 7 8 4 5

Сообщение отредактировано: Clerick - 24.03.2006 16:39

uses
  crt;
const
  n=5;
  m=5;
var
  f:text;
  j, i, a, b:integer;
  g:array [1..n,1..m] of integer;
begin
  Read(a,b);
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      g[i,j]:=random (b-a)+a;
  assign (f, 'c:\bp\text.txt');
  rewrite (f);
  for i:=1 to n do
  begin
    for j:=1 to m do
      Write (f, g[i,j],' ');
    writeln(f);
  end;
  close(f);
  readln;    
end.

Теперь все одну строчку...

Все нормально отрабатывает

Все в норме!!! Пропустил один оператор...

Возник еще вопрос! Как имея файл со некоторым количеством строк, определить сколько их?

while not eof(f) do begin readln(f,s); inc(result) end;

результат (количество строк) после выполнения кода в переменной result (int).

Если я прав(приближенно), то след. прога должна выводить содержимое файла

uses crt;
var f:text;
j, i, max, c:integer;
s:string;
begin
     assign (f, 'text.txt');
     reset (f);
         while not eof(f) do
           begin
            Readln(f,i);
            inc(j);
           end;
  for i:=1 to j do begin
    while not eoln(f) do
     begin
     readln (f,s);
     write (s:2);
     Writeln;
    end; end;
  close(f);
    end.

А она не выводит. В чем ошибка?

uses
 crt;
var 
  f:text;
  j, i, max, c:integer;
  s:string;
begin
   assign (f, 'text.txt');
   reset (f);
      while not eof(f) do
        begin
            Readln(f,s);
            Writeln(s);
             inc(j);
         end;
   close(f);
end.

Спасибо!!!

Появился вопр. к з.2 можно её решить след. образ. Сосчитать кол-во символов в каждой строке, загнать в массив, а потом сравнить и выявить min? Или можно проще?