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

Перевод программы паскаль в с++ - C++

Восстановить пароль Регистрация
 
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 05:16     Перевод программы паскаль в с++ #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
Var A:array[1..100] of integer;
    i,n,t:integer;
Begin
    write('Vvedite razmernost ');readln(n);
    writeln('Ishodni massiv: ');
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Preorazovani: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
End.
Задание:В данном массиве поменять местами элементы, стоящие на нечетных местах, с элементами, стоящими на четных местах.
Нужна помощь тк с++ очень плохо знаю, кому не трудно помогите пожалуйста.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2013, 05:16     Перевод программы паскаль в с++
Посмотрите здесь:

Перевод из с++ в паскаль C++
Перевод з С++ в Паскаль)) C++
C++ Перевод кода программы с Паскаль на С++
C++ Перевод программы паскаль в с++
Перевод с С++ на Паскаль C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.04.2013, 05:42     Перевод программы паскаль в с++ #2
Цитата Сообщение от darksider92 Посмотреть сообщение
Var A:array[1..100] of integer;
и после этого

Цитата Сообщение от darksider92 Посмотреть сообщение
readln(n);
writeln('Ishodni massiv: ');
For i:=1 to n do
Begin
A[i]:=random(30)-15;
. Так вообще нельзя, независимо от языка. А если введут 200? Если размерность вводится, то массив должен быть динамическим.
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 14:30  [ТС]     Перевод программы паскаль в с++ #3
Цитата Сообщение от taras atavin Посмотреть сообщение
и после этого

. Так вообще нельзя, независимо от языка. А если введут 200? Если размерность вводится, то массив должен быть динамическим.
Спасибо исправлю, а как же будет выглядеть программа в с++?
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.04.2013, 14:38     Перевод программы паскаль в с++ #4
Цитата Сообщение от darksider92 Посмотреть сообщение
Спасибо исправлю, а как же будет выглядеть программа в с++?
А что нужно перевести?
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
const n=100;
Var A:array[1..100] of integer;
    i,t:integer;
Begin
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Preorazovani: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
End.
, или
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
Var A:integer^;
    i,n,t:integer;
Begin
    write('Vvedite razmernost ');readln(n);
    writeln('Ishodni massiv: ');
    getmem(a, n*4);
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Preorazovani: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
    freemem(a);
End.
?
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 14:53  [ТС]     Перевод программы паскаль в с++ #5
taras atavin,
Чтоб программа могла в данном массиве поменять местами элементы, стоящие на нечетных местах, с элементами, стоящими на четных местах.
Перевод на ваше усмотрение.. Главное чтоб программа делала вышеперечисленное в с++
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.04.2013, 15:36     Перевод программы паскаль в с++ #6
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
 int *A;
 size_t i, n;
 int t;
 std::cout<<"Vvedite razmernost "); std::cin>>n; std::cout<<std::endl;
 a=new int [n];
 std::cout<<"Ishodni massiv: "<<std::endl<<std::setw(4)<<std::scientific;
 for (i=0; i<n; ++i)
 {
   A[i]:=rnd%30-15;
   std::cout<<A[i];
 }
 std::cot<<std::endl;
 std::cot<<"Preorazovani: "<<std::endl;
 i=0;
 while (i<n-2)
 {
  t:=A[i];
  A[i]:=A[i+1];
  A[i+1]:=t;
  i+=2;
 }
 for (i=0; i<n; ++i)
 {
   std::cout<<A[i];
 }
 getch();
 return 0;
}
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 15:40  [ТС]     Перевод программы паскаль в с++ #7
taras atavin,
Спасибо за помощь
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.04.2013, 15:44     Перевод программы паскаль в с++ #8
Если я вообще правильно прочитал цикл с двумя инкрементами.
Issues
429 / 364 / 37
Регистрация: 06.08.2012
Сообщений: 961
22.04.2013, 16:23     Перевод программы паскаль в с++ #9
taras atavin, delete[] забыл.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2013, 16:25     Перевод программы паскаль в с++
Еще ссылки по теме:

C++ Перевод с Паскаль на С++
C++ перевод из си++ в паскаль
Перевод из Паскаль в C++ C++

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

Или воспользуйтесь поиском по форуму:
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.04.2013, 16:25     Перевод программы паскаль в с++ #10
Да, забыл этот бич переводов.
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
int *A;
 size_t i, n;
 int t;
 std::cout<<"Vvedite razmernost "); std::cin>>n; std::cout<<std::endl;
 a=new int [n];
 std::cout<<"Ishodni massiv: "<<std::endl<<std::setw(4)<<std::scientific;
 for (i=0; i<n; ++i)
 {
   A[i]:=rnd%30-15;
   std::cout<<A[i];
 }
 std::cot<<std::endl;
 std::cot<<"Preorazovani: "<<std::endl;
 i=0;
 while (i<n-2)
 {
  t:=A[i];
  A[i]:=A[i+1];
  A[i+1]:=t;
  i+=2;
 }
 for (i=0; i<n; ++i)
 {
   std::cout<<A[i];
 }
 getch();
 delete [] A;
 return 0;
}
Yandex
Объявления
22.04.2013, 16:25     Перевод программы паскаль в с++
Ответ Создать тему
Опции темы

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