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

Перевести из паскаля в C++ - C++

Восстановить пароль Регистрация
 
mrsniper
2 / 2 / 0
Регистрация: 13.11.2012
Сообщений: 15
26.11.2012, 18:45     Перевести из паскаля в C++ #1
Перегнать из паскаля в C++. Заранее благодарю.

условие:
Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Найти разность между суммой четных и нечетных значений.

Код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  I :  Integer;
  A : Array Of Integer;
  S_odd, S_even : Integer;
begin
  S_odd := 0;
  S_even := 0;
  For I := Low(A) To High(A) Do
    If A[i] mod 2 = 1 Then S_odd := S_odd + A[i] Else S_even := S_even + A[i];
  WriteLn('Sum of odd numbers = ',S_odd);
  WriteLn('Sum of even numbers = ',S_even);
end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2012, 18:45     Перевести из паскаля в C++
Посмотрите здесь:

перевести с Паскаля в с++ C++
C++ Перевести с паскаля на Си++
C++ C Паскаля перевести в С++
Перевести с Паскаля на C++ C++
C++ Перевести с Паскаля на С++
Перевести с паскаля на С++ C++
C++ Перевести с Паскаля на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
HighPredator
 Аватар для HighPredator
5352 / 1735 / 320
Регистрация: 10.12.2010
Сообщений: 5,120
Записей в блоге: 3
26.11.2012, 19:07     Перевести из паскаля в C++ #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
#include<iostream>
 
using namespace std;
 
int main()
{
    int a;
    int SumOdd=0;
    int SumEven=0;
    do
    {
        cin>>a;
        if(a!=0)
        {
            if(a%2==0) SumEven+=a;
            else SumOdd+=a;
        }
    }
    while(a!=0);
    cout<<SumEven-SumOdd<<endl;
    getchar();
    return 0;
}
"Перегоняют" машины, самогон и т.д. А с языка на язык - переводят.
Yandex
Объявления
26.11.2012, 19:07     Перевести из паскаля в C++
Ответ Создать тему
Опции темы

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