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

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

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

Перевести с Pascal на C++ - C++

08.07.2014, 14:31. Просмотров 190. Ответов 2
Метки нет (Все метки)

Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне признателен вам!
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, B, C: array[1..10] of integer;
  i: byte;
  
begin
  writeln('Введите элементы первого массива:');
  for i := 1 to 10 do begin
    write('a[', i, '] = ');
    readln(a[i])
  end;
  writeln;
  writeln('Введите элементы второго массива:');
  for i := 1 to 10 do begin
    write('b[', i, '] = ');
    readln(b[i])
  end;
  writeln;
  writeln('Результат:');
  for i := 1 to 10 do begin
    if odd(i) then c[i] := b[i + 1]
    else c[i] := a[i - 1];
    write(' ', c[i])
  end;
  writeln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2014, 14:31
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Pascal на C++ (C++):

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
SatanaXIII
Супер-модератор
Эксперт С++
5616 / 2651 / 246
Регистрация: 01.11.2011
Сообщений: 6,529
Завершенные тесты: 1
08.07.2014, 15:13 #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
#include <iostream>
using namespace std;
 
int main()
{
  const unsigned n = 10;
  int a[n], b[n], c[n];
 
  cout << "Введите элементы первого массива:";
  for( int i = 0; i < n; i++ )
    {
    cout << "a[" << i << "] = ";
    cin >> a[i];
    }
 
  cout << endl << "Введите элементы второго массива:";
  for( int i = 0; i < n; i++ )
    {
    cout << "b[" << i << "] = ";
    cin >> b[i];
    }
 
  cout << endl << "Результат:";
  for( int i = 0; i < n; i++ )
    {
    if( i%2 ) c[i] = b[i + 1];
    else c[i] = a[i - 1];
    cout << " " << c[i];
    }
 
std::cin.ignore(2);
return 0;
}
1
SunnyMa
0 / 0 / 0
Регистрация: 08.07.2014
Сообщений: 8
08.07.2014, 15:21 #3
Как-то так
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
int a[10], b[10], c[10]
int i=0;
printf("Введите элементы первого массива\n");
for(i=0;i<10;i++)
{
printf("\n A[%d] = ", i);
scanf("%d", &a[i]);
}
printf("Введите элементы второго массива\n");
i=0;
for(i=0;i<10;i++)
{
printf("\n B[%d] = ", i);
scanf("%d", &b[i]);
}
i=0;
for(i=0;i<10;i++)
{
if (i%2 == 0)
{
c[i] = b[i+1];
}
else
{
c[i] = a[i-1];
}
printf("Результат: \n");
i=0;
for(i=0;i<10;i++)
{
printf(" %d ", c[i]);
}
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2014, 15:21
Привет! Вот еще темы с ответами:

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести на C++ из Pascal - C++
Буду очень рад тому, кто переведет из Pascal на C++ :) procedure ChangeToInc(var st:string); var f:boolean; begin f:=true;...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...


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

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

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