Написать программу с текстовым файлом

@koesmen · Регистрация: 03.12.2018

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

Дано целое число N и текстовый файл. Создать строковый файл, содержащий все слова длины N из исходного файла (знаки препинания, пробел в начале и в конце слов, не учитывать). Если исходный файл не содержит слов длины N, оставить результирующий файл пустым.

@ZX Spectrum-128 · 04.12.2018, 08:39

Pascal

var
  f1, f2: textfile;
  s, a: string;
  n, i, k: integer ;
 
begin
  write('Введите число n: ');
  readln(n);
  assign(f1, 'in.txt');
  reset(f1);
  assignfile(f2, 'out.txt');
  rewrite(f2);
  while not eof(f1) do
  begin
    Readln(f1, s);
    k := 1;
    for i := 1 to length(s) do
      if s[i] in [' ', ',', ';', ':', '"', '.'] then
      begin
        a := Copy(s, k, i - k);
        if length(a) = n then 
        begin
          writeln(f2, a + ' ');
          //writeln(a + ' ');
        end;
        k := i + 1;
      end;
  end;
  Close(f1);
  Close(f2);
end.

@koesmen · 06.12.2018, 19:42 **[ТС]**

Есть проблема, если я ввожу 3 слова подходящих, он выводит только 2, так хоть вводи 50 слов, а выведи 49, в чем может быть проблема?

@ZX Spectrum-128 · 07.12.2018, 10:05

koesmen, файл свой приложите.

@koesmen 0 / 0 / 0 Регистрация: 03.12.2018 Сообщений: 12
		1
	Написать программу с текстовым файлом 04.12.2018, 06:35. Показов 577. Ответов 3 Метки нет (Все метки) Дано целое число N и текстовый файл. Создать строковый файл, содержащий все слова длины N из исходного файла (знаки препинания, пробел в начале и в конце слов, не учитывать). Если исходный файл не содержит слов длины N, оставить результирующий файл пустым. 0

@koesmen 0 / 0 / 0 Регистрация: 03.12.2018 Сообщений: 12
	06.12.2018, 19:42 [ТС]	3
	Есть проблема, если я ввожу 3 слова подходящих, он выводит только 2, так хоть вводи 50 слов, а выведи 49, в чем может быть проблема? 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	07.12.2018, 10:05	4
	koesmen, файл свой приложите. 0

Опции темы