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

[Clerick]

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

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

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

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

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

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

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

[klem4]

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

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

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

[Clerick]

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

Спасибо!!!

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

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

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



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

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

[Ozzя]

Можно хотя бы одну решить, в качестве примера?

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

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

Код

const
  n = 255;
var
  f : file of integer;
  i : integer;
  x : integer;
  sum:real;
begin
  Randomize;
  { Заполнение файла }
  Assign(F, 'integer.dat');
  Rewrite(F);
  for i:=1 to n do
    begin
      x := Random (MaxInt);
      write(f,x);
    end;
  Close(F);
  { Обработка файла }
  Reset(F);
  sum:=0;
  i:=0;
  while not eof(f) do
    begin
      read(f,x);
      sum:=sum+x;
      i:=i+1;
    end;
  sum:=sum/i;
  Close(F);
  WriteLn('Number of elements = ',i);
  WriteLn('Sum of elements = ',sum);
end.

[klem4]

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

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;

[Ozzя]

1. Дан тестовый файл,

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

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

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

[Clerick]

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

Наткнулся на другую задачу и застрял... Дана матрица 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.

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

[Clerick]

firts.txt :

1
2
7
0
5

Sr = 3.0
count = 5;

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

[Ozzя]

for j:=1 to m do begin
rewrite (f);

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

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

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

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

[Clerick]

Вынеси за цикл:

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

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

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

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

[Ozzя]

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.

[Clerick]

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

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 20:39

[Ozzя]

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.

[Clerick]

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

[Ozzя]

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

[Clerick]

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

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

[Altair]

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

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

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

[Clerick]

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

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.

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

[Ozzя]

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.

[Clerick]

Спасибо!!!

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