Студент.разбор слова на количественные составляющие

[Akcentbek]

]необходимо составить программу которая /
допустим задано слово СТУДЕНТ,нужно чтобы программа выводила сообщение такого рода/
с-1
т-2
у-1
д-1
е-1
н-1

т.е количество содержащихся букв этого слове в этом слове))кешiрыныз за тафталогию

[Вадим Мошев]

Я сделаю это за 100 рублей на счёт мобильного телефона, вы согласны?
Кстати, какие сроки у вас?

кешiрыныз

А это татарский или казахский язык?

[Akcentbek]

Мен қазақша жаздым)))

Языки тюрков ...

Я в курсе что сдесь всем наплевать сугубо но я не могу))
Я тут пробегом зашел за советом а не расставаться с деньгами
самому бы хотелось легких денег -- хотя всем до этого как до укропа))

вот код нужен намек на то что делать )))

var

    s: string;
    c: char;
    n,len,i,q: byte;
     mas:array[1..len] of string;
begin
 writeln('Input');
 readln(s);
 begin
 for i:=1 to len do
     c:=s[i];
 end;
 i:=0;
  n:=0;
  len:=length(s);
  for i:=1 to len do
   if s[i]=c then n:=n+1;

   mas[i]:=n;
   writeln(s[i],'=',mas[i]);

readln
end.

этот код с ошибкой я туплю ))
с динамич массивом не умею обращаться



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

язык программирования не указан. Поэтому рискну предположить, что речь идёт о Pascal.
в этой связи фраза "с динамич массивом не умею обращаться" бессмыслена. В TurboPascal не было динамических массивов! (разумеется, они есть в более современных компиляторах: Delphi/FreePascal и т.д.)

но в данной задаче не нужно никаких динамических массивов.
Ей можно решать разными способами.

например, завести массив от 0 до 255.
var count : array[0..255] of integer;

предварительно его обнулить:
for i:=0 to 255 do count[i] := 0;

ввести строку:
ReadLn(s);

потом пройтись по строке, наращивая счётчик каждой буквы (массив count - это массив счётчиков. причём i-й элемент массива означает, сколько раз встретилась буква с кодом i
for i:=1 to Length(S) do Inc( Count[ ord(s[i]) ] );

всё. задача решена.
достаточно вывести ненулевые счётчики:
for i:=0 to 255 do
if count[i]>0 then WriteLn('Буква ', chr( i ), ' встретилась ', count[i], ' раз.');


p.s. другой возможный алгоритм решения задачи это брать каждый символ в цикле (по I например, for i:=1 to Length(s) ), проверять, что его нет левее текущего (т.е. в диапазоне от 1 до I-1) - если есть - пропускаем, если же его ещё не было раньше, тогда во вложенном цикле считаем, сколько раз этот символ встречается правее:

  Cnt := 0;
  for j := i to Length(S) do 
     if s[i]=s[j] then Inc(Cnt);
  WriteLn(s[i],' : ', Cnt);

[Akcentbek]

Зор рахмет саған!
да это паскаль фрипаскаль
сегодня попробую пописать

[Akcentbek]

uses crt;
var
   i:integer;
   s:string;
   count : array[0..255] of integer;

begin
   clrscr;

repeat
   for i:=0 to 255 do count[i] := 0;
  writeln('Input word..');  ReadLn(s);
   for i:=1 to Length(S) do Inc( Count[ ord(s[i]) ] );
   for i:=0 to 255 do
 if count[i]>0 then WriteLn( chr( i ), ' - ', count[i]);
 if s='EXIT' then exit;
 readln;
  clrscr;
 until(s='EXIT');

 readln;
end.

все работает прсто класс!

[Akcentbek]

теперь теоритический вопрос практического характера))
возможно ли как нибудь среди двух массивов выделить массив общих элементов т.е. пересечение множеств??

[Serge_Bliznykov]

я не думаю, что Вас теоретический вопрос имеет отношение к задаче по частоте использования букв в слове.

А на форуме есть правило: один вопрос - одна тема.
Создавайте новую тему и задавайте там свой вопрос. (только название темы давайте правильное - отражающее суть задачи).


p.s. а ответ на ваш вопрос: ну конечно же можно - перебирая элементы одного массива можно их искать во втором - какие нашли - те и общие!

[Akcentbek]

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

[Utkin]

возможно ли как нибудь среди двух массивов выделить массив общих элементов т.е. пересечение множеств??

Akcentbek, жаным . Как нефиг делать . Заводите третий массив размером под результат либо под размер наибольшего из первых двух массивов. И понесласль . А выделяете как два цикла. Суть в том что один массив берете как шаблон в котором ищутся элементы второго массива. Нашелся копируете в третий, если нет значит не судьба...