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

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

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

Перевод функций из Pascal в С++ - C++

17.11.2013, 18:59. Просмотров 257. Ответов 1
Метки нет (Все метки)

Всем доброго времени суток. Столкнулся с проблемой перевода кода Pascal в С++.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
1.  var a,k:longint;
2.  function f(n:longint;s:string):integer;
3.  begin
4.    if n=0 then
5.      begin if (pos('555',s)=0)and(pos('999',s)=0)then inc(k);end
6.    else
7.      begin
8.        f(n-1,s+'5');
9.        f(n-1,s+'9');
10.     end;
11.   f:=k;
12. end;
13. begin
14.   readln(a);
15.   writeln(f(a,''));
16. end.
Получил... Вы будете ругаться очень суровым матом на меня ))
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include<iostream>
#include<conio.h>
long a,k;
int f(long n, char s )
{
if(n=0)
{
if(pos('555',a)=0)&&(pos('999',s)=0)
{
k++;
}
else
{
f(n-1,s+'5');
f(n-1,s+'9');
}   
f=k;    
}
std::cin>>a;
std::cout<<(f(a,' '));
getch();
}
Естественно не работает.. Не знаю какой командой можно заменить pos ... По моему это функция только паскаля. Прошу о помощи...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2013, 18:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод функций из Pascal в С++ (C++):

Перевод из Pascal на C++ - C++
Помогите перевести программу из Pascal на С++ program lab; const N=30; var A:array of real; i,k:integer; S:real; begin ...

Перевод из Pascal в C++ - C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real; proiz:array of real; ...

Перевод с Pascal на С++ - C++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...

перевод из PASCAL в C++ - C++
Нужна программа для перевода из 2 в 10 систему счисления и обратно ... нашел на паскале но почти ничего не могу понять . объясните пжл как...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

Перевод из Pascal в C++ - C++
Помогите перевести в C++ Var s,s1,s2 : String; a : Array Of String; N,i,j : LongInt; Begin ...

1
SeeT
53 / 23 / 2
Регистрация: 12.10.2012
Сообщений: 132
Записей в блоге: 1
17.11.2013, 19:44 #2
Не уверен, что подойдет для твоего случая, но если посидеть подумать, может натолкнуть на решение проблемы. Вот
Pascal to C++
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2013, 19:44
Привет! Вот еще темы с ответами:

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...

Перевод с Pascal на C++ - C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program z1; var a,b:real; begin; ...

Перевод из Pascal в C++ - C++
Помогите перевести исходник из Pascal в C++. В Паскале я силен,а вот Си ток немного знаю, выручайте плз, в долгу не останусь! Исходник...

Перевод из Pascal в C++ - C++
Пж помогите перевести Program SoulCub; Var A,B,C:Real; Begin WriteLn('Введите числa A,B и C: '); ReadLn(A,B,C); If...


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

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

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