Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Garee
0 / 0 / 1
Регистрация: 16.01.2017
Сообщений: 9
1

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

12.02.2017, 16:33. Просмотров 395. Ответов 7
Метки нет (Все метки)

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

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.
Всей душой отблагодарю любого, кто предложит свой вариант написания.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2017, 16:33
Ответы с готовыми решениями:

Перевести код с языка Pascal на язык C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer)...

Перевести код с языка Pascal на язык С++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter...

Максимальный и минимальный элементы массива (перевести из языка Pascal в СИ)
Помогите перевести из языка Pascal в СИ: var a: array of integer max,min,i,k:integer; begin...

Перевести код с языка Си в С++
#include <stdio.h> double path(double v, double a, double t) { return v*t + a*t*t/2; }...

7
Tehnic
11 / 11 / 10
Регистрация: 17.06.2016
Сообщений: 70
12.02.2017, 18:36 2
что программа делать должна? а то код =смесь питона с паскалем.если поискать,уверен найду и куски брейнфака.
0
Garee
0 / 0 / 1
Регистрация: 16.01.2017
Сообщений: 9
13.02.2017, 05:51  [ТС] 3
Цитата Сообщение от Tehnic Посмотреть сообщение
что программа делать должна?
вводишь в рандомном порядке буквы abc, а программа должна составлять их в строку cab.
пример:
ввод: acbbbcab
конечное значение: ссaabbbb
0
Новичок
Модератор
1586 / 1046 / 480
Регистрация: 17.07.2012
Сообщений: 5,218
Завершенные тесты: 3
13.02.2017, 06:21 4
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;
}
0
Garee
0 / 0 / 1
Регистрация: 16.01.2017
Сообщений: 9
13.02.2017, 06:28  [ТС] 5
Цитата Сообщение от Новичок Посмотреть сообщение
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;
}
я извиняюсь, но
0
Миниатюры
Перевести код с языка Pascal  
ata
263 / 247 / 186
Регистрация: 28.10.2015
Сообщений: 723
13.02.2017, 09:09 6
Цитата Сообщение от 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'а, к сожалению, и не предвидится. Неполноценный какой-то язык.
0
GbaLog-
Любитель чаепитий
3250 / 1546 / 479
Регистрация: 24.08.2014
Сообщений: 5,369
Записей в блоге: 1
Завершенные тесты: 2
13.02.2017, 09:42 7
Цитата Сообщение от Garee Посмотреть сообщение
я извиняюсь, но
c++11 включите.

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

Добавлено через 11 минут
Вот на русском.
Как включить в своей среде разработки поддержку определённого стандарта (С++11, С++14, С++17)
0
ata
263 / 247 / 186
Регистрация: 28.10.2015
Сообщений: 723
13.02.2017, 10:10 8
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;
}
0
13.02.2017, 10:10
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2017, 10:10

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

Перевести код из Pascal в C++
Помогите перевести код из Паскаля в С++ Uses crt; const n = 10; var x: array of integer;...

Перевести код из Pascal на С++
Перевести код из Pascal на С++: Uses crt; Type book=Record fam: String; pred: String; ...

Перевести код с Pascal
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type...

Перевести код с Pascal
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite...


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

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

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