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

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

Восстановить пароль Регистрация
 
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30
22.05.2014, 11:19     Перевод кода с Pascal на С++ #1
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2014, 11:19     Перевод кода с Pascal на С++
Посмотрите здесь:

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

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

Добавлено через 21 секунду
Это код второго
Керра
Модератор
 Аватар для Керра
1270 / 438 / 45
Регистрация: 24.08.2011
Сообщений: 2,123
22.05.2014, 11:40     Перевод кода с Pascal на С++ #4
несколько задач должны быть разделены по отдельным темам - правило форума

Добавлено через 1 минуту
для перевода нужно всего лишь знать синтаксис. значит у тебя есть непонятки с синтаксисом. что конкретно тебе непонятно?
ink-mate
0 / 0 / 0
Регистрация: 04.02.2014
Сообщений: 30
22.05.2014, 11:43  [ТС]     Перевод кода с Pascal на С++ #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;
Керра
Модератор
 Аватар для Керра
1270 / 438 / 45
Регистрация: 24.08.2011
Сообщений: 2,123
22.05.2014, 11:53     Перевод кода с Pascal на С++ #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;
Yandex
Объявления
22.05.2014, 11:53     Перевод кода с Pascal на С++
Ответ Создать тему
Опции темы

Текущее время: 20:41. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru