Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
GreBer
0 / 0 / 0
Регистрация: 26.11.2009
Сообщений: 1
1

Строки в текстовом файле

29.11.2009, 18:20. Просмотров 586. Ответов 1
Метки нет (Все метки)

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

Код программы:
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
program test;
Uses CRT;
Var
 s,s1:string;
 c:char;
 i,j:integer;
 t,f:text;
 M:Array[32..255] of integer;
Begin
clrscr;
Assign(t,'text.txt');
Assign(f,'final.txt');
reset(t);
rewrite(f);
readln(t,s);
 for j:=1 to length(s) do
  begin
  s1:=copy(s,j,1);
  c:=s1[1];
  i:=ord(c);
  M[i]:=M[i]+1;
  end;
For i:=32 to 255 do
 Writeln(f,M[i]);
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2009, 18:20
Ответы с готовыми решениями:

Строки в текстовом файле.
Добрый вечер, помогите написать программку: В текстовом файле содержится...

удаление строки в текстовом файле и поиск.
Здарова всем! У меня проблема с написанием кода в Паскале! 1.Вобщем как...

Строки матрицы в текстовом файле занести в массив
есть например некая матрица в текстовом файле 1 -5 7 8 2 -3 5 4 8 -6 1 9 ...

Найти длину самой длинной строки в текстовом файле.
Имеется текстовый файл.Найти длину самой длинной строки.

В текстовом файле поменять местами чётные и нечётные строки
Создать файл, содержащий произвольные строки. Заменить строки файла так, чтобы...

1
o-user
245 / 202 / 26
Регистрация: 03.02.2009
Сообщений: 786
29.11.2009, 22:00 2
Надо получить длину файла: команда filesize
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2009, 22:00

В текстовом файле поменять местами первую и последнюю строки
В текстовом файле Т1, состоящий из 8 строк, поменять местами первый и последний...

Описать функцию, которая находит минимальную длину строки в текстовом файле отличную от нуля
Описать функцию, которая находит минимальную длину строки в текстовом файле...

В текстовом файле хранится некоторый текст. Определить количество строк, в которых встречается не меньше двух ‘!’ и длина строки больше заданного ч
В текстовом файле хранится некоторый текст. Определить количество строк, в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru