Типизированный файл, тип Char, нахождение нужной строки

@MakMed · Регистрация: 01.03.2016

Студворк — интернет-сервис помощи студентам

В типизированный файл записаны символы(File of Char), программа должна искать строчку lalala, в конце программа должна вывести количесво строчек,где есть lalala, при том, если строчка такая: lalalala, то у нас две строчки lalala. Будьте добры, подскажите, как это сделать.

@JuriiMW · 14.03.2016, 08:20

Строчки можно посчитать только в текстовом файле!
В файл символов (File of Char) каждый символ — это единица файла и она не может быть разделена на строчки…
Сформулируйте вопрос корректно.

@MakMed · 14.03.2016, 11:15 **[ТС]**

Простите, я имел в виду не строчки, а последовательно стоящие символы: l и a - это отдельные символы.

@JuriiMW · 14.03.2016, 11:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
const
  fName = 'la.txt';
var
  f : File of Char;
  ch : Char;
  trigerLA : Boolean;
  countLA  : Integer;
  resultLA : Integer;
  
procedure lalala(var count : Integer);
begin
  if count - 2 > 0 then
    resultLA := resultLA + (count - 2);
  count := 0;
end;
 
begin
  resultLA := 0;
  
  Assign(f, fName);
  Reset(f);
  trigerLA := False;
  countLA  := 0;
  while Not EOF(f) do
    begin
      Read(f, ch);
 
      { собственно считаем тут }
      if ch = 'l' then
        trigerLA := True
      else if (ch = 'a') and trigerLA then
        begin
          trigerLA := False;
          Inc(CountLA);
        end
      else
        begin
          trigerLA := False;
          lalala(CountLA);
        end;
 
    end;
  if CountLA > 0 then
    lalala(CountLa);
    
  Close(f);
  
  WriteLn(resultLA);
end.

Для файла с таким содержанием:

Code
1
lalala lala lalalala llaa

получен ответ: 3.

Новые блоги и статьи Все статьи Все блоги /
Определение даты списания и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: установить период списания автоматически и запретить. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@MakMed 4 / 4 / 5 Регистрация: 01.03.2016 Сообщений: 72

	Типизированный файл, тип Char, нахождение нужной строки 14.03.2016, 00:04. Показов 1248. Ответов 3 Метки нет (Все метки) В типизированный файл записаны символы(File of Char), программа должна искать строчку lalala, в конце программа должна вывести количесво строчек,где есть lalala, при том, если строчка такая: lalalala, то у нас две строчки lalala. Будьте добры, подскажите, как это сделать. 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	14.03.2016, 08:20
	Строчки можно посчитать только в текстовом файле! В файл символов (File of Char) каждый символ — это единица файла и она не может быть разделена на строчки… Сформулируйте вопрос корректно. 0

@MakMed 4 / 4 / 5 Регистрация: 01.03.2016 Сообщений: 72
	14.03.2016, 11:15 [ТС]
	Простите, я имел в виду не строчки, а последовательно стоящие символы: l и a - это отдельные символы. 0

Типизированный файл, тип Char, нахождение нужной строки

Решение