Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Kirilllll
4 / 6 / 9
Регистрация: 23.03.2010
Сообщений: 77
#1

Количество аннаграм!

01.03.2011, 20:05. Просмотров 301. Ответов 0
Метки нет (Все метки)

Здравствуйте
Вот текст программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var
  s: string;
  i, j, kol, fac, fact, res, q: longint;
begin
  readln(s);
  q:= 1;
  fac:= 1;
  for i:= 1 to length(s) do
    begin
      fac:= fac*i;
    end;
  for i:=1 to length(s) do
    begin
      kol:= 0;
      for j:= 1 to length(s) do
        begin
          if copy(s,j,length(s[i]))=s[i] then
            begin
              inc(kol);
            end;
        end;
      fact:= 1;
      for j:= 1 to kol do
        begin
          fact:= fact*j;
        end;
      q:= q*fact;
    end;
  res:= fac div q;
  writeln(res);
end.
она написана для определения количества аннаграм, но как реализовать удаление повторяющегося элемента в строке, чтобы, если какая то буква встречается более одного раза, не считалась повторно??
Помогите пожалуйста!

Добавлено через 42 минуты
Ребят помогите пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2011, 20:05
Ответы с готовыми решениями:

Найти количество строк, в которых количество отрицательных элементов больше, чем количество положительных
Найти количество строк, в которых количество отрицательных элементов больше,...

Найти количество строк, в которых количество отрицательных элементов больше, чем количество положительных.
Двумерные массивы. Задание 1. В каждом варианте дан двумерный массив A из N...

Составте программу которая определяет количество отрицательных, количество положительных и количество нулей среди введённых чисел
С клавиатуры вводятся N чисел.Составте программу которая определяет количество...

Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел
С клавиатуры вводятся N чисел. Составьте программу, которая определяет...

Определить количество отрицательных, количество положительных и количество нулей среди введенных чисел
1) С клавиатуры вводятся N чисел. Составьте программу, которая определяет...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2011, 20:05

Определить количество отрицательных, количество положительных и количество нулей среди введенных чисел
С клавиатуры вводятся N чисел. Составьте программу, которая определяет...

Определить количество выигрышей, количество проигрышей, количество ничьих
В массиве записаны результаты 20 игр футбольной команды (если игра закончилась...

В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды
В массиве записаны результаты 20 игр футбольной команды(если игра окончилась...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru