Перевести из Паскаля в С++

@SilversxD · Регистрация: 24.01.2020

Author24 — интернет-сервис помощи студентам

Pascal

const n = 20;
var 
    arrA, arrB: array[1..n] of real;
    i, j: byte;
    sum: real;
 
begin
    randomize;
    writeln('Array A:');
    for i:=1 to n do begin
        arrA[i] := random() * 10 - 5; // (-5;+5)
        write(arrA[i]:6:2);
        if i mod 10 = 0 then writeln;
    end; 
 
    i := 2;
    j := 0;
    sum := 0;
    while i <= n do begin
        if arrA[i] > 0 then begin
            j := j + 1;
            arrB[j] := arrA[i];
            sum := sum + arrB[j] * arrB[j];
        end;
        i := i + 2;
    end;
 
    writeln('Array B:');
    for i:=1 to j do write(arrB[i]:6:2);
    writeln;
    writeln('sq.sum = ', sum:5:2);
 
end.

@vlados2441 · 04.05.2020, 21:21

C++

#include <iostream>
#include <ctime>
using namespace std;
int main()
{
const int n = 20;
double arrA[n], arrB[n];
short int i, j;
double sum;
 
srand(time(NULL));
cout << "Array A:" << endl;
for (i=0; i<n;i++) {
        arrA[i] = rand()%10 - 5; // (-5;+5)
        cout << arrA[i] << endl;
        if (i % 10 == 0) cout << endl;
}
 
i = 2;
j = 0;
sum = 0;
while (i <= n)
{
        if (arrA[i] > 0) {
            j = j + 1;
            arrB[j] = arrA[i];
            sum = sum + arrB[j] * arrB[j];
}
        i = i + 2;
}
 
cout << "Array B:" << endl;
for (i=1; i<j; i++) cout << arrB[i] << endl;
cout << "sq.sum = " << sum;
}

@valen10 · 04.05.2020, 21:30

Сообщение от vlados2441

C++

22	while (i <= n)

Выход за границы массива.

Сообщение от vlados2441

C++

14	arrA[i] = rand()%10 - 5; // (-5;+5)

В отличие от random() в паскале, rand() возвращает целые числа, в результате дробных чисел не будет.

Сообщение от vlados2441

C++

15
16

cout << arrA[i] << endl;
if (i % 10 == 0) cout << endl;

Вы программу запускали? В оригинале вывод в две строки по 10 элементов, тут и близко нет этого.

	04.05.2020, 21:30