Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Haykaz
0 / 0 / 0
Регистрация: 12.09.2015
Сообщений: 12
1

Запишите в выходной файл первые три символа, встречающиеся в файле наибольшее количество раз

26.01.2016, 22:16. Просмотров 824. Ответов 1
Метки нет (Все метки)

Запишите в выходной файл первые три символа, встречающиеся в файле наибольшее количество раз. Сначала самый часто встречающийся символ, потом следующий за ним по частоте, потом третий по частоте встречаемости. Если несколько символов встречаются одинаковое количество раз, выберите меньший из них. Если в файле встречаются менее трёх разных символов, запишите в выходной файл соответственно два или один символ.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2016, 22:16
Ответы с готовыми решениями:

Четные числа файла запишите в один выходной файл, а нечетные – в другой
Дан файл целых чисел. Четные числа запишите в один выходной файл, а нечетные –...

Перевод из С++ в Паскаль.Записать в выходной файл построчно все ключевые слова, встречающиеся в этой программе
Дана программа написанная на языке Pascal. Записать в выходной файл построчно...

Разместить в динамической памяти элементы, встречающиеся в текстовом файле один раз
Дан текстовый файл, содержащий целые числа, разделенные пробелом. Разместить в...

Создать текстовый файл, в котором первые 2 символа - буквы.
помогите пожалуйста!!!!!!!!!!!!!!!!! Создать текстовый файл, в котором первые...

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

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
30.01.2016, 00:54 2
Лучший ответ Сообщение было отмечено Haykaz как решение

Решение

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
var
    f, g: Text;
    quant: Array[Byte] Of Word;
    j, i, maxId: Byte;
    c: Char;
begin
    for i := 0 to 255 do
        quant[i] := 0;
    Assign(f, 'input.txt'); ReSet(f);
    Assign(g, 'output.txt'); 
    while (Not EoF(f)) do
    begin
        while (Not EoLn(f)) do
        begin
            Read(f, c);
            Inc(quant[Ord(c)]);
        end;
        ReadLn(f);
    end;
    Close(f); ReWrite(g);
    for j := 0 to 2 do
    begin
        maxId := 0;
        for i := 0 to 255 do
            if (quant[i] > quant[maxId])
            then
                maxId := i;
        if (quant[maxId] > 0)
        then
            WriteLn(g, Chr(maxId))
        else
            break;
        quant[maxId] := 0;
    end;
    Close(g);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2016, 00:54

Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а также их количество и сумму
Вывести на экран все четырехзначные числа, у которых первые три цифры равны, а...

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

Вывести первые три символа и последний три символа, если длина строки больше 5
Дана строка. Вывести первые три символа и последний три символа, если длина...


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

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

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