Перевести код с языка Pascal

@Garee · Регистрация: 16.01.2017

Студворк — интернет-сервис помощи студентам

Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на С++:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s:string;
begin
  s:=ReadlnString('Введите строку:');
  s:=string.
  Join('',Range(1,s.Count(c->c='c')).
  Select(i->'c')+Range(1,s.Count(c->c='a')).
  Select(i->'a')+Range(1,s.Count(c->c='b')).
  Select(i->'b'));
  writeln('Полученная строка:',s);
end.

Всей душой отблагодарю любого, кто предложит свой вариант написания.

@Tehnic · 12.02.2017, 18:36

что программа делать должна? а то код =смесь питона с паскалем.если поискать,уверен найду и куски брейнфака.

@Garee · 13.02.2017, 05:51 **[ТС]**

Сообщение от Tehnic

что программа делать должна?

вводишь в рандомном порядке буквы abc, а программа должна составлять их в строку cab.
пример:
ввод: acbbbcab
конечное значение: ссaabbbb

Новичок · 13.02.2017, 06:21

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <iostream>
#include <string>
#include <algorithm>
 
int main() {
    std::string s;
    std::cin >> s;
    const std::string order = "cab";
    std::string res = "";
    for (const auto& c: order) {
        std::size_t cnt = std::count(s.begin(), s.end(), c);
        res += std::string(cnt, c);
    }
    std::cout << res;
}

@Garee · 13.02.2017, 06:28 **[ТС]**

Сообщение от Новичок

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <iostream>
#include <string>
#include <algorithm>
 
int main() {
    std::string s;
    std::cin >> s;
    const std::string order = "cab";
    std::string res = "";
    for (const auto& c: order) {
        std::size_t cnt = std::count(s.begin(), s.end(), c);
        res += std::string(cnt, c);
    }
    std::cout << res;
}

я извиняюсь, но

@ata · 13.02.2017, 09:09

Сообщение от Tehnic

если поискать,уверен найду и куски брейнфака.

Я нечто отдаленно похожее на C# увидел. Наверное, это PascalABC какой-нибудь. На C# я бы так сделал:

C#
1
2
3
4
5
6
7
using System;
using System.Linq;
 
class Program
{
    Console.WriteLine(new String(Console.ReadLine().OrderBy(x => (x - 'a' + 1) % 3).ToArray()));
}

Как это на C++ записать - я не знаю. Нет там LINQ'а, к сожалению, и не предвидится. Неполноценный какой-то язык.

@GbaLog- · 13.02.2017, 09:42

Сообщение от Garee

я извиняюсь, но

c++11 включите.

Добавлено через 53 секунды
http://stackoverflow.com/quest... ts-c0x-ran

Добавлено через 11 минут
Вот на русском.

Как включить в своей среде разработки поддержку определённого стандарта (С++11, С++14, С++17, C++20, C++23)

@ata · 13.02.2017, 10:10

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
#include <string>
#include <vector>
#include <algorithm>
 
using namespace std;
 
int main()
{
    string s("acbbbcab");
    vector<char> v(s.begin(), s.end());
    sort(v.begin(), v.end(), [](char a, char b) { return a == 'c' || b != 'c' && a < b; });
    for (vector<char>::const_iterator i = v.begin(); i != v.end(); i++)
    {
        cout << *i;
    }
    cout << endl;
    return 0;
}

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Tehnic 12 / 12 / 10 Регистрация: 17.06.2016 Сообщений: 70
	12.02.2017, 18:36
	что программа делать должна? а то код =смесь питона с паскалем.если поискать,уверен найду и куски брейнфака. 0