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

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

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

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

15.03.2010, 13:53. Просмотров 313. Ответов 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 в С
Посмотрите здесь:

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

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...

Перевести код с Pascal - C++
№1 var s1,s2,n: longint; f: integer; begin write('vvedite natural chislo '); readln(n); f:=0; ...

Перевести код с Pascal на C++ - C++
Здравствуйте, дана задача : &quot;Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый...

Перевести код из Pascal в C++ - C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот же самый результат. Помогите плиз. ...

Перевести код с Pascal - C++
var m,n,i,k: longint; flag: boolean; begin writeln('vvod m&gt;3'); readln(m); write(' 2 3'); n:=3; k := 2; n...

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

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

Перевести код с Pascal на С++ - C++
Ребята,помогите преобразовать код,представленный по этой ссылке http://www.cyberforum.ru/turbo-pascal/thread1053110.html на С++ Задание...

Перевести код Pascal на C++ - C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy, u : array of integer; ...

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

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


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Nameless One
Эксперт С++
5769 / 3418 / 255
Регистрация: 08.02.2010
Сообщений: 7,446
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");
}
Ответ Создать тему
Опции темы

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