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

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

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

C Паскаля на С++ - C++

18.12.2011, 11:58. Просмотров 349. Ответов 1
Метки нет (Все метки)

помогите пожалуйста переделать это на С++ язык...очень нужно
Delphi
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
{ На интервале (1000 ; 9999) найти все простые числа,
  каждое из которых обладает тем свойством, что сумма
  первой и второй цифр записи этого числа равна сумме
  третьей и четвёртой цифр                            }
 uses crt;
 var b:array[1..1000] of longint;er:integer;
     i,j,fl,h,s1,s2,s3,s4:longint;
     ii:string;label met1,met2;
 begin
  clrscr;
   i:=1000;
   met1:while i<=9999 do
        begin
         for j:=2 to i-1 do
     if i mod j=0 then begin fl:=1;goto met2; end;
    met2:if fl=0 then begin
                       str(i,ii);
                       val(ii[1],s1,er);val(ii[3],s3,er);
                       val(ii[2],s2,er);val(ii[4],s4,er);
                       if s1+s2=s3+s4 then
                begin
                         inc(h);b[h]:=i;inc(i);goto met1;
                        end;
                      end;
         fl:=0;inc(i);
        end;
    for i:=1 to h do write(b[i],' ');
  readln;
 end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2011, 11:58     C Паскаля на С++
Посмотрите здесь:

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

Из Паскаля на С++ - C++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function del(n:integer):integer; var...

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

с паскаля на с++ - C++
Всем добрый день. помогите перевести с паскаля на с++. Буду очень благодарен Program zarplata; uses dos,crt,BD; type Tbass=record ...

С паскаля на С++ - C++
Всем добрый вечер!! Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие выше побочной диагонали....

С паскаля на с++ - C++
Приветствую всех! Я запустил с++ и мне на зачет нужна вроде простая программа, знаю ее на паскале: var f,g:file of...

С Паскаля на С++ - C++
Кто способен переделать программу, написанную на Паскале, на С++?

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

С Паскаля на С++ - C++
program Matrix25; var MAx,Sum,num,j,i,M,N:integer; a: array of integer; begin // Ввод данных writeln('Введите числа M (M&lt;=10)...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
taras atavin
Ушёл с форума.
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
18.12.2011, 12:22     C Паскаля на С++ #2
Это проще перевести с русского в комментарии, чем с паскаля.
C++
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
unsigned int calc()
{
 unsigned int x;
 unsigned int y;
 unsigned int i;
 unsigned int r;
 unsigned int s1;
 unsigned int s2;
 unsigned int d;
 for (x=1000, r=0, x<=1999; ++x)
 {
  for (y=x, i=4, s1=0, s2=0; i>=1; --i, y/=10)
  {
   d=y%10;
   if (i<3)
   {
    s1+=d;
   }
   else
   {
    s2+=d;
   }
  }
  if (s1==s2)
  {
   ++r;
  }
 }
 return r;
}
Ответ Создать тему
Опции темы

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