Question

Составить программы в Паскаль: 1. Определить количество букв «d» в первом предложении файла. 2. Создать новый файл и переписать в него текст из исходного файла, заменив каждую пару подряд идущих символов "а" (т.е. "аа") на "А". Остальные символы и их порядок не должны измениться

Answer 1

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

№1. Файл Text.txt

begin
  Writeln('Количество букв "d" равно ',
      ReadAllText('Text.txt').MatchValue('.*\.').Where(c->c='d').Count)
end.

№2. Файл Text1.txt -> Text2.txt

begin
  WriteAllText('Text2.txt',ReadAllText('Text1.txt').Replace('аа','A'))
end.

Answer 2

Программа 1: Определить количество букв «d» в первом предложении файла.

pascalCopy code
program CountDs;

var
  inputFile: TextFile;
  currentChar: Char;
  firstSentence: String;
  dCount: Integer;
  sentenceEnded: Boolean;

begin
  // Открыть файл для чтения
  AssignFile(inputFile, 'input.txt');
  Reset(inputFile);

  // Считать первое предложение
  firstSentence := '';
  sentenceEnded := False;
  while not Eof(inputFile) and not sentenceEnded do
  begin
    Read(inputFile, currentChar);
    if (currentChar = '.') or (currentChar = '?') or (currentChar = '!') then
      sentenceEnded := True
    else
      firstSentence := firstSentence + currentChar;
  end;

  // Посчитать количество букв "d" в первом предложении
  dCount := 0;
  for currentChar in firstSentence do
  begin
    if currentChar = 'd' then
      Inc(dCount);
  end;

  // Вывести результат на экран
  WriteLn('Количество букв "d" в первом предложении: ', dCount);

  // Закрыть файл
  CloseFile(inputFile);
end.

Программа 2: Создать новый файл и переписать в него текст из исходного файла, заменив каждую пару подряд идущих символов "а" на "А". Остальные символы и их порядок не должны измениться.

pascalCopy code
program ReplaceAAs;

var
  inputFile, outputFile: TextFile;
  currentChar, nextChar: Char;

begin
  // Открыть файлы для чтения и записи
  AssignFile(inputFile, 'input.txt');
  Reset(inputFile);
  AssignFile(outputFile, 'output.txt');
  Rewrite(outputFile);

  // Заменить каждую пару подряд идущих символов "а" на "А" в тексте исходного файла
  while not Eof(inputFile) do
  begin
    Read(inputFile, currentChar);
    if not Eof(inputFile) then
    begin
      Read(inputFile, nextChar);
      if (currentChar = 'a') and (nextChar = 'a') then
      begin
        Write(outputFile, 'A');
      end
      else
      begin
        Write(outputFile, currentChar);
        Seek(inputFile, FilePos(inputFile) - 1);
      end;
    end
    else
    begin
      Write(outputFile, currentChar);
    end;
  end;

  // Закрыть файлы
  CloseFile(inputFile);
  CloseFile(outputFile);
end.