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

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

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

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

25.03.2014, 10:27. Просмотров 316. Ответов 2
Метки нет (Все метки)

Помогите перевести программу из 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++
Посмотрите здесь:

Перевод с Pascal на С++ - C++
Ребят, переведите кому не сложно, буду благодарна. program z1; var n,s,i : integer; begin write('n = '); readln(n); ...

Перевод с Pascal на С++ - C++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...

Перевод из Pascal в C++ - C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; const nmax = 20; type mtr = array of integer;

Перевод из Pascal в C++ - C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real; proiz:array of real; ...

Перевод с pascal на С++ - C++
разбиваем n-элементного множество Х на k блоков разбиения для n=4 Последовательность разбиений множества {1,2,3,4} ( 1 2 3 4 ) ( 1...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

Перевод из pascal в С - C++
Program pr4_1; uses crt; var firstmaxpos, lastminpos, n, i :integer; x, MAX,MIN ...

Перевод с Pascal на С++ - C++
Ребят, кому не сложно,переведите пожалуйста.Буду благодарна. program z1; var n,s,i : integer; begin write('n = '); ...

Перевод из Pascal в С++ - C++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на печать номера столбцов в которых заданы...

Перевод из Pascal в C++ - C++
Пж помогите перевести Program SoulCub; Var A,B,C:Real; Begin WriteLn('Введите числa A,B и C: '); ReadLn(A,B,C); If...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
Программист
280 / 177 / 95
Регистрация: 05.12.2013
Сообщений: 672
Записей в блоге: 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.
Ответ Создать тему
Опции темы

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