merged document (820599), страница 3
Текст из файла (страница 3)
Со временем в язык Паскальбыло введено понятие текстовых файлов и появилась возможность работать с ними, нопринцип чтения данных из файла и запись в файл остались прежними. Необходимымусловием правильности считывания данных из текстового файла является соответствиесчитываемых значений типу буферных переменных, которым эти значения будутприсвоены.
Универсальными буферными переменными являются переменные типаChar, String, т.к. строки текстового файла представляют собой символьныепоследовательности. Если буферной переменной является переменная типа String , тодля считывания используется процедура Readln()и информация считываетсяпострочно. В некоторых задачах в качестве буферной переменной используетсясимвольная переменная. В этом случае считывание ведется посимвольно процедуройRead(). Определение окончания строки файла для перехода на следующуюиспользуются функции EOLN(<ф.п.>), SeekEOLN(<ф.п.>).
Но если считываютсячисловые данные, то их выгоднее считывать в переменные соответствующих типов, т.е.вещественные числа в переменные типа Real, а целые числа – в переменные типаInteger.Рассмотрим пример, аналогичный примеру, который рассматривался на предыдущемзанятии (типизированные файлы), а именно: Создать файл, записав в него 20вещественных чисел. Переписать из него положительные числа в один в файл, аотрицательные числа – в другой.Прежде всего создадим исходный файл. Не надо его создавать программным путем.Никаких Createfile и ViewFile.
Идем в Лазарусе в Меню -> Файл-> Создать -> Текст -> ОК.В появившемся окне набираете в соответствии с условиями нужные данные и дляпростоты сохраняете в ту же папку, где находится или будет находиться создаваемоеприложение. Имя этого файла должно фигурировать при обработке в процедуреAssignFile().
Из сказанного становится ясно, что нет необходимости создаватьпроцедуры просмотра текстового файла, т.к. его содержимое всегда можно увидеть спомощью текстового редактора в том же Лазарусе.program project1;Procedure Resultfile(fname,fplus,fminus:string);Var f,p,m: Textfile;X:real;BeginAssignFile(f,fname);Reset(f);AssignFile(p,fplus);Rewrite(p);AssignFile(m,fminus);Rewrite(m);While Not SeekEOF(f) DoBeginRead(f,x);If x<0 Then Write(m,x:5:0)Else Write(p,x:4:0);End;CloseFile(f); CloseFile(p); CloseFile(m);End;Var fn,fp,fm:string;beginfn:='fn.txt'; fp:='fp.txt'; fm:='fm.txt';Resultfile(fn,fp,fm);end.Пусть в исходном файле информация набрана вами в следующем виде:25 87 -45 3 -72 -34 65 10После выполнения программы можно открыть в том же Лазарусе полученные файлыfp.txt и fm.txt , в которых данные будут представлены в виде:25 873 65 10 и -45 -72 -34 соответственно.
Следует обратить внимание наследующие факты: В заголовке цикла по считыванию использовалась функцияSeekEOF(f), а не EOF(f), т.к. последняя не всегда корректно работает при считываниичисловой информации. Для считывания использовалась процедура Read(), т.к. числа вфайле набраны в строку. Если бы они были набраны по одному числу в строке, то можнобыло использовать и Readln().
При записи в файл чисел обязательно выполнятьформатирование. Рассмотренный пример показывает, что считывание из файла и запись вфайл производятся по тем же правилам, которые предъявляются к вводу с клавиатуры ивыводу на экран. В принципе можно было считать информацию из исходного файла встроку (в буферную переменную типа String) , но в этом случае пришлось бы изстроки выделять отдельные числа, проверять есть ли перед ними знак «-« и т.д. Исходныйфайл содержал только одну строку чисел.
Если будет несколько строк, код процедуры непоменяется.Пример 2. В текстовом файле задана информация, которая может быть интерпретированакак набор записей, полями которых являются фамилия, имя, отчество и год рождения.Записать в новый файл набор строк, содержащих фамилию, инициалы и возраст.Обратите внимание на условия задачи. В них не утверждается , что в файле хранятсязаписи, т.е. данные комбинированного типа, а говорится, что данные могут бытьинтерпретированы как записи. По сути ситуация такая же, что и в предыдущем примере.program project1;TypePerson = Recordsurname : String ;name : String ;patronym : String;year : integer;End;Procedure ResFile(names, namer:String);Varf1,f2 : Textfile;p : Person;inname : String [25];age : integer; s:String;BeginAssign (f1,names);Assign (f2,namer);Reset (f1); ReWrite (f2);While Not SeekEof (f1) DoWith p DobeginReadln (f1,surname);Readln (f1,name);Readln (f1,patronym);Readln (f1,year);age := 2020 - year;Str(age:3,s);inname := surname+' '+name[1]+'.'+patronym[1]+'.' + s;Writeln (f2,inname);end;Closefile(f1); Closefile (f2);end;varfs,fr:String;beginfs:='fs.txt'; fr:='fr.txt';ResFile(fs,fr);end.Пример 3.
В текстовом файле задан набор строк, содержащих по два вещественныхчисла, разделенных пробелом. Рассматривая эти числа как координаты точки наплоскости, определить наибольшее расстояние между двумя точками из числа заданных.В массив данные не считывать.program project1;Procedure Rasst (nf:string;xn,yn:real;var rt:real;vark:integer);Var x,y,r:real; i:integer; f:textfile;beginAssignfile (f,nf);Reset(f); i:=0;While not Eof(f) Dobeginreadln(f,x,y); i:=i+1;If i>k ThenbeginWriteln ('',x:3:0,y:3:0);r:=Sqrt(sqr(x-xn)+sqr(y-yn));If (r>rt) Then rt:=r;end;end;Closefile(f);end;Varx,y, rmax,r:Real;k:integer; nf:string;f:textfile;beginnf:= 'file1.txt';Assignfile (f,nf);reset(f);rmax:=0; k:=0;While not Eof(f) Dobeginreadln(f,x,y); k:=k+1;Writeln ('',x:3:0,y:3:0);Rasst(nf,x,y,r,k);Writeln ('',r:5:0);If(r>rmax) Then rmax:=r;end;Closefile(f);Writeln(rmax:5:1);readln;end.Подобная задача нами выполнялась, но с использованием массивов.
Искомое расстояниенаходилось в результате выполнения вложенного цикла, примерно такого видаfor k:=1 to n-1 dofor i:=k+1 to n doв котором вычислялись расстояния между k - ой и - ой точками. При очередномвыполнении внешнего цикла вычислялись расстояния от k -ой точки до всех точек,координаты которых вводились позже ее. Вот на этом основано решение данной задачи.
Впроцедуре Rasst ()определяется наибольшее расстояние от k - ой точки, координатыкоторой до точек, координаты которых располагаются в файле ниже, т.е. реализуетсяалгоритм, аналогичный внутреннему циклу. В основной программе фиксируется та точка,от которой в процедуре Rasst ()будут находиться расстояния и из всех максимальныхрасстояний будет запоминаться самое максимальное.Пример 4. В двух текстовых файлах заданы списки фамилий (в каждой строкеодна фамилия). Списки упорядочены по алфавиту. Записать эти фамилиив 3-ий файл, сохранив упорядоченность.program project1;Procedure SortTwoFile(nf1,nf2,nf3:string);Varf1,f2,f3:textfile;s1,s2:string;beginAssignfile(f1,nf1); Reset(f1);Assignfile(f2,nf2); Reset(f2);Assignfile(f3,nf3); Rewrite(f3);Readln(f1,s1); Readln(f2,s2);While not Eof(f1) And Not Eof(f2) DobeginIf s1<s2 ThenbeginWriteln(f3,s1);Readln (f1,s1);endElsebeginWriteln(f3,s2);Readln (f2,s2);end;end;If Eof(f1) Thenbeginwriteln(f3,s2);While Not Eof(f2) DobeginReadln(f2,s2);Writeln(f3,s2);endendElsebeginwriteln(f3,s1);While Not Eof(f1) DobeginReadln(f1,s1);Writeln(f3,s1);end;end;Closefile(f1);Closefile(f2); Closefile(f3);end;Varnf1,nf2,nf3:string;beginnf1:='file1.txt';nf2:='file2.txt';SortTwoFile(nf1,nf2,nf3);end.nf3:='file3.txt';Пример 5.
В текстовом файле задана прямоугольная таблица чисел. Считать ее в матрицувещественного типаprogram project1;TypeAr=array[1..5,1..10]of real;Procedure Input (namef:string;var a:Ar;var n,m:integer);var f:textfile;beginAssignfile(f,namef);Reset(f);n:=0;While Not SeekEof(f) Dobeginm:=0; n:=n+1;While Not SeekEoLn(f) dobeginm:=m+1;Read(f,a[n,m]);end;Readln(f);endend;Procedure Output (a:Ar;n,m:integer);var i,j:integer;beginfor i:=1 To n Dobeginfor j:=1 To m DoWrite(a[i,j]:5:0);Writeln;end;end;var nf:string;a:Ar; n,m:integer;beginnf:='text.txt';Input(nf,a,n,m);Writeln ('Считанная из текстового файла матрица');Output(a,n,m);Readln;end.Пример 6.
В текстовом файле задан упорядоченный по алфавиту список фамилий (встроке - одна фамилия). Не нарушая упорядоченности данного списка вставить в негонесколько новых фамилий, заданных в другом текстовом файле. Массивы неиспользовать.program project1;Procedure InsToFile (Var nf:string;sins:string);Varf,f1:Textfile;s:string;i:integer; bol:boolean;nf_rab:string;beginnf_rab:='file_rab.txt';assignfile(f,nf); assignfile(f1,nf_rab);reset(f);Rewrite(f1);i:=0; bol:=false;While not Eof(f) DobeginReadln(f,s);If (sins<=s) And not bol ThenbeginWriteln (f1,sins);bol:=true;end;Writeln(f1,s);end;If (sins>s) Then Writeln (f1,sins);Closefile(f); Closefile(f1);Erase(f);Rename (f1,nf);end;Varnfsort,nf1:string; s:string;fs,f1:textfile;beginnfsort:='file_s.txt'; nf1:='file2.txt';assignfile(f1,nf1);reset(f1);While not Eof(f1) DobeginReadln (f1,s);InsToFile (nfsort,s)end;end.В рамках представленного примера демонстрируется еще один типовой прием обработкиинформации в текстовом файле без полного считывания его содержимого в массив.
Сутьэтого приема заключается в привлечении дополнительного рабочего файла, в которыйзаписывается считанная из исходного файла и измененная информация, а затем исходныйфайл удаляется, а рабочий файл переименовывается, получая имя исходного файла.Задание на самостоятельную работу.1. Переписать текст из одного файла в другой, отформатировав его так, чтобы в каждойстроке нового файла содержалось n символов, если в ней отсутствует точка, либо оназаканчивалась точкой. Например, исходный файл содержит строкиххххххххххххх.хххххххххх.хххххххххххххххх.хххххххххх.ххххххххх.хххххххххххххххххххххх.Задаете n=6 и в новом файле текст должен выглядеть следующим образомххххххххххххх.хххххххххх.хххххххххххххххх.и т.д.2.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
