0 / 0 / 0
Регистрация: 18.10.2019
Сообщений: 46
1

преобразовать код Pascal в C++

17.03.2020, 14:04. Показов 2886. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Array15;
var
  a:array[1..10] of integer;
  N,i:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  i:=1;
  While (i<=N) do    begin     writeln(i,' : ',a[i]);     i:=i+2;    end;     i:=(N div 2)*2;     While (i>=1) do
   begin
    writeln(i,' : ',a[i]);
    i:=i-2;
   end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2020, 14:04
Ответы с готовыми решениями:

Преобразовать код Pascal в C++
var a,b,c,m,Tp:real; begin write('Введите m = '); read(m); c:=1.9; b:=6.22; ...

Преобразовать код Pascal в Delphi
var pv:array of real; x,s:real; c,r:real; i,j:integer; begin s:=0 ; for i := 1 to 5 do...

Нужно преобразовать код из Pascal в C#
Нужно преобразовать код из паскаля в C# помогите пожалуйста Delphi/Pascal program Recur25; var...

Преобразовать код Pascal в Delphi
program N60094766; var a:array of integer; n, m, i, j, k, imin, jmin, jmax, tmp:integer;...

3
Продавец времени
7107 / 3989 / 917
Регистрация: 12.03.2015
Сообщений: 18,751
17.03.2020, 15:06 2
Чо прога-то делает? Задание где?
0
0 / 0 / 0
Регистрация: 18.10.2019
Сообщений: 46
17.03.2020, 15:13  [ТС] 3
Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем − элементы с четными номерами в порядке убывания номеров. A1, A3, A5, …, A6, A4, A2. Условный оператор не использовать.
0
1964 / 1092 / 464
Регистрация: 11.10.2018
Сообщений: 5,584
17.03.2020, 15:24 4
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
#include <iostream>
using namespace std;
 
int main()
{
    int a[10], N, i;
    
    cout << "N = ";
    cin >> N;
    cout << "\n\n";
    
    for(i=0; i<N; i++)
    {
        cout << "a[" << i << "] = ";
        cin >> a[i];
        cout << "\n";
    }
    
    i = 1;
    while(i < N)
    {
        cout << "\na[" << i << "] = " << a[i];
        i += 2;
    }
    
    i = (N/2)*2;    
    while(i >= 0)
    {   
        cout << "\na[" << i << "] = " << a[i];
        i -= 2;    
    }
    
    return 0;
}
Добавлено через 15 секунд
Цитата Сообщение от Xeskiss Посмотреть сообщение
A1, A3, A5, …, A6, A4, A2. Условный оператор не использовать.
- В C++ нумерация в массиве начинается с 0.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2020, 15:24
Помогаю со студенческими работами здесь

Нужно преобразовать код из Pascal в C#
var x, y, z, a, b: real; begin readln(x, y, z); a := (sqrt(abs(x + y)) - power(abs(x),...

Преобразовать код Pascal в Delphi
uses crt; type vl=record fio: string; adres: string; marka: string; nomer:string;...

Как преобразовать код Pascal в Python
var R, min: real; N, K, i: integer; A: array of real; begin write('R = '); ...

Нужно преобразовать код с Pascal на Delphi
Нужно преобразовать код с Pascal на Delphi, все варианты перепробовал которые знаю но результатов...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru