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

Перевод кода с Паскаля на С++

06.06.2018, 11:04. Показов 7897. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите перевести код с Паскаля на С++:
Pascal Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Var s,s1,s2:string;
        j,k,n:integer;
    Begin
        write('Введите строку: ');readln(s);
        s2:='';
        if Length(s) mod 3 = 0 then
         Begin
          k:=Pos(' ',s);
          While k<>0 do
           Begin
            k:=Pos(' ',s);
            s1:=Copy(s,1,k-1);
            Delete(s,1,k);
            Val(s1,n,j);
            if (n mod 3 <> 0)or(j<>0) then s2:=s2+s1;
           End;
           Val(s,n,j);
           if (j=0)and(n mod 3<>0) then s2:=s2+s;
           writeln('Полученная строка: ',s2);
          End
           else writeln('Длина строки не кратна 3');
    End.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.06.2018, 11:04
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр 4-миллиметр'); ...

Перевод кода из паскаля
надо перевести следующий код : {Autor - A. Alexeev, date - 17.11.13} var n, i, j, max, a, b : longint; function pal(n:longint) :...

Перевод кода с Паскаля на С++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код Pascal Var i:longint; n,k:byte; ...

3
4 / 4 / 0
Регистрация: 06.03.2018
Сообщений: 134
10.06.2018, 22:49 2
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
#include <iostream>
#include <windows.h>
using namespase std;
 
int main()
{
SetConsoleCp(1251);
SetConsoleOutputCp(1251);
 
string s, s1, s2;
int j, k, n;
 
cout << "Введите строку: ";
cin >> s2 ;
if (*) { 1*;  
 
while (k !=0)
{1*; 2*; delete s, l, k; 3*;
 if ((n%3 !=0 \* если я правильно помню, что mod это деление с отбрасыванием целой части*\)) || (j !=0) )
{ s2 = s2 +s1;}
 
// по аналогии сделаешь также и со вторым if - 
if(условие1 &&  условие2) {cout << "Полученная строка: " << s2 << endl;}
else cout << "Длина строки не кратна 3\n";
 
system("pause");
return 0;
}
}
}
\* *\ коментарий
* не помню что это значит Length(s) mod 3 = 0
1 * k:=Pos(' ',s); тут узнаешь количество символов? нет?
2* s1:=Copy(s,1,k-1);
3* Val(s1,n,j);
объяснишь что должно выполнятся, может быть допишу код
0
474 / 426 / 290
Регистрация: 10.03.2015
Сообщений: 1,782
10.06.2018, 23:01 3
Цитата Сообщение от Maria6 Посмотреть сообщение
While k<>0 do
И когда, собственно, с этого цикла вообще выйдет, если позиция пробела в блоке цикла while более не ищется?

Озвучьте условие.
Цитата Сообщение от Maria6 Посмотреть сообщение
if (n mod 3 <> 0)or(j<>0) then s2:=s2+s1;
Цитата Сообщение от Maria6 Посмотреть сообщение
if (j=0)and(n mod 3<>0) then s2:=s2+s;
Исходя из этих условий, могу предположить, что необходимо удалить из строки все "числовые слова".
0
Нарушитель
9797 / 5338 / 1213
Регистрация: 12.03.2015
Сообщений: 25,055
10.06.2018, 23:04 4
Переводить с паскаля на си или обратно - дебильное занятие. Гораздо проще и быстрее написать прогу с нуля.
Задание-то есть?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.06.2018, 23:04
Помогаю со студенческими работами здесь

Перевод кода с Паскаля на С++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода с паскаля в С++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt; var s:string; begin clrscr; write('введите слова:');...

Перевод кода из паскаля в c++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот же результат. const n=30; ...

Перевод кода из Паскаля в C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer alpha,integer beta): begin integer m,t;...

Перевод кода с Паскаля на C#
надеюсь кто-то из C# юзеров ещё помнят паскаль. суть в том что я перебивал код с паскаля(работает правильно) на C#.вроде бы и перебил...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Циклы for в Python
py-thonny 17.03.2025
Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .
Предсказание ветвлений - путь к высокопроизводи­тельному C++
NullReferenced 17.03.2025
В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .
Паттерн CQRS в C#
UnmanagedCoder 17.03.2025
Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .
Паттерн Цепочка ответственности в C#
UnmanagedCoder 17.03.2025
Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .
Создаем микросервисы с NestJS, TCP и Typescript
run.dev 17.03.2025
NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot
Javaican 17.03.2025
Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .
Позиционировани­е Kafka Consumer и Seek-операции
Javaican 17.03.2025
Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .
Python NumPy: Лучшие практики и примеры
py-thonny 17.03.2025
NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .
Java Micronaut в Docker: контейнеризация с Maven и Jib
Javaican 16.03.2025
Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .
Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2
Javaican 16.03.2025
Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер