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

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

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

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

22.04.2013, 05:16. Просмотров 607. Ответов 9
Метки нет (Все метки)

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.
Задание:В данном массиве поменять местами элементы, стоящие на нечетных местах, с элементами, стоящими на четных местах.
Нужна помощь тк с++ очень плохо знаю, кому не трудно помогите пожалуйста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2013, 05:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод программы паскаль в с++ (C++):

Перевод программы паскаль в с++ - C++
Нужна помощь, в переводе с языка программирования паскаля в си Вот задание :Дано действительное число х, натуральное число n. Вычислить ...

Перевод кода программы с Паскаль на С++ - C++
var a,s:integer; begin writeln('Введите последовательность целых чисел, окончание ввода 0'); s:=0; repeat readln(a); if a mod...

перевод из си++ в паскаль - C++
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту строчку, а именно &quot;j &lt;= i &amp;&amp; j &lt;=...

Перевод з С++ в Паскаль)) - C++
#include &quot;stdafx.h&quot; #include &lt;iomanip&gt; #include &lt;iostream&gt; using namespace std; #define n 67 void main() { int p,q, a,i=0; ...

Перевод с Паскаль на С++ - C++
uses crt; var m, k: byte; begin write('m = '); readln(m); write('k = '); readln(k);

Перевод с Паскаль на С++ - C++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr: array of integer; i, m, qty: byte;...

9
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? Если размерность вводится, то массив должен быть динамическим.
0
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 14:30  [ТС] #3
Цитата Сообщение от taras atavin Посмотреть сообщение
и после этого

. Так вообще нельзя, независимо от языка. А если введут 200? Если размерность вводится, то массив должен быть динамическим.
Спасибо исправлю, а как же будет выглядеть программа в с++?
0
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.
?
0
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 14:53  [ТС] #5
taras atavin,
Чтоб программа могла в данном массиве поменять местами элементы, стоящие на нечетных местах, с элементами, стоящими на четных местах.
Перевод на ваше усмотрение.. Главное чтоб программа делала вышеперечисленное в с++
0
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;
}
1
darksider92
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 12
22.04.2013, 15:40  [ТС] #7
taras atavin,
Спасибо за помощь
0
taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
22.04.2013, 15:44 #8
Если я вообще правильно прочитал цикл с двумя инкрементами.
0
Issues
430 / 365 / 37
Регистрация: 06.08.2012
Сообщений: 961
22.04.2013, 16:23 #9
taras atavin, delete[] забыл.
0
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;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2013, 16:25
Привет! Вот еще темы с ответами:

Перевод из Паскаль в C++ - C++
uses crt; const nmax=100;{при 100 считает довольно долго, ждите} e=0.01; type Point=record {точка} ...

Перевод из паскаль в С++ - C++
Ребята, очень срочно, кто сможет выручайте, нужно перевести данную программу на с++! Данная задача нужна для зачета завтра! Если кто сможет...

Перевод с Паскаль на С++ - C++
Помогите перевести с паскаля на C++ этот код: var s:string; i,c:integer; begin readln(s); c:=0; for i:=1 to...

Перевод с С++ на Паскаль - C++
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали, помогите перевести. var a,b:real;...


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

Или воспользуйтесь поиском по форуму:
10
Yandex
Объявления
22.04.2013, 16:25
Ответ Создать тему
Опции темы

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