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

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

12.02.2017, 16:33. Показов 1321. Ответов 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.02.2017, 16:33
Ответы с готовыми решениями:

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

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

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

7
12 / 12 / 10
Регистрация: 17.06.2016
Сообщений: 70
12.02.2017, 18:36
что программа делать должна? а то код =смесь питона с паскалем.если поискать,уверен найду и куски брейнфака.
0
0 / 0 / 1
Регистрация: 16.01.2017
Сообщений: 9
13.02.2017, 05:51  [ТС]
Цитата Сообщение от Tehnic Посмотреть сообщение
что программа делать должна?
вводишь в рандомном порядке буквы abc, а программа должна составлять их в строку cab.
пример:
ввод: acbbbcab
конечное значение: ссaabbbb
0
 Аватар для Новичок
1682 / 1098 / 489
Регистрация: 17.07.2012
Сообщений: 5,360
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;
}
0
0 / 0 / 1
Регистрация: 16.01.2017
Сообщений: 9
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;
}
я извиняюсь, но
Миниатюры
Перевести код с языка Pascal  
0
 Аватар для ata
269 / 253 / 186
Регистрация: 28.10.2015
Сообщений: 723
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'а, к сожалению, и не предвидится. Неполноценный какой-то язык.
0
Любитель чаепитий
 Аватар для GbaLog-
3745 / 1801 / 566
Регистрация: 24.08.2014
Сообщений: 6,020
Записей в блоге: 1
13.02.2017, 09:42
Цитата Сообщение от Garee Посмотреть сообщение
я извиняюсь, но
c++11 включите.

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

Добавлено через 11 минут
Вот на русском.
Как включить в своей среде разработки поддержку определённого стандарта (С++11, С++14, С++17, C++20, C++23)
0
 Аватар для ata
269 / 253 / 186
Регистрация: 28.10.2015
Сообщений: 723
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;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.02.2017, 10:10
Помогаю со студенческими работами здесь

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru