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

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

Восстановить пароль Регистрация
 
bod1ka
0 / 0 / 0
Регистрация: 08.11.2009
Сообщений: 29
15.03.2010, 13:53     Код из 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
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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2010, 13:53     Код из Pascal в С
Посмотрите здесь:

C++ Код Pascal на С
C++ Перевести код Pascal на C++
код pascal перевести в с++ C++
C++ Перевести код из Pascal на С++
C++ Из кода Pascal в код C++
Перевести код с Pascal C++
Перевести код с Pascal в С++ C++
C++ Перевести код с Pascal на C# и C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Nameless One
Эксперт С++
 Аватар для Nameless One
5753 / 3402 / 255
Регистрация: 08.02.2010
Сообщений: 7,393
15.03.2010, 14:36     Код из Pascal в С #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");
}
Yandex
Объявления
15.03.2010, 14:36     Код из Pascal в С
Ответ Создать тему
Опции темы

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