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

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

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

Код из Pascal в С - C++

15.03.2010, 13:53. Просмотров 318. Ответов 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
uses crt;
const n=500;
var i,j,m,a,b,p1,p2,k:integer;
begin
 for i:=2 to n do
 begin
 p1:=0;
 m:=1;
 while i>m do
 begin
 if (i mod m =0 ) then
 p1:=p1+m;
 inc(m);
 end;
 for j:=2 to n do
  begin
  p2:=0;
  k:=1;
  while (j>k) and (p2<=i) and (i<>j) do
  begin
  if (j mod k= 0) then
   p2:=p2+k;
  inc(k);
  end;
 if (p1=j) and (p2=i) then
  begin
  k:=1;
  m:=1;
  write('b=');
  write('1');
  while k<j do
   begin
   if (j mod k = 0) then
    write('+',k);
    inc(k);
   end;
   writeln;
  write('a=');
  write('1');
  while m<i do
   begin
   if (i mod m = 0) then
    write('+',m);
    inc(m);
   end;
   readln;
 
  end;
  end;
 end;
 readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2010, 13:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Код из Pascal в С (C++):

Код Pascal на С - C++
Помогите плииз надо перевести код с паскаль на си uses SysUtils; const base = 10; type int = longint;

Переписать код с Pascal - C++
я тут написал на паскале нужно на С++ uses crt; var a,b:integer; q:boolean; z:real; begin clrscr; ...

Переделать код с Pascal на С++ - C++
uses crt; const n1='Name1.txt'; n2='Name2.txt'; n3='Name3.txt'; var f1,f2,f3:text; s1,s2:string; begin clrscr; ...

Преобразовать код Pascal в C++ - C++
var a,b,c,m,Tp:real; begin write('Введите m = '); read(m); c:=1.9; b:=6.22; a:=b-(sqr(c)/sqrt(c)); if m&lt;=1.2 then...

Из кода Pascal в код C++ - C++
Var A:array of byte; i,j,n:byte; Begin write('N = ');readln(n); For i:=1 to n do For j:=i to n do ...

Перевести код с Pascal - C++
пожалуйста помогите перевести код с паскаля в с++ uses crt; var N,M:longint; k:byte; begin clrscr; write('N=');readln(n); ...

1
Nameless One
Эксперт С++
5775 / 3425 / 255
Регистрация: 08.02.2010
Сообщений: 7,448
15.03.2010, 14:36 #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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#include <stdio.h>
#include <stdlib.h>
#define n 500
 
int main()
{
    int i, j;
    for(i=2; i<=n; ++i)
    {
        int p1=0;
        int m=1;
        while(i>m)
        {
            if(!(i%m))
                p1+=m;
            ++m;
        }
        for(j=2; j<=n; ++j)
        {
            int p2=0;
            int k=1;
            while((j>k)&&(p2<=i)&&(i!=j))
            {
                if(!(j%k))
                    p2+=k;
                ++k;
            }
            if((p1==j)&&(p2==i))
            {
                k=1;
                m=1;
                printf("b=1");
                while(k<j)
                {
                    if(!(j%k))
                        printf("+%d", k);
                    ++k;
                }
                printf("\na=1");
                while(m<i)
                {
                    if(!(i%m))
                        printf("+%d", m);
                    ++m;
                }
                printf("\n");
            }
        }
    }
    system("pause");
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2010, 14:36
Привет! Вот еще темы с ответами:

Перенести код с Pascal на C++ - C++
Дано натуральное число n, действительные числа Х1, Х2,...., Хn. В последовательности Х1, Х2,..., Хn. получить сумму членов, принадлежащих...

Перевести код с Pascal - C++ - C++
Перевести код с Pascal на C++ var a,b: Integer; sim: String; begin Readln(a); Readln(sim); Readln(b); if sim='&gt;'...

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...


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

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

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