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

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

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

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

Pascal

    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++

#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

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

@SuperKir 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

Verevkin Злостный нарушитель 9547 / 5176 / 1182 Регистрация: 12.03.2015 Сообщений: 24,445
	10.06.2018, 23:04	4
	Переводить с паскаля на си или обратно - дебильное занятие. Гораздо проще и быстрее написать прогу с нуля. Задание-то есть? 0