Pascal. Работа с файлами.Символы не считает.

[Kamelok]

Подскажите почему программа просто зависает при подсчете кол-ва символов (можно ли сделать чтоб не определенное кол-во пробелов тоже считал) и из-за этого не записывает в 3 файл.

program Laba_11;

uses crt;

type
  FByte = file of byte;

procedure Copying(var Fl1: text; var Fl2: FByte);
var
  Code: byte;
  CH: char;
begin
  Assign(Fl1, 'file1.txt');
  Reset(Fl1);
  Assign(Fl2, 'file2.txt');
  Rewrite(Fl2);
  while (not eof(Fl1)) do 
  begin
    Read(Fl1, CH);
    Code := ord(CH);
    Write(Fl2, Code);
  end;
  close(Fl1);
end;

procedure Quantity(var Fl: Text; var n: integer);
var
  Buf: integer;
begin
  n := 0;
  Reset(Fl);
  while (not eof(Fl)) do 
  begin
    ReadLn(F1, Buf);
    n := n + Buf;
  end;
end;


procedure Entry(n: integer; var F: text);
begin
  Assign(F, 'file3.txt');
  Reset(F);
  Rewrite(F);
  Write(F, n);
  close(F);
end;

function Comparison(var F: text; var FF: text): boolean;
var
  cd1, cd2: string;
begin
  Comparison := true;
  reset(F);
  reset(FF);
  while (not eof(F)) or (not eof(FF)) do 
  begin
    readln(F, cd1);
    readln(FF, cd2);
    writeln;
    if (cd1 <> cd2) or (cd1 = cd2) then begin
      Comparison := false;
      writeln('Коды первого и третьего файлов не одинаковы!');
      break
    end
    else
      writeln('Коды первого и третьего файлов одинаковы!');
    break
  end;
  close(F);
  close(FF);
end;

var
  number: integer;
  F2: FByte;
  F1, F3: text;

begin
  clrscr;
  Writeln('Данная программа находит количество символов в тексте, записывает ');
  Writeln('результат в третий файл и сравнивает программный код ');
  Writeln('первого и третьего файлов.');
  Writeln;
  Copying(F1, F2);
  Quantity(F1, number);
  writeln;
  Entry(number, F3);
  writeln('Количество символов в тексте  = ', number);
  Comparison(F1, F3);
  Readln;
end.

[Serge_Bliznykov]

какое задание? почему первый файл копируется во второй?

а это что за ужас, летящий на крыльях ночи?!!

Сообщение от Kamelok

n := n + Buf;

Для чего это делается?!


Сразу укажу на ошибку:

Сообщение от Kamelok

procedure Entry(n: integer; var F: text);
begin
  Assign(F, 'file3.txt');
  Reset(F);
  Rewrite(F);
  Write(F, n);
  close(F);
end;

Уберите Reset(f);

[Kamelok]

Сообщение от Serge_Bliznykov

какое задание? почему первый файл копируется во второй?

Задание: Подсчитать количество символов в заданном тексте.
Требуется написать программу, считывающую данные из текстового файла; затем данные записываются в файл прямого доступа (компоненты файла являются целого или вещественного типа (если входные данные символы, то сначала нужно перевести их в коды, а потом записать в файл)); обработать данные (использовать прямой доступ к компонентам файла) и записать результат в текстовый файл

[Serge_Bliznykov]

извините, ничем не могу помочь, я ничегошеньки не понял!
при чём здесь

Сообщение от Kamelok

(компоненты файла являются целого или вещественного типа

как это связано с

Сообщение от Kamelok

Задание: Подсчитать количество символов в заданном тексте.

открыли файл, посчитали количество символов (кстати, каких именно?)
закрыли файл. всё, задача решена?

[Kamelok]

Сообщение от Serge_Bliznykov

извините, ничем не могу помочь, я ничегошеньки не понял!

Я сделал почти всё(программа считает), только я не знаю куда добавить чтобы после работы со вторым файлом его удалить.
И как то странно переводит слова в код вот этот кусок:

  while not eof(Fl1) do {Пока не достигнут конец файла} 
  begin
    read(Fl1, CH); {Читаем один символ из File1} 
    Code := ord(CH); {Получаем его код} 
    write(Fl2, Code); {Записываем код в File2} 
  end;

[evg_m]

И как то странно переводит слова в код

а какая задача-то здесь должна быть ?

cod:=ord(ch);//код ЧИСЛО!!! 
s:=format('%3x', [cod] ); //СИМВОЛЬНАЯ(строковое/string !!!) запись числа 
write(f12, s); // или нечто аналогичное для записи НЕСКОЛЬКИХ символов

[Mishka_Soft]

Привет!
Посмотрел первую процедуру, даже странно что оно в обще работает (не обижайся):

procedure Copying(var Fl1: text; var Fl2: FByte);
var
  Code: byte;
  CH: char;
begin
  Assign(Fl1, 'file1.txt');
  Reset(Fl1);
  Assign(Fl2, 'file2.txt');   // Fl2 - у тебя байтовый массив, а должно быть text
  Rewrite(Fl2);
  while (not eof(Fl1)) do 
  begin
    Read(Fl1, CH);
    Code := ord(CH);
    Write(Fl2, Code);
  end;
  close(Fl1);  
// Где закрытие файла Fl2? (если не закрывать, можно все данные потерять.
end;