Как найти только числа в файле паскаль

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

Работа с файлами в паскале

Виды файлов в зависимости от их описания и режимом работы

1. текстовые (тип text) файлы со строками неопределенной длины;
2. файлы с типом записей (двоичные или типизированные (file of) );
3. файлы без типа для передачи данных блоками записей нетипизированные (file).

Описание файловых переменных:

var
   f1: file of char; {типизированный файл}
   f2: file of integer; {типизированный файл}
   f3: file; {нетипизированный файл}
   f: text; {текстовый файл}

Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN:

assign(myfile,'c:text.txt');

где myfile — имя переменной (объявленной ранее в области var), ассоциированной с файлом
c:text.txt — путь к реальному файлу
Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

begin
 Assign(input,'24.txt');
 var s := ReadString;
 ...
end.

begin
 Assign(input,'26.txt');
 var N := ReadInteger;
 var a := ReadArrInteger(N);
 ...
end.

Текстовые файлы в паскале: процедуры работы

Текстовый файл в Паскале — это совокупность строк произвольной длины, которые разделены между собой метками конца строки, а весь файл заканчивается меткой конца файла.

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

Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

Открытие файла (классический Pascal)

Допустим, мы в программе описали переменную для работы с текстовым файлом:

Рассмотрим дальнейшую последовательность работы с ним, и рассмотрим процедуры, необходимые для работы с текстовым файлом в Паскале:

процедура открытия существующего файла для чтения при последовательном доступе:

процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

процедура добавления в конец:

• При открытии курсор устанавливается в начало файла.

Чтение из файла (классический Pascal)

Read (f, список переменных);
ReadLn (f, список переменных);

Отличие ReadLn от Read в том, что при использовании readln после прочтения данных пропускаются все оставшиеся символы в данной строке, включая метку конца строки.

• чтение осуществляется с той позиции, где в данный момент стоит курсор;
• после чтения курсор сдвигается к первому непрочитанному символу.

close ( f ); 
reset ( f ); { начинаем с начала }

Запись в текстовый файл (классический Pascal)

Write (f, список переменных);
WriteLn (f, список переменных);

где f — файловая переменная, а второй параметр – выводимые из программы и вводимые в файл данные (в виде значений переменных или просто данные)

Процедуры работы с файлом и закрытие файла

Нахождение конца файла:

Логическая функция, возвращающая True, если достигнут конец файла.

Нахождение конца строки:

Логическая функция, возвращающая True, если достигнут конец строки.

Удалить файл в Паскале

Переименование файла в Паскале

rename(переменная_файла,'новое имя файла');

Закрытие:

Close (f);  {закрытие файла}

Рассмотрим пример работы с файлами в паскале:

Пример 1: В файле text.txt записаны строки. Вывести первую и третью из них на экран.
(предварительно создать text.txt с тремя строками)

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13

var
   filetext: text;
   a,b,c:string;
begin
assign(filetext,'c:text.txt');
reset(filetext);
readln(filetext,a);
readln(filetext,b);
readln(filetext,c);
close(filetext);
writeln(a);
writeln(c);
end.

1
2
3
4
5
6
7

begin
  Assign(input, '1.txt');
  var a := ReadString;
  var b := ReadString;
  var c := ReadString;
  print(a, c)
end.

Пример 2: Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

var
  F: Text;
  N,K:integer;
  Name:String;
  C:Char;
begin
 Assign(F,'c:text.txt');
 Reset(F);
 N:=0;
 K:=0;
 While not eof(F) do
  begin
   inc(N);
   While not eoln(f) do
    begin
     inc(K);
     Read(F,C);
    end;
   Readln(F);
  end;
 Close(F);
 Writeln(N,' ',K);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

begin
  Assign(input, '1.txt');
  var n, k: integer;
  while not eof(input) do
  begin
    inc(n);
    while not eoln(input) do
    begin
      inc(k);
      var a := ReadChar;
    end;
    var b := ReadString;
  end;
  print($'строк {n}, символов {k}')
end.

pascal file text1. В цикле записать в файл числа от 1 до 10 (каждое — в своей строке), а затем их считать и отобразить на экране.
Дополните код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

var
   filetext: text;
   a:string;
   i:integer;
begin
assign(filetext,'c:text.txt');
rewrite(filetext);
for i:=1 to 10 do
    ...
reset(filetext);
for i:=1 to 10 do begin
    ...
    ...
end;
close(filetext);
end.

pascal file text2. Даны целые положительные числа N и K. Создать текстовый файл и записать в него N строк, каждая из которых состоит из K символов «*» (звездочка).

pascal file text3. Дана строка S и текстовый файл. Добавить строку S в конец файла.

Показать решение:

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

var
  F_in,F_out: Text;
  Name,S: String;
 
begin
 
 Write('S: ');
 Readln(S);
 Assign(F_in,'c:text.txt');
 Reset(F_in);
 Assign(F_out,'c:text1.txt');
 Rewrite(F_out);
 
 Writeln(F_out,S);
 While not eof(F_in) do
  begin
   Readln(F_in,S);
   Writeln(F_out,S);
  end;
 
 Close(F_in);
 Close(F_out);
 Erase(F_in);
 Rename(F_out,'c:text.txt');
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

