Дописать в файл количество строк, символов в каждой строке, чисел в каждой строке

@Misha0 · Регистрация: 25.03.2011

Дан текстовый файл.Дописать в его конец следующие данные: количество строк, количество символов в каждой строке,количество чисел в каждой строке.
Помогите решить пожалуйста

@LaГushan · 28.03.2011, 18:22

Как-то так

Pascal

var
f:text;
s:string;
str,i,c:Integer;
a,b:array[0..255]of Integer;
begin
   str:= 0;
   Assign(f,'test.txt');
   reset(f);
   while not (eof(f))do
   begin
     inc(str);
     readln(f,s);
     a[str]:= length(s);
     c:= 0;
     for i:= 1 to length(s) do
        if s[i] in ['0'..'9'] then inc(c);
     b[str] := c;
   end;
   close(f);
   Assign(f,'test.txt');
   append(f);
   writeln(f);
   write(f,'Kolichestvo strok: ');
   write(f,str);
   writeln(f);
   for i:= 1 to str do
   begin
      write(f,'stroka ',i,' ');
      write(f,'symvoli: ',  a[i],' ');
      write(f,'chisla: ',b[i] ,' ');
      writeln(f);
   end;
   close(f);
   readln;
end.

@Misha0 · 28.03.2011, 19:54 **[ТС]**

спасибо

@Misha0 2 / 2 / 0 Регистрация: 25.03.2011 Сообщений: 21
		1
	Дописать в файл количество строк, символов в каждой строке, чисел в каждой строке 28.03.2011, 13:55. Показов 1827. Ответов 2 Метки нет (Все метки) Дан текстовый файл.Дописать в его конец следующие данные: количество строк, количество символов в каждой строке,количество чисел в каждой строке. Помогите решить пожалуйста __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Misha0 2 / 2 / 0 Регистрация: 25.03.2011 Сообщений: 21
	28.03.2011, 19:54 [ТС]	3
	спасибо 0

Опции темы

Дописать в файл количество строк, символов в каждой строке, чисел в каждой строке

Решение