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

@Maria6 · Регистрация: 06.06.2018

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

Помогите перевести код с Паскаля на С++:

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.

@Stavrius · 10.06.2018, 22:49

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);
объяснишь что должно выполнятся, может быть допишу код

@SuperKir · 10.06.2018, 23:01

Сообщение от 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;

Исходя из этих условий, могу предположить, что необходимо удалить из строки все "числовые слова".

Verevkin · 10.06.2018, 23:04

Переводить с паскаля на си или обратно - дебильное занятие. Гораздо проще и быстрее написать прогу с нуля.
Задание-то есть?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Verevkin Злостный нарушитель 10359 / 5774 / 1274 Регистрация: 12.03.2015 Сообщений: 26,686
	10.06.2018, 23:04
	Переводить с паскаля на си или обратно - дебильное занятие. Гораздо проще и быстрее написать прогу с нуля. Задание-то есть? 0