2 / 2 / 0
Регистрация: 25.03.2011
Сообщений: 21
1

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

28.03.2011, 13:55. Показов 1827. Ответов 2
Метки нет (Все метки)

Дан текстовый файл.Дописать в его конец следующие данные: количество строк, количество символов в каждой строке,количество чисел в каждой строке.
Помогите решить пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2011, 13:55
Ответы с готовыми решениями:

Файл: Определить количество строк файла, в каждой строке найти самое длинное слово и дописать его в конец
Ввести строки с клавиатуры. Создать файл, определить количество строк файла, в каждой строке найти...

Текстовый файл. Определить количество всех строк и количество символов в каждой строке
В текстовом файле определить количество всех строк и количество символов в каждой строке. ...

Подсчитать количество символов в каждой строке и массив чисел с количествами записать в другой текстовый файл
Данные считываются с текстового файла(1) и записываются в другой(2). Есть текстовый файл с...

Вывести файл на экран, чтобы в каждой строке было не больше 40 символов, и количество строк было минимальным
Дано файл f. Вывести этот файл на экран так что бы в каждой строчке было не больше, чем 40 символов...

2
126 / 126 / 42
Регистрация: 12.03.2011
Сообщений: 227
28.03.2011, 18:22 2
Лучший ответ Сообщение было отмечено Misha0 как решение

Решение

Как-то так
Pascal
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
33
34
35
36
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.
2
2 / 2 / 0
Регистрация: 25.03.2011
Сообщений: 21
28.03.2011, 19:54  [ТС] 3
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2011, 19:54
Помогаю со студенческими работами здесь

В текстовом файле определить количество всех строк и количество символов в каждой строке.
В текстовом файле определить количество всех строк и количество символов в каждой строке.

Дан текстовый файл. Подсчитать количество символов в каждой строке
Дан текстовый файл. Подсчитать количество символов в каждой строке. Помогите переделать из...

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

Определить количество слов в каждой строке, сжать каждую строку, удалив END в каждой строке
Выполнить обработку текста из внешнего текстового файла, созданного в редакторе ....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru