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

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

06.06.2018, 11:04. Показов 7893. Ответов 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
Злостный нарушитель
 Аватар для Verevkin
9795 / 5337 / 1212
Регистрация: 12.03.2015
Сообщений: 25,040
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
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Осваиваем Kubernetes: Подробная шпаргалка
Mr. Docker 15.03.2025
Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .
Лучшие PHP REST API фреймворки
Jason-Webb 15.03.2025
Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .
Многопоточность в Java с Project Loom: виртуальные или обычные потоки
Javaican 15.03.2025
Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .
Что нового в Swift 6 и особенности миграции
mobDevWorks 15.03.2025
Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .
Вопросы на собеседовании по Android
mobDevWorks 14.03.2025
По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python
py-thonny 14.03.2025
Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .
Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda
run.dev 14.03.2025
Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .
Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки
NullReferenced 14.03.2025
C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .
smart-agent proper interface settings (2025)
jigi33 14.03.2025
Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)
Продвинутые настройки JVM
Javaican 14.03.2025
Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер