Пусть нам необходимо сформировать текстовый файл с помощью Паскаля, а затем переписать из данного файла во второй только те строки, которые начинаются. - презентация

1 Пусть нам необходимо сформировать текстовый файл с помощью Паскаля, а затем переписать из данного файла во второй только те строки, которые начинаются с буквы «А» или «а». Пояснения: нам понадобятся две файловые переменные f1 и f2, поскольку оба файла текстовые, то тип переменных будет text. Задача разбивается на два этапа: первый – формирование первого файла; второй – чтение первого файла и формирование второго. Для завершенности решения задачи есть смысл добавить еще одну часть, которая в задаче явно не указана – вывод на экран содержимого второго файла.

2 Program primer; Var f1:text; I,n: integer; S: string; Begin {формируем файл} Assign(f1, 'file2.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске} Rewrite(f1); {открываем файл для записи} Readln(n); {определим количество вводимых строк} for i:=1 to n do begin readln(s); {вводим с клавиатуры строки} writeln(f1,s); {записываем последовательно строки в файл} end; close(f1); {заканчиваем работу с файлом} end. Программа, создающая текстовый файл из нескольких строк

3 Program primer; Var f1:text; I,n: integer; S: string; Begin Assign(f1, 'file2.txt'); {устанавливаем связь файловой переменной с физическим файлом} Reset(f1); {открываем файл для чтения} While not eof(f1) do Begin Readln(f1,s); {считываем очередную строку из файла} If (s[1]='A') or (s[1]='a') then Writeln(s); {записываем в файл строки, удовлетворяющие условию} End; Close(f1); {заканчиваем работу с файлом} end. Программа, выполняющая чтение текстового файла и выводящая на экран строки, начинающиеся с буквы «а».

4 Program primer; Var f1:text; I,n: integer; S: string; Begin {формируем первый файл} Assign(f1, file1.txt); {устанавливаем связь файловой переменной с физическим файлом на диске} Rewrite(f1); {открываем файл для записи} Readln(n) {определим количество вводимых строк} for i:=1 to n do begin readln(s); {вводим с клавиатуры строки} writeln(f1,s); {записываем последовательно строки в файл} end; close(f1); {заканчиваем работу с первым файлом, теперь на диске существует файл с именем file1.txt, содержащий введенные нами строки.} Программа, формирует текстовый файл а затем переписывает из данного файла во второй только те строки, которые начинаются с буквы «А» или «а».

5 { часть вторая: чтение из первого файла и формирование второго} Reset(f1); {открываем первый файл для чтения} Assign(f2, file2.txt); {устанавливаем связь второй файловой переменной с физическим файлом} Rewrite(f2); {открываем второй файл для записи}

6 {Дальше необходимо последовательно считывать строки из первого файла, проверять выполнение условия и записывать нужные строки во второй файл. Для чтения из текстового файла рекомендуется использовать цикл по условию «пока не конец файла»} While not eof(f1) do Begin Readln(f1,s); {считываем очередную строку из первого файла} If (s[1]=A) or (s[1]=a) then Writeln(f2,s); {записываем во второй файл строки, удовлетворяющие условию} End; Close(f1,f2); {заканчиваем работу с файлами}

7 {часть третья: выводим на экран второй файл} Writeln; Writeln(Второй файл содержит строки:); Reset(f2); {открываем второй файл для чтения} While not eof(f2) do {пока не конец второго файла} Begin Readln(f2,s);{считываем очередную строку из второго файла} Writeln(s); {выводим строку на экран} End; Close(f2); End.

8 program my_file; Var F:text; p,b,i,max, k:integer; S:string; begin assign(f,'f2.txt'); reset(f); i:=1;p:=0; while not eof(f) do begin readln(f,s); Writeln(s); k:=length(s); if k > max then begin max:=k; b:=i end; inc(i); if s[1]= upcase(s[1]) then p:=p+1; end; writeln ('самая длинная строка ',b); writeln ('количество строк с заглавной буквы ',p); close(f); end. Дан текстовый файл. Найти количество строк, начинающихся с заглавной буквы, а также номер строки, содержащий максимальное количество символов.

9 f2,f:text; s,p,k,i,ms, mn:integer; begin clrscr; assign(f,'f3.txt'); assign(f2,'f4.txt'); reset(f); rewrite(f2); ms:=0;mn:=100; Repeat ms:=0;mn:=100; repeat read(f,i);write(i,' '); if i>ms then ms:=i; if i