Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ обработка фразы в текстовом файле

Автор: ROxY 12.05.2007 17:38

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

Составить алгоритм и программу обработки фразы (строки текста) находящегося в текстовом файле 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.


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

Автор: Артемий 12.05.2007 18:23

http://forum.pascal.net.ru/index.php?showtopic=16058&view=findpost&p=94053 ??

Автор: мисс_граффити 12.05.2007 19:10

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


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

Автор: ROxY 13.05.2007 13:23

ладно..
ну вот и как мне теперь это соеденить..
так чтобы шла обработка фразы в файле Input/txt.txt и в конце должен получиться текст из фразы с именем
output/txt.txt
что-то не могу понять...

Автор: Артемий 13.05.2007 14:30

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

Автор: ROxY 14.05.2007 10:09

ну так тоесть получается эта программка и есть..
просто бквы английского алфавита?!

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


а помочь мне можно с русским алфавитом??

Автор: ROxY 17.05.2007 22:18

ну как я понимаю...никто не сможет мне помочь
благодарю!!!