IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> обработка фразы в текстовом файле
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 33
Пол: Женский

Репутация: -  0  +


итак ребят..вот такая задачка

Составить алгоритм и программу обработки фразы (строки текста) находящегося в текстовом файле Input/txt.txt
В результате работы программы в файле отчета необходимо в алфавитном порядке расположить букву, из которой состоит текст с их количеством
ПРИМЕР: содержание файла Input/txt.txt слово «мама» в результате работы программы получен файл следующего вида:
Буква Количество
А 2
М 2
(служебная информация не более 2-х байт для каждого символа фразы)
В служебной информации должны быть закодированы (зашифрованы) данные о каждой букве фразы.
В дальнейшем при запуске этой программы входным файлом должен стать файл отчета со служебной информацией в результате работы должен быть получен текст из фразы в файле с именем output/txt.txt

значит составляю алгоритм получающий в файле Input/txt.txt и записывающий слова в файл output/txt.txt
var k,j:integer; I,O: text;
A: array [1..100] of string;
c:string; m:integer;
begin
m:=0;
assign (I,'Int/txt.txt');
reset(I);
while not Eof(I) do
begin
m:=m+1;
readln(I, A[m]);
end;
close(I);
for j:=1 to m do
for k:=1 to m-j do
if A[k]>A[k+1] then
begin
c:=A[k];
A[k]:=A[k+1];
A[k+1]:=c;
end;
assign(0,'out/txt.txt);
rewrite(0);
for k:=1 to m do
writeln(0,A[k]);
close(0);
end.


что-то типо того..
вопрос мне нужно подсчитать в словах число букв и вывести их в алфавитном порядке..
РЕБЯТ... ну помогите а...

Сообщение отредактировано: ROxY -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.09.2021 16:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name