Text24. Дан текстовый файл. Найти количество абзацев в тексте, если абзацы отделяются друг от друга одной или несколькими пустыми строками.
Решение:
|
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 |
program Text24; var F: Text; S: string; num:integer; begin Write('File name: '); Readln(S); Assign(F,S); Reset(F); num:=0; S:=''; While (not eof(F)) and (S='') do Readln(F,S); While not eof(F) do begin Readln(F,S); if S='' then begin inc(num); While (not eof(F)) and (S='') do Readln(F,S); end; end; if S<>'' then inc(num); Close(F); Writeln(num); Readln; end. |
Другие задачи из раздела Text можно посмотреть здесь.
Дан текстовый файл содержащий 1000 абзацев состоящие каждый из количества строк от 3-х до 6-ти. Абзацы отделены друг от друга одной пустой строкой. Через каждые пять абзацев присутствует строка начинающаяся словом «Билет», также отделенная от абзацев пустыми строками. Скопировать каждый абзац не начинающийся словом «Билет» и вставить его в один из 1000 файлов, расположенных в одной папке, вместо строки состоящей из символов hhhhhhhh. Т.е. первый абзац в первый файл, второй абзац во второй файл, третий абзац в третий файл в алфавитном порядке и т.д.