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

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

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

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

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

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

перевод кода из Pascal в C++ - C++
помогите, пожалуйста, перевести этот код в C++ :impossible: program chisla; uses Crt; const n = 5; var y: real; flag:...

Перевод кода с 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 ...

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

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

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

Перевод кода из 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++
Type ST = Record Num: Integer; Name: String; Fak: String; Group: String; Angl: Integer; Physic: Integer; var Table: Array ...

Перевод кода с Pascal - C++
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of integer; used: array of Boolean; ...

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


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Керра
1276 / 444 / 45
Регистрация: 24.08.2011
Сообщений: 2,133
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 секунду
Это код второго
Керра
1276 / 444 / 45
Регистрация: 24.08.2011
Сообщений: 2,133
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;
Керра
1276 / 444 / 45
Регистрация: 24.08.2011
Сообщений: 2,133
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 на С++
Ответ Создать тему
Опции темы

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