В текстовом файле присутствуют строки разной длины, содержащие только заглавные

Question

Информатика: В текстовом файле присутствуют строки разной длины, содержащие только заглавные буквы латинского алфавита. Общий размер файла не превышает 1 МБ. Необходимо определить количество строк, в которых

Сквозь_Огонь_И_Воду · Accepted Answer

Для решения данной задачи на языке программирования Pascal мы можем использовать следующий алгоритм:

1. Открыть текстовый файл для чтения.
2. Создать переменную, в которой будем хранить количество строк, удовлетворяющих условию задачи: `count := 0`.
3. Прочитать строки из текстового файла в цикле до тех пор, пока не достигнем конца файла.
4. Для каждой прочитанной строки выполнить следующие действия:
- Создать две переменные `countA` и `countE` и инициализировать их нулем.
- Пройтись по каждому символу в строке.
- Если символ равен букве "A", увеличить значение переменной `countA` на единицу.
- Если символ равен букве "E", увеличить значение переменной `countE` на единицу.
- После обхода всех символов в строке проверить условие `countA > countE`.
- Если условие выполняется, увеличить значение переменной `count` на единицу.
5. После окончания цикла закрыть текстовый файл.
6. Вывести значение переменной `count` на экран.

Вот пример реализации данного алгоритма на языке Pascal:

pascal

var

  inputFile: Text;

  line: string;

  count, countA, countE: integer;

begin

  assign(inputFile, "file.txt");

  reset(inputFile);

  

  count := 0;

  while not eof(inputFile) do

  begin

    readln(inputFile, line);

    countA := 0;

    countE := 0;

    for ch in line do

    begin

      if ch = "A" then

        Inc(countA)

      else if ch = "E" then

        Inc(countE);

    end;

    

    if countA > countE then

      Inc(count);

  end;

  

  close(inputFile);

  

  writeln("Количество строк, в которых количество вхождений буквы A больше, чем количество вхождений буквы E: ", count);

end.

Не забудьте заменить `"file.txt"` на путь к вашему текстовому файлу. После запуска программы она выведет количество строк, в которых количество вхождений буквы A больше, чем количество вхождений буквы E.

В текстовом файле присутствуют строки разной длины, содержащие только заглавные буквы латинского алфавита. Общий размер

Сквозь_Огонь_И_Воду

О проекте

Предметы

Задать вопрос

Привет!