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

Перевод из Pascal на C++ - C++

Восстановить пароль Регистрация
 
ZZZombeee
0 / 0 / 0
Регистрация: 25.03.2014
Сообщений: 2
25.03.2014, 10:27     Перевод из Pascal на C++ #1
Помогите перевести программу из Pascal на С++

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
program lab;
const N=30;
var A:array[1..N] of real;
i,k:integer;
S:real;
begin
 
writeln('...:');
for i := 1 to N do
    read(A[i]);    
 
k := 0;
S := 0;
for i := 1 to N do
begin
    if A[i] < 0 then
        inc(k);
    S := S + A[i];
end;    
 
writeln('...: ', S:2:2);
writeln('...: ', k);
 
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2014, 10:27     Перевод из Pascal на C++
Посмотрите здесь:

C++ перевод с Pascal на C++
C++ Перевод с Pascal на C++
Перевод с pascal на c++ C++
Перевод из Pascal в C++ C++
C++ Перевод с pascal на c++
Перевод с Pascal на C++ C++
C++ Перевод c Pascal на С++
Перевод из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
respondent
10 / 10 / 0
Регистрация: 25.03.2014
Сообщений: 19
25.03.2014, 10:36     Перевод из Pascal на 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
24
25
26
27
28
29
#include <cstdlib>
#include <iostream>
 
using namespace std;
 
int main(int argc, char *argv[])
{
    const int N=30;
    float A[N];
    int i;
    int k;
    float S;
    Console.WriteLine("....");
    for (int i = 0; i < N; i++) {
            cout << "[" << i + 1 << "]" << ": ";
            cin >> A[i];
        }
    k=0;
    S=0;
    for (int i = 0; i < N; i++) 
    {
        if(A[i]<0)
        {
                  k++;
        }
        S=S+A[i];
    }
    return EXIT_SUCCESS;
}
Arigato
Программист
 Аватар для Arigato
278 / 175 / 94
Регистрация: 05.12.2013
Сообщений: 570
Записей в блоге: 5
25.03.2014, 11:27     Перевод из Pascal на C++ #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
#include <iostream>
 
using namespace std;
 
void main()
{
    const int N=30; //const N=30;
    float A[N]; //var A:array[1..N] of real;
    int i,k; //i,k:integer;
    float S; //S:real;
    cout<<"...:"<<endl; //writeln('...:');
    for(i=0;i<N;i++) //for i := 1 to N do
    cin>>A[i]; //read(A[i]);    
    k=0; //k := 0;
    S=0; //S := 0;
    for(i=0;i<N;i++) //for i := 1 to N do
    { //begin
        if(A[i]<0) //if A[i] < 0 then
            k++; //inc(k);
        S+=A[i]; //S := S + A[i];
    } //end;    
    cout<<"...:"<<S<<endl; //writeln('...: ', S:2:2);
    cout<<"...:"<<k<<endl; //writeln('...: ', k);
} // end.
Yandex
Объявления
25.03.2014, 11:27     Перевод из Pascal на C++
Ответ Создать тему
Опции темы

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