Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
BladeRunner
0 / 0 / 0
Регистрация: 12.06.2014
Сообщений: 32
1

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

13.06.2014, 18:03. Просмотров 267. Ответов 1
Метки нет (Все метки)

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

Код

C++
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
#include <algorithm>
#include <fstream>
#include <locale>
#include <map>
#include <set>
#include <string>
 
class OnlyLetters : public std::ctype<char>
{
public:
    explicit OnlyLetters(size_t refs = 0) : ctype(newTable, false, refs)
    {
        const mask* oldTable = classic_table();
        std::transform(
            oldTable, oldTable + table_size, newTable,
            [](mask m) { return m & alpha ? m : m | space; }
            );
    }
private:
    mask newTable[table_size];
};
 
 
int main()
{
    std::ifstream fin("input.txt");
    fin.imbue(std::locale(fin.getloc(), new OnlyLetters));
 
    const std::set<std::string> keywords = {
        "uses", "type", "var", "begin", "end", /*...*/
        };
    std::map<std::string, unsigned> wordCounts;
    std::string word;
    while (fin >> word)
        if (keywords.count(word) != 0)
            ++wordCounts[word];
 
    std::ofstream fout("output.txt", std::ios::out | std::ios::trunc);
    for (const auto& wordCount : wordCounts)
        fout << wordCount.first << " => " << wordCount.second << "\n";
}
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2014, 18:03
Ответы с готовыми решениями:

Записать текст паскаль-программы, разместив ключевые слова begin и end по одному на строку
Ребята помогите пожалуйста . Я студент на практике не могу решить поставленные ...

Записать в выходной файл слова в порядке возрастания длины слов
Дан текст на русском языке. Записать в выходной файл слова в порядке...

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

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

В тексте, содержащем несколько (много) предложений, найти все вхождения заданного слова и распечатать все ключевые его предложения.
помогите решить 3 задачки. заранее большое спасибо всем!...

1
BladeRunner
0 / 0 / 0
Регистрация: 12.06.2014
Сообщений: 32
15.06.2014, 23:18  [ТС] 2
неактуально
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2014, 23:18

На основе данных из входного файла записать в выходной файл последовательность матриц
Во входном файле даны действительные числа r1,r2,... про общее количество...

Создать текстовый файл, в который построчно записать прямоугольный массив
Размер создаваемого файла считать заранее неизвестным и определять его при...

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


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

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

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