дан текст, написать код, нахождения 10 наиболее часто встречающихся букв

[yaroslav_bondarev]

не могу написать, бред получается, помогите

[Leshii]

Ну так кидай сюда свой бреди и посмотрим.

[yaroslav_bondarev]

program Variant3;
const smax=30;
      alf1='АБВГДЕЁЖЗИЙКЛМНОРПСТУФХЦЧШЩЪЫЬЭЮЯ';
      alf2='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
type                 zapis = record
                            x:char;
                         y:integer;
                               end;
var                      t,t1:text;
                          s:string;
                          a,b:mass;
                     i,j,k:integer;

function Perevod(s:string):string;
var i:integer;
begin
for i:=1 to length(s) do
if (pos(s[i],alf2)>0) then s[i]:=alf1[pos(s[i],alf2)];
perevod:=s;
end;

function Proverka(s:string):string;
var                    i,j:integer;
                         f:boolean;
s1:=perevod(s);
for i:=1 to length(s) do
if pos(s1[i],alf1)>0 then
inc(a[pos(s1[i],alf1)].y);
f:=false;
for i:=1 to length(s) do
for j:=1 to 10 do
if s1[i]=a[j].x then f:=true;
end;

через записи начал писать, вообще что то не соображаю как написать программу

[Leshii]

Создай какойнить текстовый файл скажем так ( приведу простой пример )

Uses crt;
var f: text;
     s: string;
     i: integer;
begin
clrscr;
assign(f,'ap.txt'); // создаёш текстовый файл куда записываеш построчно текстовую инфу. 
rewrite(f); // открываеш для записи 
for i:=1 to 10 do begin //делаеш цикл для записи
     readln(s);
     writeln(f, s);
end;
close(f); // закрываеш
reset(f); // открываеш для чтения
while not eof(f) do  // пока не конец файла 
   for i:=1 to 10 do begin 
        readln(f, s);  // считываеш
    if s[i] in ['a'..'z'] then ... /// проверяеш есть ли похожие символы в словах, после выводиш (если надо количество слов ставиш счётчик, если слова выводиш те char'ы( символы которые повторяються ) ...
...
readln;
end.

Ну надеюсь что направил тебя в нужное русло.

[yaroslav_bondarev]

мне вообще надо написать:
В текстовом файле input.txt записан русский текст. Найти в тексте слова, содержащие ровно одну из 10 наиболее часто встречающихся букв текста записать их заглавными буквами и указать после каждого такого слова в скобках найденную букву. Полученный текст записать в файл output.txt. Весь текст, кроме найденных слов, должен остаться неизменным, включая и знаки препинания.

а то что ты написал, это и так понятно)

[Leshii]

Ну так если понятно, то чего бред пишеш ? Зачем тебе тогда записи ? Ты ведь даже как оказалось задание то и не доконца написал. Какой вопрос такой ответ...

[yaroslav_bondarev]

а как по другому найти эти 10 букв? вот, я счас разделил строку на слова:

procedure Slova(var a:tmas;var n :integer;s:string);
var i : integer;
w : string;
begin
s:=s+' ';
w:='';
n:=0;
for i := 1 to length(s) do
if (pos(s[i],alf1)>0) or (pos(s[i],alf2)>0) then w:=w+s[i]
else
if w<>'' then
begin
inc(n);
a[n]:=w;
w:='';
end;
end;

[Leshii]

Ну после твоего откровение прочти вот эту темку тыц

[Mad_Cat]

const nmax=66;
var buf:string;
    co:array[0..nmax] of byte;
    n,i,j:byte;
    s:string;
    c:char;
begin
write('cTpoka-->');readln(s);
buf:='';
for i:=1 to nmax do
co[i]:=0;
for i:=1 to length(s) do
if (s[i] in ['A'..'Z','a'..'z']) and (pos(s[i],buf)=0) then begin buf:=buf+s[i]; co[pos(s[i],buf)]:=co[pos(s[i],buf)]+1;end
else co[pos(s[i],buf)]:=co[pos(s[i],buf)]+1;
writeln(buf);
for i:=1 to length(buf)-1 do
begin
  for j:=i+1 to length(buf) do
  begin
    if co[i]<co[j] then
    begin
       n:=co[i];
       co[i]:=co[j];
       co[j]:=n;
       c:=buf[i];
       buf[i]:=buf[j];
       buf[j]:=c;
    end;
   end;
end;
for i:=1 to 10 do
writeln(buf[i],'  ',co[i]);
end.

result

cTpoka-->qwerytqwerqytweriquwifqjn cqnbewjfrqwegcfhjdscvghwefgjkhjashs gfhdgfyuweqjflkjfjkahfurfugr
qwerytiufjn cbghdsvkal
f 10
w 8
q 8
j 8
e 7
r 6
g 6
h 6
u 4
y 3

[yaroslav_bondarev]

спасибо большое)