Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
GreBer
0 / 0 / 0
Регистрация: 26.11.2009
Сообщений: 1
#1

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

29.11.2009, 18:20. Просмотров 571. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Строки в текстовом файле (Pascal):

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

удаление строки в текстовом файле и поиск. - Pascal
Здарова всем! У меня проблема с написанием кода в Паскале! 1.Вобщем как можно удалить строку (ту которую я захочу) в текстовом...

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

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

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

В текстовом файле поменять местами чётные и нечётные строки - Pascal
Создать файл, содержащий произвольные строки. Заменить строки файла так, чтобы их порядок был следующим: 2, 1, 4, 3, 6, 5, ... Вывести на...

1
o-user
244 / 201 / 7
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ - Pascal
Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ соответственно.

текст в текстовом файле - Pascal
дан текст,ХРАНЯШИЙСЯ В ТЕКСТОВОМ ФАЙЛЕ.Подсчитать количество гласных букв в ТЕКСТЕ!!!


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

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

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