begin
  var s := readstring('s: ');
  Assign(input, 'input.txt');
  Assign(output, 'output.txt');
  println(S);
  while not eof(input) do
  begin
    s := ReadString;
    println(s);
  end;
  close(input); // обязательно!
  close(output); // обязательно!
  Erase(input);
  Rename(output, 'input.txt');
end.

pascal file text4. Дано целое число K и текстовый файл. В данном файле вставить пустую строку перед строкой с номером K. Если строки с таким номером нет, то оставить файл без изменений.
Для решения задачи можно использовать дополнительный временный файл.

Пример 5: Дано целое число K и текстовый файл. Удалить из файла строку с номером K. Если строки с таким номером нет, то оставить файл без изменений.

Примерный результат:
до:

>> 2
0line 
1line 
2line 
3line 

после:

0line 
2line 
3line 

Показать решение:

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

var
  F_in,F_out: Text;
  Name,line: string;
  K,i:integer;
 
begin
 Write('K: ');
 Readln(K);
 Assign(F_in,'c:text.txt');
 Assign(F_out,'c:text1.txt');
 Reset(F_in);
 Rewrite(F_out);
 
 i:=0;
 While not eof(F_in) do
  begin
   Readln(F_in,line);
   inc(i);
   if i<>K then Writeln(F_out,line);
  end;
 
 Close(F_in);
 Close(F_out);
 Erase(F_in);
 Rename(F_out,'c:text.txt');
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

begin
  var k := readinteger('k: ');
  Assign(input, 'input.txt');
  Assign(output, 'output.txt');
  var i:=0;
  while not eof(input) do
  begin
    var s := ReadString;
    inc(i);
    if i<>k then 
      println(s);
  end;
  close(input); // обязательно!
  close(output); // обязательно!
  Erase(input);
  Rename(output, 'input.txt');
end.

Пример 6: Дан текстовый файл F1 с набором нулей и единиц. Необходимо заменить все вхождения сочетаний 101 на 000. Скорректированные записи поместить в файл F2.

* Использовать функции для работы со строками:
— Pos()
— Delete()
— Insert()

Показать решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

var 	f1,f2: text;
pole:string;
pz:integer;
begin
assign(f1,'1.txt');
assign(f2,'2.txt');
reset(f1); rewrite(f2);
while not eof(f1) do
begin
     readln(f1, pole);
     while pos('101',pole)<>0 do
     begin
          pz:=pos('101',pole);
          delete(pole,pz,3);
          insert('000',pole,pz);
     end;
     writeln(f2,pole)
end;
close(f1);
close(f2);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

begin
  Assign(input, 'input.txt');
  Assign(output, 'output.txt');
  var s:=readString;
  var s1:='';
  var ind := s.IndexOf('101');
  while ind<>-1 do
  begin
    s1+=s[:ind+1];
    s1+='000';
    delete(s,1,ind+3); // удаляем всё вместе с 101
    ind := s.IndexOf('101');
  end;
  s1+=s;
  Println(s1);
end.

Пример 7: В файле input.txt записаны числа (каждое — с новой строки), их количество не превышает 100. Необходимо отсортировать их по возрастанию и записать в файл output.txt.

Трудности:

• для сортировки необходим массив, для того чтобы одновременно работать со всеми числами;
• неизвестно общее количество чисел.

Алгоритм решения:

• объявляем массив для 100 элементов;
• открываем файл на чтение, просчитываем количество чисел, заполняя массив, сохраняем количество в N;
• сортируем N элементов массива;
• записываем результат в файл.

pascal file text6. Дан текстовый файл. Удалить из него все пустые строки.

Пример 8: Шифр Цезаря заключается в том, что каждая буква исходной строки заменяется третьей после нее буквой в алфавите, который считается написанным по кругу (все символы текста латинские и прописные).
Решить ту же задачу, в которой сдвиг будет не на 3 позиции, а на k, причем отрицательное значение является признаком сдвига влево, положительное — вправо.
Формат входных данных (файл p.in): В первой строке записано число k, не превышающее по модулю 20. Во второй строке — текст, который необходимо зашифровать. Все символы текста латинские и прописные.
Формат выходных данных (файл p.out): Выведите зашифрованный текст.
Пример:

* желательно создать файлы и записать данные в исходный файл «вручную»
* программа решена для k=3, выполните программу для любых k (не превышающих 20 по модулю)

pascal file text7. Пять делителей.
Имя входного файла: z3.in
Имя выходного файла: z3.out

Найти сумму всех чисел от 1 до n, имеющих ровно 5 делителей.
Единица и само число входят в число его делителей.
Входные данные
В единственной строке входного файла z3.in записано одно натуральное число n(1 <= n <= 1012).
Выходные данные
В единственную строку выходного файла z3.out нужно вывести одно натуральное число — найденную сумму.

Примеры:

* Олимпиадное задание (11 класс, 2016)