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

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

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

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

25.03.2014, 10:27. Просмотров 319. Ответов 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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2014, 10:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Pascal на C++ (C++):

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод с Pascal на С++ - C++
Type predpr=Array of longint; rasp=Array of longint; На языке С++, как это будет выглядеть?

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

Перевод с 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++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю паскаль, только в этом году начал...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
respondent
10 / 10 / 0
Регистрация: 25.03.2014
Сообщений: 19
25.03.2014, 10:36 #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;
}
0
Arigato
Программист
281 / 178 / 95
Регистрация: 05.12.2013
Сообщений: 674
Записей в блоге: 5
25.03.2014, 11:27 #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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2014, 11:27
Привет! Вот еще темы с ответами:

Перевод с Pascal на Си++ - C++
Помогите, пожаалуйста перевести код программы с Паскаля на Си++. Очень прошу, помогите. Var S:String; W,Wrd:Array of String; ...

Перевод с pascal на c++ - C++
помогите перевести следующий текст с pascal на c++ uses crt; var mas: array of integer; i,a,b,min,max,r:integer; begin ...

Перевод с pascal на c++ - C++
Вообще не знаю pasсal, нужен перевод. program aaa; Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов...

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


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

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

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