Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Альтаир
0 / 0 / 0
Регистрация: 13.06.2015
Сообщений: 12
#1

Перевод кода с Паскаля на C++

13.06.2015, 20:13. Просмотров 804. Ответов 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
Uses crt;
Var
  j,i,nech_kol,ch_kol,q,p,sum_nech,sum_ch: Integer;
BEGIN
Clrscr;
Writeln('Введите кол-во домов на нечетной стороне: '); Readln(nech_kol);
i:=1;
Repeat
  Inc(j);
  Write('Введите число жителей проживающих в доме № ',i ,' : ');
  Readln(p);
  sum_nech:=sum_nech+p;
  Inc(i,2);
until j=nech_kol;
Writeln;
Writeln('Введите кол-во домов на четной стороне: '); Readln(ch_kol);
i:=0;
j:=0;
Repeat
  Inc(j);
  Inc(i,2);
  Write('Введите число жителей проживающих в доме № ',i,' : ');
  Readln(q);
  sum_ch:=sum_ch+q;
until j=ch_kol;
If sum_nech>sum_ch Then Writeln('На нечетной стороне больше жителей');
If sum_nech<sum_ch Then Writeln('На четной стороне больше жителей');
If sum_nech=sum_ch Then Writeln('На обеих сторонах поровну жителей');
Readln
END.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2015, 20:13
Ответы с готовыми решениями:

Перевод кода из паскаля в c++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала...

Перевод кода из паскаля в с++
Незнаю как перевести из паскаля в с++ ar x, y: real; begin readln(x,...

Перевод кода с паскаля на С++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; ...

Перевод кода из Паскаля в С++
uses crt,graph; type TPoint=record x,y:integer; end;...

Перевод кода с Паскаля на С++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам...

1
LegchylinIlya
20 / 20 / 28
Регистрация: 22.05.2015
Сообщений: 55
13.06.2015, 20:23 #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
#include <iostream>
using namespace std;
 
void main()
{
    setlocale(LC_ALL,"Russian");
    int houses_number, summ_chet = 0, summ_nechet = 0;
    cout << "Введите количество домов: ";
    cin >> houses_number;
    int *houses = new int[houses_number];
    int *people = new int[houses_number];
    for(int i=0;i<houses_number;i++)
    {
        cout << "Введите количество жителей в доме #" << i+1 << ": ";
        cin >> people[i];
    }
    for(int i=0;i<houses_number;i++)
    {
        if(i%2) summ_chet += people[i];
        else summ_nechet += people[i];
    }
    cout << "\nКоличество людей на четной стороне: " << summ_chet;
    cout << "\nКоличество людей на нечетной стороне: " << summ_nechet;
    if(summ_chet > summ_nechet) cout << "\nНа четной стороне находится больше людей.";
    else if (summ_chet < summ_nechet) cout << "\nНа нечетной стороне находится больше людей.";
    else cout << "\nНа четной стороне находится столько же людей, сколько и на нечетной.";
    cout << "\n\n";
    system("pause");
}
// Не понимаю, зачем нужно было удалять тему, но да ладно.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2015, 20:23

Перевод кода с Паскаля на С++
Помогите перевести код с Паскаля на С++: Var s,s1,s2:string; ...

Перевод кода из Паскаля в C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position)...

Перевод кода с паскаля в С++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt;...


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

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

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