Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ошибка в коде программы https://www.cyberforum.ru/ pascal/ thread310504.html
Помогите найти ошибку в коде программы программа, которая считывает цепочку чисел и печатает наиболее длинную, монотонно возрастающую их подпоследовательность Спасибо uses Crt; const MAX_N...
Нужна помощь по массивам и по циклам Pascal
Люди плз помогите, препод задала изучить 10 по паскалю, потому что ходить не мог на пары по здоровью, все решил кроме двух задач. Задача 1 Разработать блок-схему алгоритма вычисления таблицы...
Дана квадратная матрица размерностью М*М Pascal
Дана квадратная матрица размерностью М*М.Удалить столбец с минимальным из положительных элементов,сумма индексов которых равная четырем
Pascal Задан вектор из N элементов. Задан вектор из N элементов. Найти наибольшее число и его координату среди кратных пяти и совпадающих со своим номером элементов и поменять его с первым элементом Помогите пожалуйста* https://www.cyberforum.ru/ pascal/ thread310433.html
Pascal сортировка https://www.cyberforum.ru/ pascal/ thread310420.html
в массиве хранятся информация о результате 22 спортсменов по бегу на 100 м определить 1,2 место Без помощи не справиться))) Заранее спасибо есть отрезки но немогу их собрать КОД это создание...
Определение координат точки пересечения окружности и прямой Pascal
Доброго времени суток. Помогите найти точку пересечения окружности и прямой. Вот текст задачи: Даня натуральные числа xc,yc,r,x,y. Построить окружность с центром в точке (xc,yc) и радиусом r, а...
Pascal Массив..
Здравствуйте! Помогите пожалуйста, задача: Дан массив Y(14). Определить кол-во чётных элементов. Элементы ввести с клавиатуры.
Pascal В заданный непустой текст входят только цифры и буквы. Определить, является ли текст записью четного числа. Помогите написать код к задаче по паскалю, темы "Символьный тип": В заданный непустой текст входят только цифры и буквы. Определить, является ли текст записью четного числа. https://www.cyberforum.ru/ pascal/ thread310370.html
Pascal Borland Pascal 7.0 под Win7 https://www.cyberforum.ru/ pascal/ thread310307.html
Всем привет! Скачал borland pascal 7 отсюда Но никак не могу запустить его под Win7. Помогите, как его запустить??
Pascal График Помогите решить задачу. Эту задачу нужно решить с помощью уравнения окружности, чтобы при проверки x и y попадали в область этого графика..... https://www.cyberforum.ru/ pascal/ thread310288.html
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
02.06.2011, 09:54 0

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

02.06.2011, 09:54. Показов 1824. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено denk как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program Project1;
 
var
  S, sCnt, sCode : String;
  Ch : Char;
  i, Len : Integer;
  //Это тоже самое что и: ArrStat : array[#0..#255] of Integer;
  ArrStat : array[Char] of Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Обнуляем элементы массива статистики.
    for Ch := #0 to #255 do ArrStat[Ch] := 0;
 
    //Собираем статистику.
    Len := Length(S);
    for i := 1 to Len do Inc(ArrStat[S[i]]);
 
    //Показываем результат.
    Writeln('Символы, которые присутствуют более трёх раз:');
    S := '';
    i := 0;
    for Ch := #0 to #255 do begin
      //Пропускаем те символы, которые встречаются не более трёх раз.
      if ArrStat[Ch] <= 3 then Continue;
      if S <> '' then S := S + #9;
      Str(ArrStat[Ch], sCnt);
      if Ch <= #32 then begin
        Str(Ord(Ch), sCode);
        S := S + '#' + sCode + '(' + sCnt + ')';
      end else begin
        S := S + Ch + '(' + sCnt + ')';
      end;
      //Распечатку формируем в виде таблицы, которая имеет 7 столбцов.
      Inc(i);
      if i mod 7 = 0 then begin
        Writeln(S);
        S := '';
      end;
    end;
    if S <> '' then Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.


Вернуться к обсуждению:
Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2011, 09:54
Готовые ответы и решения:

Дана символьная строка. Вывести на экран только те символы, которые встречаются в ней более трех раз, для каждого из эти
мне нужно срочно!!!! помоги чем сможете. С++ Добавлено через 19 секунд Вот задание Дана...

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

Символы, которые встречаются в строке более 2-ух раз
Реализовать программу, которая из строки выводит символы в другое поле, которые встречаются в...

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

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