Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 01.03.2012
Сообщений: 32
1

Вывести символы, которые встречаются более 2х раз.

05.04.2012, 17:38. Показов 1405. Ответов 1
Метки нет (Все метки)

Вывести символы, которые встречаются более 2х раз.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2012, 17:38
Ответы с готовыми решениями:

Матрица. Вывести вектор сумм элементов строк. Вывести элементы матрицы, которые встречаются в матрице более 3 раз
Дана вещественная матрица размером 4х6 (ее элементы нужно ввести с клавиатуры). Упорядочить ее...

Вывести все символы, которые встречаются в первой строке тексте и не встречаются в последней.
Вывести все символы, которые встречаются в первой строке тексте и не встречаются в последней.

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

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

1
6231 / 3532 / 898
Регистрация: 28.10.2010
Сообщений: 5,926
05.04.2012, 18:52 2
Лучший ответ Сообщение было отмечено SashaPr как решение

Решение

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
32
33
program pro;
uses
    crt;
var
   s: string;
   i: integer;
   m: set of char;
   function count(const str: string; ch: char): integer;
   var
      i: integer;
      c: integer;
   begin
        c := 0;
        for i := 1 to length(str) do
            if (str[i] = ch) then
               inc(c);
        count := c;
   end;
begin
     m := [];
     clrscr;
     write('please enter string: ');
     readln(s);
     for i := 1 to length(s) do
         if (count(s, s[i]) > 2) and (not (s[i] in m)) then
         begin
            write(s[i], ' ');
            m := m + [s[i]];
         end;
     writeln;
     writeln('press any key . . . ');
     readkey;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2012, 18:52

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Из заданного предложения выбрать символы, которые встречаются в нем только один раз
Из заданного предложения выбрать и вывести на экран только те символы, которые встречаются в нем...

Переписать в массив В те элементы массива А, которые встречаются в нем более двух раз в обратном порядке
Задан массив А. Переписать в массив В те элементы массива А, которые встречаются в нем более двух...

Дана строка. Удалить из строки все символы которые встречаются в ней только один раз
Помогите решить пожалуйста задачу. Дана строка. Удалить из строки все символы которые встречаются в...

Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
Работа со строками. Дана символьная строка. Вывести на экран те символы которые встречаются в...


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

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

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