Народ, помогите пожалуйста:
Дан текстовый файл. Надо подсчитать количество пустых строк в нем.
Как делать?
Читать файл построчно, и сравнивать каждую прочитанную строку на ''. Если равны - увеличивать счетчик.
http://forum.pascal.net.ru/index.php?showtopic=3584
обнуляешь счетчик, начинаешь читать строки из файла, если очередная строка пустая (Length(s) = 0 или s = '') то увеличиваешь счетчик на единицу.
! | 2. Все тексты фрагментов программ должны помещаться в теги [code ] ... [ /code ] или [ code=pas ] ... [ /code ]. |
program ex25;
uses crt;
var
f:text;
a:string;
i:integer;
begin
clrscr;
assign(f,'25.txt');
reset(f);
i:=0;
while not eof(f) do
begin
read(f,a);
if length(a)=0 then i:=i+1;
end;
close(f);
writeln('number of empty lines is ',i);
readkey;
end.
while not eof(f) do
begin
readln(f,a); // <------------------
Спасибо, всё получилось )))
народ помагите надо создать программу каторая извлекает из фаила части фаила тоесть блоки по заданым им адресом и с указаным им размером фаила дапустим есть фаил main.img из него надо извлеч и создать фаил с именем RE0 до REn тоесть пока число блоков не закончится и записовать даныие из блока в данныие фаилы. вот например программа созданная на паскале но имеет расширение ехе а мне нужны исходныие
Прикрепленные файлы
main_proram.rar ( 4.72 килобайт )
Кол-во скачиваний: 221