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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

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


Текстовый файл ??


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


М
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [cоde=pas] ... [/cоde].


Исправляй, иначе придется закрыть тему.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


ладно..
ну вот и как мне теперь это соеденить..
так чтобы шла обработка фразы в файле Input/txt.txt и в конце должен получиться текст из фразы с именем
output/txt.txt
что-то не могу понять...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

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


А ты по ссылки ходил хоть?Там 2 аналогичных решения.


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

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

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


ну так тоесть получается эта программка и есть..
просто бквы английского алфавита?!
var
arr: array [1..20] of string;
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs:text;
begin
a:=0; o:=0; count:=0;
assign(t,'ban.dat');
assign(fs,'words.dat');
reset(t);
rewrite(fs);
while not eof(t) do begin
Inc(a);
readln(t,arr[a]);
end;
for ch:='a' to 'z' do begin
for d:=1 to 20 do begin
st:=arr[d];
if not (st='') then begin
repeat
inc(o);
if st[o]=ch then begin inc(count); end;
until o=length(st);
o:=0;
end;
end;
if not (count=0) then begin
str(count,s);
s:=ch+' - '+s;
writeln(fs,s);
count:=0;
end else count:=0;
end;
close(t);
close(fs);
readln


а помочь мне можно с русским алфавитом??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

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

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


ну как я понимаю...никто не сможет мне помочь
благодарю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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