Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Arh173
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 21
#1

Перевод с Паскаль на С++ - C++

24.12.2013, 17:19. Просмотров 239. Ответов 1
Метки нет (Все метки)

Помогите перевести с паскаля на C++ этот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s:string;
  i,c:integer;
begin
  readln(s);
  c:=0;
  for i:=1 to length(s)-2 do
    if (s[i]='a') and (s[i+1]='b') and (s[i+2]='c') then
      inc(c);
  writeln(c)
end
Я изучал только C++ и с Paskal не знаком, прошу помочь.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 17:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод с Паскаль на С++ (C++):

Перевод с Паскаль на С++ - C++
var S,x,i:integer; begin x:=1; S:=0; for i:=1 to 10 do begin S:=S+x; x:=x*2; end; write(S div 100, ',', S mod 100,'...

Перевод с С++ на Паскаль - C++
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести. var a,b:real;...

Перевод из Паскаль в C++ - C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод з С++ в Паскаль)) - C++
#include "stdafx.h" #include <iomanip> #include <iostream> using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

Перевод с Паскаль на С++ - C++
uses crt; var m, k: byte; begin write('m = '); readln(m); write('k = '); readln(k);

Перевод с Паскаль на С++ - C++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr: array of integer; i, m, qty: byte;...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
anmartex
...
1705 / 1198 / 496
Регистрация: 12.02.2013
Сообщений: 1,978
24.12.2013, 18:05 #2
Цитата Сообщение от Arh173 Посмотреть сообщение
Я изучал только C++ и с Paskal не знаком
Логика-то одна. Это же не функциональный или логический язык. Императив как императив. ООП как ООП. Сравните, неужели так уж и большие различия?
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <iostream>
#include <string>
 
int main() {
 
    std::string str;
    std::getline(std::cin, str);
 
    unsigned count = 0;
 
    for (unsigned i = 0; i < str.size() - 2; ++i) {
        if ((str[i] == 'a') && (str[i+1] == 'b') && (str[i+2] == 'c')) {
            count++;
        }
    }
 
    std::cout << count << std::endl;
 
    return 0;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2013, 18:05
Привет! Вот еще темы с ответами:

Перевод из паскаль в С++ - C++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на с++! Данная задача нужна для зачета завтра! Если кто сможет...

Перевод из с++ в паскаль - C++
прошу помощи в переводе данного кода в паскаль... всё более-менее ясно, но та же самая последняя фигня в мэйне типо 'case'... я не понимаю...

перевод из си++ в паскаль - C++
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту строчку, а именно &quot;j &lt;= i &amp;&amp; j &lt;=...

Перевод программы паскаль в с++ - C++
Var A:array of integer; i,n,t:integer; Begin write('Vvedite razmernost ');readln(n); writeln('Ishodni massiv: '); ...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru