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

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

Войти
Регистрация
Восстановить пароль
 
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30
#1

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

22.05.2014, 11:19. Просмотров 323. Ответов 5
Метки нет (Все метки)

Pascal
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
uses crt;
function Summ(n:longint):byte;
var m:longint;
    s:byte;
begin
s:=0;
m:=n;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
var n,i:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
for i:=1 to n-1 do
if Summ(i)=Summ(n) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Нет');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2014, 11:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода с Pascal на С++ (C++):

Перевод кода из Pascal в C++ - C++
Помогите пожалуйста)) Дано: A 5*4 формируемый массив B 5*4, где bij=i+3,если i>=j j-2 - иначе, i=1..5, j=1..4 Условия...

Перевод кода с Pascal - C++
uses crt,graphABC; function y(x:real):real; begin if x<0 then y:=1+sqrt(abs(cos(x*x+1))) else if x<=1 then y:=-2*x-sqr(sin(x)) ...

Перевод кода с Pascal - C++
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t); b:=sin(p*p)+Power(x,3); a:=Power(exp(1),...

Перевод кода из Pascal в C++ - C++
Нужна ваша помощь в переводе с паскаля ибо не особо знаком с конструкциями си. Код в паскале: Program Princip_Guigensa_Frenelya; uses...

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...

Перевод кода с Pascal - C++
var k,i,n,c:integer; p,w:real; begin write('k>-3 k='); readln(k); w:=0; c:=1; for i:=-3 to k do begin ...

5
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
22.05.2014, 11:33 #2
есть конкретные вопросы?
0
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30
22.05.2014, 11:38  [ТС] #3
1 // Игрок А объявляет двузначное число от 01 до 99. Игрок В
меняет местами его цифры и прибавляет полученное число к сумме
его цифр. Полученный результат он объявляет игроку А. Игрок
А проделывает с этим числом ту же процедуру, и так они продолжают
поступать поочередно, объявляя числа. От суммы чисел берется
остаток от деления на 100, поэтому объявляются лишь двузначные
числа. Какие числа может объявить игрок А на начальном
шаге, чтобы игрок В в некоторый момент объявил число 00.

2 // Дано натуральное число N. Найти и вывести все числа в
интервале от 1 до N — 1, у которых сумма всех цифр совпадает с
суммой цифр данного числа. Если таких чисел нет, то вывести
слово «нет». Пример. N = 44. Числа: 17, 26, 35

Добавлено через 21 секунду
Это код второго
0
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
22.05.2014, 11:40 #4
несколько задач должны быть разделены по отдельным темам - правило форума

Добавлено через 1 минуту
для перевода нужно всего лишь знать синтаксис. значит у тебя есть непонятки с синтаксисом. что конкретно тебе непонятно?
0
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30
22.05.2014, 11:43  [ТС] #5
Pascal
1
function Summ(n:longint):byte;
Pascal
1
2
var n,i:longint;
    k:byte;
Pascal
1
clrscr;
Pascal
1
2
var m:longint;
    s:byte;
0
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
22.05.2014, 11:53 #6
C++
1
2
3
4
5
6
7
8
9
10
11
12
char Summ(long int n)
{
   ...
}
 
long int i,n;
 
system("cls");
 
long int m;
 
char s;
1
22.05.2014, 11:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2014, 11:53
Привет! Вот еще темы с ответами:

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

Перевод кода с Pascal - C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin

Перевод кода из pascal в c++ - C++
Помогите пожалуйста перевести на c++ Program bukv; Uses crt; Const g: array of char=('а','е','и','о','у','ы','э','ю','я'); Var i,j:...

Перевод кода с Pascal - C++
var k,n,m:integer; x,s,p,t:real; begin repeat write('x<>0 x=');{х в знаменателе, исключаем заведомое деление на 0} readln(x);...


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

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

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